paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: don't use c-style +=, -= in freebidi, utf8bidi since they can't be compiled with default options in this case

Browse Source 
git-svn-id: trunk@15321 -
This commit is contained in:
paul 2010-05-24 03:35:34 +00:00
parent f5c52b25cd
commit 8dfed24f3a
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/freebidi.pp
View File

@ -142,8 +142,8 @@ begin
Count := Length(Src);
while (Count > 0) do
begin
Result += CharWidth(Src[Count], FontInfoPtr);
Count -= 1;
Result := Result + CharWidth(Src[Count], FontInfoPtr);
Count := Count - 1;
end;
end;
@ -270,7 +270,7 @@ begin
vp := Result[0];
end;
Insert(lp, Result, vp);
lp += 1;
lp := lp + 1;
end;
end;

6
rtl/objpas/utf8bidi.pp
View File

@ -174,7 +174,7 @@ begin
vp := 1;
Result := '';
for vp := 1 to Length(Src) do
Result += UnicodeToUTF8(Src[vp]);
Result := Result + UnicodeToUTF8(Src[vp]);
end;
function UTF8ToUCS32(const UTF8Char:TUTF8Char):TUCS32Char;
@ -223,10 +223,10 @@ begin
SetLength(Result, Length(Src));
while lp <= Length(Src) do
begin
vp += 1;
vp := vp + 1;
c := LCharOf(Src, lp);
Result[vp] := WideChar(UTF8ToUCS16(c));
lp += Length(c);
lp := lp + Length(c);
end;
SetLength(Result, vp);
end;