paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-13 16:48:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed compilation

Browse Source 
git-svn-id: trunk@22472 -
This commit is contained in:
mattias 2009-11-07 12:59:14 +00:00
parent dffcbd97cc
commit ea159dc66b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lclproc.pas
View File

@ -3652,7 +3652,7 @@ begin
end end
else if ((ord(p^) and %11100000) = %11000000) then begin else if ((ord(p^) and %11100000) = %11000000) then begin
// could be 2 byte character // could be 2 byte character
if (Count) (ord(p[1]) and %11000000) = %10000000 then if (ord(p[1]) and %11000000) = %10000000 then
CharLen:=2 CharLen:=2
else else
exit; // missing following bytes exit; // missing following bytes