From 4782e744e82525ee4d81a1e01a65a4bd17b7583d Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 27 May 2007 20:06:58 +0000
Subject: [PATCH]   * Add initc unit

git-svn-id: trunk@7492 -
---
 packages/base/pthreads/pthreads.pp | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/packages/base/pthreads/pthreads.pp b/packages/base/pthreads/pthreads.pp
index 91aadcf474..f7a1c67b63 100644
--- a/packages/base/pthreads/pthreads.pp
+++ b/packages/base/pthreads/pthreads.pp
@@ -21,23 +21,21 @@ interface
 {$PACKRECORDS C}
 
 {$ifdef BSD}
-Uses BaseUnix, unixtype;
+uses initc,BaseUnix, unixtype;
 {$i pthrbsd.inc}
 {$else}
+ {$ifdef linux}
+ uses initc,unixtype;
+ {$i pthrlinux.inc}
+ {$else}
 
-{$ifdef linux}
-uses unixtype;
-{$i pthrlinux.inc}
-{$else}
-
-{$ifdef sunos}
-uses
-  unixtype;
-{$i pthrsnos.inc}
-{$else}
-
-{$endif}
-{$endif}
+  {$ifdef sunos}
+  uses initc,unixtype;
+  {$i pthrsnos.inc}
+  {$else}
+  {$error operating system not detected}
+  {$endif}
+ {$endif}
 {$endif}
 
 implementation