Преглед изворни кода

* Fix bug #31526, missing FixedInt FixedUInt from Delphi Berlin

git-svn-id: trunk@35560 -
michael пре 8 година
родитељ
комит
4f02942b55
1 измењених фајлова са 4 додато и 1 уклоњено
  1. 4 1
      rtl/objpas/objpas.pp

+ 4 - 1
rtl/objpas/objpas.pp

@@ -57,7 +57,10 @@ interface
        TBoundArray = array of integer;
 
 
-
+       // Delphi Berlin compatibility 
+       FixedInt = Int32;
+       FixedUInt = UInt32;
+       
 {$if FPC_FULLVERSION >= 20701}
 
       { Generic array type.