diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs index 3664332ad667fd2d0c36941221278ae644190cc1..b4333724bd2635a26ad2a300cc11db628ff560ea 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}