Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix erronous insertion of LTR characters inside a string

mazen 21 years ago
parent
892daa42ec
commit
c1a8b51047
1 changed files with 3 additions and 1 deletions
Unified View Show Diff Stats
  1. 3 1
      rtl/objpas/freebidi.pp

+ 3 - 1
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