make lookupSymbol threadsafe, so loading doesn't block all threads on systems without an IO manager thread (win32)

2006-10-23 02:38:44 +00:00
parent a1b9782556
commit 748afc256e
2 changed files with 5 additions and 4 deletions
--- a/src/System/Plugins/Load.hs
+++ b/src/System/Plugins/Load.hs
@ -675,7 +675,7 @@ getImports m = do
 -- ---------------------------------------------------------------------
 -- C interface
 --
-foreign import ccall unsafe "lookupSymbol"
+foreign import ccall threadsafe "lookupSymbol"
   c_lookupSymbol :: CString -> IO (Ptr a)

 foreign import ccall unsafe "loadObj"