paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +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);
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);
@ -1907,7 +1907,6 @@ function UCS4StringToWideString(const s : UCS4String) : WideString;
var
i : SizeInt;
resindex : SizeInt;
len : longint;
begin
SetLength(result,length(s));
resindex:=1;