From 045a39843737874bce3a7a7b9b0af22e59e55322 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 12 Jan 1999 14:03:27 +0000
Subject: [PATCH] [project @ 1999-01-12 14:03:27 by sewardj] Made FILE_OBJECT
 be defined for -D__HUGS__. Changed .dll file refs to .so for -D__HUGS__.

---
 ghc/lib/std/PrelHandle.lhs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs
index 3664332ad667..b4333724bd26 100644
--- a/ghc/lib/std/PrelHandle.lhs
+++ b/ghc/lib/std/PrelHandle.lhs
@@ -1,4 +1,4 @@
-%
+
 % (c) The AQUA Project, Glasgow University, 1994-1996
 %
 
@@ -46,12 +46,13 @@ import PrelForeign  ( makeForeignObj, writeForeignObj )
 #define CCALL(fun) _ccall_ fun
 #define const_BUFSIZ ``BUFSIZ''
 #define primPackString
+#endif
+
 #ifndef __PARALLEL_HASKELL__
 #define FILE_OBJECT	    ForeignObj
 #else
 #define FILE_OBJECT	    Addr
 #endif
-#endif
 
 \end{code}
 
@@ -150,8 +151,8 @@ freeStdFileObject fo = CCALL(freeStdFileObject) fo
 freeFileObject :: ForeignObj -> IO ()
 freeFileObject fo = CCALL(freeFileObject) fo
 #else
-foreign import stdcall "./libHS_cbits.dll" "freeStdFileObject" freeStdFileObject :: ForeignObj -> IO ()
-foreign import stdcall "./libHS_cbits.dll" "freeFileObject" freeFileObject :: ForeignObj -> IO ()
+foreign import stdcall "libHS_cbits.so" "freeStdFileObject" freeStdFileObject :: ForeignObj -> IO ()
+foreign import stdcall "libHS_cbits.so" "freeFileObject" freeFileObject :: ForeignObj -> IO ()
 #endif
 \end{code}
 
-- 
GitLab