Ver Fonte

Add FPC_DOTTEDUNITS code

Pierre Muller há 2 anos atrás
pai
commit
d12bc9e9b9
1 ficheiros alterados com 9 adições e 0 exclusões
  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}