I am having trouble exporting multiple instances of a polymorphic function similar to the example in the "Haskell 98 Foreign Function Interface 1.0 addendum" (page 6). My specific code is below: -----------------------begin test.hs---------------------------------
module Test() where
import Foreign
import Foreign.C
foreign export stdcall "addByte" (+):: Int8->Int8->Int8
foreign export stdcall "addInt" (+):: Int16->Int16->Int16
foreign export stdcall "addLong" (+):: Int32->Int32->Int32
-----------------------end test.hs--------------------------------- This somewhat contrived example should export three foreign implementations of integer addition (one for each of 8, 16 and 32 byte integers). I am compiling to a Win 32 DLL with GHC 6.61 using the following set of commands: -------------------------------------------------------- ghc -c adder.hs -fglasgow-exts -ffi ghc -c dllMain.c ghc -static --mk-dll -optdll--def=test.def -o test.dll test.o test_stub.o dllMain.o -------------------------------------------------------- where dllMain.c declares my entry point for the DLL, and is as follows --------------------begin dllMain.c------------------------------------ #include <windows.h> #include <Rts.h> extern void __stginit_Adder(void); static char* args[] = { "ghcDll", NULL }; BOOL STDCALL DllMain ( HANDLE hModule, DWORD reason, void* reserved ) { if (reason == DLL_PROCESS_ATTACH) { startupHaskell(1, args, __stginit_Adder); return TRUE; } if (reason == DLL_PROCESS_DETACH) { shutdownHaskell(); return TRUE; } return TRUE; } ----------------------------end dllMain.c---------------------------- and I have declared the exported function names explicitly in test.def: ---------------------------begin test.def----------------------------- EXPORTS addByte addInt addLong ----------------------------end test.def---------------------------- Upon compilation, I receive a long list of errors including things like "error:redefinition of 'stginit_export_Test_zdfzp' was here", etc. Any help would be appreciated. Darrell