wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Don Stewart
2006-10-23 02:38:44 +00:00
parent a1b9782556
commit 748afc256e
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/System/Plugins/Load.hs
View File

@ -675,7 +675,7 @@ getImports m = do
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- C interface -- C interface
-- --
foreign import ccall unsafe "lookupSymbol" foreign import ccall threadsafe "lookupSymbol"
c_lookupSymbol :: CString -> IO (Ptr a) c_lookupSymbol :: CString -> IO (Ptr a)
foreign import ccall unsafe "loadObj" foreign import ccall unsafe "loadObj"

1
src/System/Plugins/LoadTypes.hs
View File

@ -43,6 +43,7 @@ data Module = Module { path :: !FilePath
, iface :: Iface -- cache the iface , iface :: Iface -- cache the iface
, key :: Key , key :: Key
} }
instance Ord Module where instance Ord Module where
compare m1 m2 = mname m1 `compare` mname m2 compare m1 m2 = mname m1 `compare` mname m2