diff options
| -rw-r--r-- | ghc/rts/StgMiscClosures.cmm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/rts/StgMiscClosures.cmm b/ghc/rts/StgMiscClosures.cmm index c29a47402f..70d08aeb0e 100644 --- a/ghc/rts/StgMiscClosures.cmm +++ b/ghc/rts/StgMiscClosures.cmm @@ -435,9 +435,13 @@ INFO_TABLE(stg_SE_CAF_BLACKHOLE,0,1,SE_CAF_BLACKHOLE,"SE_CAF_BLACKHOLE","SE_CAF_ #endif /* ---------------------------------------------------------------------------- + Whiteholes are used for the "locked" state of a closure (see lockClosure()) + + The closure type is BLAKCHOLE, just because we need a valid closure type + for sanity checking. ------------------------------------------------------------------------- */ -INFO_TABLE(stg_WHITEHOLE, 0,0, INVALID_OBJECT, "WHITEHOLE", "WHITEHOLE") +INFO_TABLE(stg_WHITEHOLE, 0,0, BLACKHOLE, "WHITEHOLE", "WHITEHOLE") { foreign "C" barf("WHITEHOLE object entered!"); } /* ---------------------------------------------------------------------------- |