diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index c384a7058f..3288c87800 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -159,8 +159,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 @@ -661,8 +661,6 @@ wanteds os = concat -- Amount of pointer bits used for semi-tagging constructor closures ,constantWord Haskell "TAG_BITS" "TAG_BITS" - ,constantBool Haskell "DYNAMIC_BY_DEFAULT" "defined(DYNAMIC_BY_DEFAULT)" - ,constantWord Haskell "LDV_SHIFT" "LDV_SHIFT" ,constantNatural Haskell "ILDV_CREATE_MASK" "LDV_CREATE_MASK" ,constantNatural Haskell "ILDV_STATE_CREATE" "LDV_STATE_CREATE" |