瀏覽代碼

* 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.