paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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.

Browse Source 
* Removed unused local var.

git-svn-id: trunk@9496 -
This commit is contained in:
yury 2007-12-21 21:19:32 +00:00
parent 6a4ee90cb0
commit 8c54008d0c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/wustrings.inc
View File

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