Skip to content
Snippets Groups Projects
Commit 045a3984 authored by Julian Seward's avatar Julian Seward
Browse files

[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__.
parent 591f5733
No related merge requests found
%
% (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}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment