From: ross <unknown>
Date: Fri, 11 Apr 2003 23:39:44 +0000 (+0000)
Subject: [project @ 2003-04-11 23:39:43 by ross]
X-Git-Tag: nhc98-1-18-release~691
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=464a57b179b52928cb31c34f101910d33dc22eb0;p=ghc-base.git

[project @ 2003-04-11 23:39:43 by ross]
Hugs only: add a CBITS "pragma" to tell the Hugs conversion script which
files from <package>/cbits should be linked with the module by ffihugs,
e.g. {-# CBITS HsNet.c initWinSock.c ancilData.c #-}
---

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index ddf8c9e..613dd1a 100644
--- a/Foreign/C/Error.hs
+++ b/Foreign/C/Error.hs
@@ -116,6 +116,10 @@ import System.IO		( IOError, Handle, ioError )
 import System.IO.Unsafe		( unsafePerformIO )
 #endif
 
+#ifdef __HUGS__
+{-# CBITS errno.c #-}
+#endif
+
 -- "errno" type
 -- ------------
 
diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index aac0997..7ac142f 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -43,6 +43,8 @@ import System.IO
 
 #ifdef __HUGS__
 import Hugs.Prelude (IOException(..), IOErrorType(..))
+
+{-# CBITS PrelIOUtils.c #-}
 #endif
 
 -- ---------------------------------------------------------------------------