diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-09-07 09:30:05 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-09-07 09:30:05 +0000 |
| commit | a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9 (patch) | |
| tree | 0dc30e8ddb227854de83fc9bc395cbc3285f34f2 /rts/ClosureFlags.c | |
| parent | ddf8b805caafdfb5e3bbc3356aaed66af6f0b5e9 (diff) | |
| download | haskell-a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9.tar.gz | |
Remove CONSTR_CHARLIKE and CONSTR_INTLIKE closure types
These closure types aren't used/needed, as far as I can tell. The
commoning up of Chars/Ints happens by comparing info pointers, and
the info table for a dynamic C#/I# is CONSTR_0_1. The RTS seemed
a little confused about whether CONSTR_CHARLIKE/CONSTR_INTLIKE were
supposed to be static or dynamic closures, too.
Diffstat (limited to 'rts/ClosureFlags.c')
| -rw-r--r-- | rts/ClosureFlags.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 5545693362..260bf390d0 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -33,8 +33,6 @@ StgWord16 closure_flags[] = { /* CONSTR_2_0 = */ (_HNF| _NS ), /* CONSTR_1_1 = */ (_HNF| _NS ), /* CONSTR_0_2 = */ (_HNF| _NS ), -/* CONSTR_INTLIKE = */ (_HNF| _NS|_STA ), -/* CONSTR_CHARLIKE = */ (_HNF| _NS|_STA ), /* CONSTR_STATIC = */ (_HNF| _NS|_STA ), /* CONSTR_NOCAF_STATIC = */ (_HNF| _NS|_STA ), /* FUN = */ (_HNF| _NS| _SRT ), @@ -101,7 +99,6 @@ StgWord16 closure_flags[] = { /* CATCH_STM_FRAME = */ ( _BTM ) }; -#if N_CLOSURE_TYPES != 73 +#if N_CLOSURE_TYPES != 71 #error Closure types changed: update ClosureFlags.c! #endif - |