Merged revisions 9496 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r9496 | yury | 2007-12-21 23:19:32 +0200 (Пт, 21 дек 2007) | 2 lines
  
  * Fixed condition which was evaluated to true at compile time, and code for else block was not generated at all. "Dead code" warning warned about it.
  * Removed unused local var.
........

git-svn-id: branches/fixes_2_2@10294 -

rtl/inc/wustrings.inc

@@ -1897,7 +1897,7 @@ begin
       p^:=widechar(nc);
       inc(index);
     end
-  else if (nc<=$10ffff) then
+  else if (dword(nc)<=$10ffff) then
     begin
       p^:=widechar((nc - $10000) shr 10 + $d800);
       (p+1)^:=widechar((nc - $10000) and $3ff + $dc00);
@@ -1916,7 +1916,6 @@ function UCS4StringToWideString(const s : UCS4String) : WideString;
   var
     i        : SizeInt;
     resindex : SizeInt;
-    len      : longint;
   begin
     { skip terminating #0 }
     SetLength(result,length(s)-1);