X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FGC.c;h=75f11a291db4bce81c13193070ddf08829953088;hb=6d194f48d7313fa8daa004b7b3e3a55ffa52f4a9;hp=a470f32c0822ed31238cc8649638a1bad11f11d2;hpb=a84285247bfb162fdefc3fcb8be88c34c1f5cd35;p=ghc-hetmet.git

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index a470f32..75f11a2 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -4121,6 +4121,11 @@ threadSqueezeStack(StgTSO *tso)
 		    // Todo: maybe use SET_HDR() and remove LDV_RECORD_CREATE()?
 		    SET_INFO(bh,&stg_BLACKHOLE_info);
 
+		    // Set the update frame to stg_bh_upd_info, which
+		    // checks for blackholes (the normal update frame
+		    // doesn't check, for efficiency).
+		    ((StgClosure *)frame)->header.info = &stg_bh_upd_frame_info;
+
 		    // We pretend that bh has just been created.
 		    LDV_RECORD_CREATE(bh);
 		}