Browse Source

Add FPC_DOTTEDUNITS code

Pierre Muller 2 years ago
parent
commit
d12bc9e9b9
1 changed files with 9 additions and 0 deletions
  1. 9 0
      rtl/inc/objc1.inc

+ 9 - 0
rtl/inc/objc1.inc

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