Browse Source

Add FPC_DOTTEDUNITS code

Pierre Muller 2 năm trước cách đây
mục cha
commit
d12bc9e9b9
1 tập tin đã thay đổi với 9 bổ sung0 xóa
  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}