Revert "Make the linker API thread-safe"
[ghc.git] / testsuite / tests / rts / rdynamic.hs
index 17f8df7..5fb4651 100644 (file)
@@ -26,7 +26,6 @@ loadFunction :: Maybe String
              -> String
            -> IO (Maybe a)
 loadFunction mpkg m valsym = do
-    c_initLinker
     let symbol = prefixUnderscore
                    ++ maybe "" (\p -> zEncodeString p ++ "_") mpkg
                    ++ zEncodeString m ++ "_" ++ zEncodeString valsym
@@ -40,4 +39,3 @@ loadFunction mpkg m valsym = do
     prefixUnderscore = if elem os ["darwin","mingw32","cygwin"] then "_" else ""
 
 foreign import ccall safe "lookupSymbol" c_lookupSymbol :: CString -> IO (Ptr a)
-foreign import ccall safe "initLinker" c_initLinker :: IO ()