X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fgenapply%2FGenApply.hs;h=3f10ddf62ff6e77f7e76bd9a1398a9343724030c;hb=174c7f292b3c18c9cc44c21bd07111f351e3913c;hp=b64555ebfa7f446473cd16186055d56fdf8f77a3;hpb=423d477bfecd490de1449c59325c8776f91d7aac;p=ghc-hetmet.git

diff --git a/ghc/utils/genapply/GenApply.hs b/ghc/utils/genapply/GenApply.hs
index b64555e..3f10ddf 100644
--- a/ghc/utils/genapply/GenApply.hs
+++ b/ghc/utils/genapply/GenApply.hs
@@ -304,7 +304,7 @@ genApply regstatus args =
 --        print "  };"
     
        text "",
-       text "IF_DEBUG(apply,foreign \"C\" fprintf(stderr, \"" <> fun_ret_label <> 
+       text "IF_DEBUG(apply,foreign \"C\" debugBelch(\"" <> fun_ret_label <> 
 	  text "... \"); foreign \"C\" printClosure(R1 \"ptr\"));",
 
        text "IF_DEBUG(sanity,foreign \"C\" checkStackFrame(Sp+WDS(" <> int (1 + all_args_size)
@@ -389,7 +389,6 @@ genApply regstatus args =
 	text "     AP_STACK,",
 	text "     CAF_BLACKHOLE,",
 	text "     BLACKHOLE,",
-	text "     BLACKHOLE_BQ,",
 	text "     SE_BLACKHOLE,",
 	text "     SE_CAF_BLACKHOLE,",
         text "     THUNK,",
@@ -558,6 +557,7 @@ applyTypes = [
 -- between N and P (they both live in the same register), only the bitmap
 -- changes, so we could share the apply/save code between lots of cases.
 stackApplyTypes = [
+	[],
 	[N],
 	[P],
 	[F],