diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-02-14 13:46:51 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-03-21 19:37:03 -0400 |
| commit | 13531a68388c937eeef9c2c1fd477aa1a37c0fff (patch) | |
| tree | 778cb639147788d07b0040aae63b3e5abcf448ac /rts/include | |
| parent | 83cbc57c6149cc670713e508f70074ffeaa544ef (diff) | |
| download | haskell-wip/ip_stack-frame.tar.gz | |
rts: Mark closureFlags array as constwip/ip_stack-frame
Diffstat (limited to 'rts/include')
| -rw-r--r-- | rts/include/rts/storage/InfoTables.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/include/rts/storage/InfoTables.h b/rts/include/rts/storage/InfoTables.h index b5102c8b8d..39423a3f9f 100644 --- a/rts/include/rts/storage/InfoTables.h +++ b/rts/include/rts/storage/InfoTables.h @@ -70,7 +70,7 @@ typedef struct { #define isUNPOINTED(flags) ((flags) &_UPT) #define hasSRT(flags) ((flags) &_SRT) -extern StgWord16 closure_flags[]; +extern const StgWord16 closure_flags[]; #define closureFlags(c) (closure_flags[get_itbl \ (UNTAG_CONST_CLOSURE(c))->type]) |