Commit 47ef1f6c authored by simonmar's avatar simonmar

[project @ 2000-01-12 12:39:20 by simonmar]

mark INDirections as non-sparkable.
parent 94ab5da3
/* -----------------------------------------------------------------------------
* $Id: ClosureFlags.c,v 1.4 1999/11/09 15:46:49 simonmar Exp $
* $Id: ClosureFlags.c,v 1.5 2000/01/12 12:39:20 simonmar Exp $
*
* (c) The GHC Team 1998-1999
*
......@@ -16,6 +16,13 @@ StgWord16 closure_flags[] = {
* ClosureTypes.h.
*/
/* ToDo: some of these flags seem to be duplicated.
* - NS is the same as HNF, and the negation of THU
* (however, we set NS for indirections, which is probably the
* right thing to do, since we never get indirections pointing
* to thunks.)
*/
/* HNF BTM NS STA THU MUT UPT SRT */
/* INVALID_OBJECT */ ( 0 ),
......@@ -47,11 +54,11 @@ StgWord16 closure_flags[] = {
/* BCO */ (_HNF| _NS ),
/* AP_UPD */ ( _BTM| _THU ),
/* PAP */ (_HNF| _NS ),
/* IND */ ( 0 ),
/* IND_OLDGEN */ ( 0 ),
/* IND_PERM */ ( 0 ),
/* IND_OLDGEN_PERM */ ( 0 ),
/* IND_STATIC */ ( _STA ),
/* IND */ ( _NS ),
/* IND_OLDGEN */ ( _NS ),
/* IND_PERM */ ( _NS ),
/* IND_OLDGEN_PERM */ ( _NS ),
/* IND_STATIC */ ( _NS|_STA ),
/* CAF_UNENTERED */ ( 0 ),
/* CAF_ENTERED */ ( 0 ),
/* CAF_BLACKHOLE */ ( _BTM|_NS| _MUT|_UPT ),
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment