diff --git a/packages/pthreads/namespaced/UnixApi.Pthreads.pp b/packages/pthreads/namespaced/UnixApi.Pthreads.pp new file mode 100644 index 0000000000..e148893b6c --- /dev/null +++ b/packages/pthreads/namespaced/UnixApi.Pthreads.pp @@ -0,0 +1,3 @@ +unit UnixApi.Pthreads; +{$DEFINE FPC_DOTTEDUNITS} +{$i pthreads.pp} diff --git a/packages/pthreads/namespaces.lst b/packages/pthreads/namespaces.lst new file mode 100644 index 0000000000..76e29c4931 --- /dev/null +++ b/packages/pthreads/namespaces.lst @@ -0,0 +1,3 @@ +src/pthreads.pp=namespaced/UnixApi.Pthreads.pp +{s*:src/}=namespaced/ +{i+:src/} diff --git a/packages/pthreads/src/pthreads.pp b/packages/pthreads/src/pthreads.pp index 7682d6ff6b..ae65dd4bac 100644 --- a/packages/pthreads/src/pthreads.pp +++ b/packages/pthreads/src/pthreads.pp @@ -13,7 +13,9 @@ **********************************************************************} +{$IFNDEF FPC_DOTTEDUNITS} unit pthreads; +{$ENDIF FPC_DOTTEDUNITS} interface @@ -21,26 +23,50 @@ interface {$PACKRECORDS C} {$if defined(BSD)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC,UnixApi.Base, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc,BaseUnix, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$i pthrbsd.inc} {$elseif defined(android)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC, System.CTypes, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc, ctypes, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$i pthrandroid.inc} {$elseif defined(linux)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC, System.CTypes, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc, ctypes, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$i pthrlinux.inc} {$elseif defined(sunos)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC, System.CTypes, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc, ctypes, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$i pthrsnos.inc} {$elseif defined(beos)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc, ctypes, baseunix, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$ifdef haiku} {$i pthrhaiku.inc} {$else} {$i pthrbeos.inc} {$endif} {$elseif defined(aix)} +{$IFDEF FPC_DOTTEDUNITS} + uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types; +{$ELSE FPC_DOTTEDUNITS} uses initc, ctypes, baseunix, unixtype; +{$ENDIF FPC_DOTTEDUNITS} {$i pthraix.inc} {$else} {$error operating system not detected} @@ -48,4 +74,4 @@ interface implementation -end. \ No newline at end of file +end.