* fixed some notes/warnings.

git-svn-id: trunk@5306 -

rtl/inc/wstrings.inc

@@ -450,7 +450,6 @@ end;
 procedure fpc_WideStr_Concat (var DestS:Widestring;const S1,S2 : WideString); compilerproc;
 Var
   Size,Location : SizeInt;
-  pc : pwidechar;
 begin
   { only assign if s1 or s2 is empty }
   if (S1='') then

rtl/wince/system.pp

@@ -41,7 +41,7 @@ const
 
 const
 { Default filehandles }
-  UnusedHandle    : THandle = -1;
+  UnusedHandle    : THandle = THandle(-1);
   StdInputHandle  : THandle = 0;
   StdOutputHandle : THandle = 0;
   StdErrorHandle  : THandle = 0;
@@ -832,8 +832,6 @@ Const
      DLL_THREAD_ATTACH = 2;
      DLL_PROCESS_DETACH = 0;
      DLL_THREAD_DETACH = 3;
-Const
-     DLLExitOK : boolean = true;
 
 function Dll_entry : longbool;[public, alias : '_FPC_DLL_Entry'];
 var