Browse Source

* Add initc unit

git-svn-id: trunk@7492 -
daniel 18 years ago
parent
commit
4782e744e8
1 changed files with 13 additions and 15 deletions
  1. 13 15
      packages/base/pthreads/pthreads.pp

+ 13 - 15
packages/base/pthreads/pthreads.pp

@@ -21,23 +21,21 @@ interface
 {$PACKRECORDS C}
 {$PACKRECORDS C}
 
 
 {$ifdef BSD}
 {$ifdef BSD}
-Uses BaseUnix, unixtype;
+uses initc,BaseUnix, unixtype;
 {$i pthrbsd.inc}
 {$i pthrbsd.inc}
 {$else}
 {$else}
-
-{$ifdef linux}
-uses unixtype;
-{$i pthrlinux.inc}
-{$else}
-
-{$ifdef sunos}
-uses
-  unixtype;
-{$i pthrsnos.inc}
-{$else}
-
-{$endif}
-{$endif}
+ {$ifdef linux}
+ uses initc,unixtype;
+ {$i pthrlinux.inc}
+ {$else}
+
+  {$ifdef sunos}
+  uses initc,unixtype;
+  {$i pthrsnos.inc}
+  {$else}
+  {$error operating system not detected}
+  {$endif}
+ {$endif}
 {$endif}
 {$endif}
 
 
 implementation
 implementation