Add ocInit_MachO
[ghc.git] / rts / Linker.c
index 87f1eeb..529af9a 100644 (file)
@@ -1186,6 +1186,10 @@ void freeObjectCode (ObjectCode *oc)
     }
 #endif
 
+#if defined(OBJECTFORMAT_MACHO)
+    ocDeinit_MachO(oc);
+#endif
+
     stgFree(oc->fileName);
     stgFree(oc->archiveMemberName);
 
@@ -1389,6 +1393,11 @@ preloadObjectFile (pathchar *path)
 
    oc = mkOc(path, image, fileSize, true, NULL, misalignment);
 
+#ifdef OBJFORMAT_MACHO
+   if (ocVerifyImage_MachO( oc ))
+       ocInit_MachO( oc );
+#endif
+
    return oc;
 }