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

diff --git a/rts/Linker.c b/rts/Linker.c
index 4b984da..657c2c3 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", i));
         if (sections[i].size == 0)
             continue;