testsuite: attempt fixing fallout from 089b72f52
[ghc.git] / rts / LinkerInternals.h
index e1942bc..4eab5de 100644 (file)
@@ -144,6 +144,11 @@ typedef struct _ObjectCode {
 extern ObjectCode *objects;
 extern ObjectCode *unloaded_objects;
 
+#ifdef THREADED_RTS
+extern Mutex linker_mutex;
+extern Mutex linker_unloaded_mutex;
+#endif
+
 void exitLinker( void );
 
 void freeObjectCode (ObjectCode *oc);