diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-09-23 20:13:42 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-01 03:08:07 -0500 |
| commit | 4acfa0db473fa04a434c38b44da195d5c4455956 (patch) | |
| tree | cc4c5db59f69b4ebe2b44ab4fb2a9c08d6aa2487 /utils | |
| parent | c7613493e637718492f03c2f9a020198244a7b18 (diff) | |
| download | haskell-4acfa0db473fa04a434c38b44da195d5c4455956.tar.gz | |
rts: Refactor SRT representation selection
The goal here is to make the SRT selection logic a bit clearer and allow
configurations which we currently don't support (e.g. using a full word
in the info table even when TNTC is used).
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index f5ccad3641..7121e74245 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -167,8 +167,8 @@ constantWord w name expr = [(w, GetWord name (Fst (CExpr expr)))] constantNatural :: Where -> Name -> String -> Wanteds constantNatural w name expr = [(w, GetNatural name (Fst (CExpr expr)))] --- constantBool :: Where -> Name -> String -> Wanteds --- constantBool w name expr = [(w, GetBool name (Fst (CPPExpr expr)))] +constantBool :: Where -> Name -> String -> Wanteds +constantBool w name expr = [(w, GetBool name (Fst (CPPExpr expr)))] fieldOffset :: Where -> String -> String -> Wanteds fieldOffset w theType theField = fieldOffset_ w nameBase theType theField @@ -673,6 +673,7 @@ wanteds os = concat ,constantNatural Haskell "ILDV_CREATE_MASK" "LDV_CREATE_MASK" ,constantNatural Haskell "ILDV_STATE_CREATE" "LDV_STATE_CREATE" ,constantNatural Haskell "ILDV_STATE_USE" "LDV_STATE_USE" + ,constantBool Haskell "USE_INLINE_SRT_FIELD" "defined(USE_INLINE_SRT_FIELD)" ] getWanted :: Bool -> String -> FilePath -> FilePath -> [String] -> FilePath -> Maybe FilePath |