paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 14:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix erronous insertion of LTR characters inside a string

Browse Source
This commit is contained in:
mazen 2004-10-04 16:19:53 +00:00
parent 892daa42ec
commit c1a8b51047
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/freebidi.pp
View File

@ -292,7 +292,9 @@ begin
begin begin
lp := lp + Length(c); lp := lp + Length(c);
Result += 1; Result += 1;
end; end
else
Result := vp;
if DirectionOf(Src) = drRTL if DirectionOf(Src) = drRTL
then then
begin begin