diff options
| author | simonm <unknown> | 1999-01-15 17:57:11 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-01-15 17:57:11 +0000 |
| commit | 4ec89230a959370114357e4c1d45a82b430d374e (patch) | |
| tree | 4fdb163a62f2e32f9815737d5ce27e4c7dd2217b /ghc/includes/InfoTables.h | |
| parent | b9bd8aedf924bd9396c2634792f5c472b36c3bf0 (diff) | |
| download | haskell-4ec89230a959370114357e4c1d45a82b430d374e.tar.gz | |
[project @ 1999-01-15 17:57:03 by simonm]
- Add new object BLACKHOLE_BQ: now a BLACKHOLE is defined as having an
empty blocking queue, and the first time a thread blocks on a BLACKHOLE
it is changed into a BLACKHOLE_BQ.
- Remove UPD_INPLACE1 and replace it with UPD_IND in the two places it
was used. UPD_INPLACE1 wouldn't have worked in a generational setting.
Diffstat (limited to 'ghc/includes/InfoTables.h')
| -rw-r--r-- | ghc/includes/InfoTables.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h index 20950267ce..fb7c65faa1 100644 --- a/ghc/includes/InfoTables.h +++ b/ghc/includes/InfoTables.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: InfoTables.h,v 1.3 1999/01/13 17:25:53 simonm Exp $ + * $Id: InfoTables.h,v 1.4 1999/01/15 17:57:03 simonm Exp $ * * Info Tables * @@ -127,13 +127,16 @@ typedef enum { , SEQ_FRAME , BLACKHOLE + , BLACKHOLE_BQ + , MVAR , ARR_WORDS - , MUT_ARR_WORDS + , MUT_ARR_PTRS , MUT_ARR_PTRS_FROZEN + , MUT_VAR , WEAK @@ -199,6 +202,7 @@ typedef enum { #define FLAGS_FOREIGN (_HNF| _NS| _UPT ) #define FLAGS_WEAK (_HNF| _NS| _UPT ) #define FLAGS_BLACKHOLE ( _NS| _UPT ) +#define FLAGS_BLACKHOLE_BQ ( _NS| _UPT ) #define FLAGS_MVAR (_HNF| _NS| _MUT|_UPT ) #define FLAGS_FETCH_ME (_HNF| _NS ) #define FLAGS_TSO (_HNF| _NS| _MUT|_UPT ) |