浏览代码

Add FPC_DOTTEDUNITS code

Pierre Muller 2 年之前
父节点
当前提交
d12bc9e9b9
共有 1 个文件被更改,包括 9 次插入0 次删除
  1. 9 0
      rtl/inc/objc1.inc

+ 9 - 0
rtl/inc/objc1.inc

@@ -18,12 +18,21 @@ interface
 
 {$inline on}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 uses
   ctypes
 {$ifdef unix}
   ,unixtype
 {$endif}
   ;
+{$ELSE}
+uses
+  System.CTypes
+{$ifdef unix}
+  ,UnixApi.Types
+{$endif}
+  ;
+{$endif}
 
 {$packrecords c}