X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=d9c1db52c842fc2ae0e74398f57449655028860c;hb=988a0bbe45b97f7dce825af25890f80765a980f8;hp=4b984dac2d18b53ba2011c431fedf85533bd8fc6;hpb=73dd6e8461229087a103a02628d364e366a759a2;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 4b984da..d9c1db5 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1109,7 +1109,7 @@ static void ghciInsertStrHashTable ( char* obj_name,
       (char*)key,
       obj_name
    );
-   exit(1);
+   stg_exit(1);
 }
 /* -----------------------------------------------------------------------------
  * initialize the object linker
@@ -4976,7 +4976,7 @@ static int ocGetNames_MachO(ObjectCode* oc)
 
     for(i=0;i<segLC->nsects;i++)
     {
-	IF_DEBUG(linker, debugBelch("ocGetNames_MachO: segment %d\n"));
+//	IF_DEBUG(linker, debugBelch("ocGetNames_MachO: segment %d\n"));
         if (sections[i].size == 0)
             continue;