diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:42:56 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:42:56 +0000 |
| commit | 4cb89d670945dfcb747d0ab74ac89dd9348ed6cd (patch) | |
| tree | 44426622fe7bcb1668f72d0a02027baf67259622 /ghc | |
| parent | 50bc39808cd5b483a048a4d387f937963bd0e00f (diff) | |
| download | haskell-4cb89d670945dfcb747d0ab74ac89dd9348ed6cd.tar.gz | |
Give WHITEHOLE the BLACKHOLE closure type, instead of INVALID_OBJECT
Just to keep sanity checking happy, and so we don't need a completely
new closure type.
Diffstat (limited to 'ghc')
| -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!"); } /* ---------------------------------------------------------------------------- |