diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-02-14 13:46:51 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-22 02:12:59 -0400 |
| commit | 08a6a2ee078418099c8ae614f5755876de4e380a (patch) | |
| tree | 12f6c4bc195ca6e80cc62e244cc38fec9791af47 | |
| parent | 1e062a8a220c2fb5d707c7e36c6532d0e16291e9 (diff) | |
| download | haskell-08a6a2ee078418099c8ae614f5755876de4e380a.tar.gz | |
rts: Mark closureFlags array as const
| -rw-r--r-- | rts/ClosureFlags.c | 2 | ||||
| -rw-r--r-- | rts/include/rts/storage/InfoTables.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 9007a9b5df..9caef370dd 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -9,7 +9,7 @@ #include "rts/PosixSource.h" #include "Rts.h" -StgWord16 closure_flags[] = { +const StgWord16 closure_flags[] = { /* ToDo: some of these flags seem to be duplicated. * - NS is the same as HNF, and the negation of THU 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]) |