|
@@ -13,7 +13,9 @@
|
|
|
|
|
|
**********************************************************************}
|
|
**********************************************************************}
|
|
|
|
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit pthreads;
|
|
unit pthreads;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
interface
|
|
interface
|
|
|
|
|
|
@@ -21,26 +23,50 @@ interface
|
|
{$PACKRECORDS C}
|
|
{$PACKRECORDS C}
|
|
|
|
|
|
{$if defined(BSD)}
|
|
{$if defined(BSD)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC,UnixApi.Base, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc,BaseUnix, unixtype;
|
|
uses initc,BaseUnix, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$i pthrbsd.inc}
|
|
{$i pthrbsd.inc}
|
|
{$elseif defined(android)}
|
|
{$elseif defined(android)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC, System.CTypes, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc, ctypes, unixtype;
|
|
uses initc, ctypes, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$i pthrandroid.inc}
|
|
{$i pthrandroid.inc}
|
|
{$elseif defined(linux)}
|
|
{$elseif defined(linux)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC, System.CTypes, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc, ctypes, unixtype;
|
|
uses initc, ctypes, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$i pthrlinux.inc}
|
|
{$i pthrlinux.inc}
|
|
{$elseif defined(sunos)}
|
|
{$elseif defined(sunos)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC, System.CTypes, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc, ctypes, unixtype;
|
|
uses initc, ctypes, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$i pthrsnos.inc}
|
|
{$i pthrsnos.inc}
|
|
{$elseif defined(beos)}
|
|
{$elseif defined(beos)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc, ctypes, baseunix, unixtype;
|
|
uses initc, ctypes, baseunix, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$ifdef haiku}
|
|
{$ifdef haiku}
|
|
{$i pthrhaiku.inc}
|
|
{$i pthrhaiku.inc}
|
|
{$else}
|
|
{$else}
|
|
{$i pthrbeos.inc}
|
|
{$i pthrbeos.inc}
|
|
{$endif}
|
|
{$endif}
|
|
{$elseif defined(aix)}
|
|
{$elseif defined(aix)}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+ uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses initc, ctypes, baseunix, unixtype;
|
|
uses initc, ctypes, baseunix, unixtype;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
{$i pthraix.inc}
|
|
{$i pthraix.inc}
|
|
{$else}
|
|
{$else}
|
|
{$error operating system not detected}
|
|
{$error operating system not detected}
|
|
@@ -48,4 +74,4 @@ interface
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
-end.
|
|
|
|
|
|
+end.
|