diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-14 15:24:30 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-14 15:24:30 +0100 |
| commit | f203e63c6ff92bde63a206a58ea63ec082033b8a (patch) | |
| tree | 0fdb84f953c6195727971d765a025c076fc5e07f /includes/mkDerivedConstants.c | |
| parent | 6f3be2b6ea39ee28d6cf8da08effb5dd215c92f2 (diff) | |
| download | haskell-f203e63c6ff92bde63a206a58ea63ec082033b8a.tar.gz | |
Move more constants into platformConstants
Diffstat (limited to 'includes/mkDerivedConstants.c')
| -rw-r--r-- | includes/mkDerivedConstants.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index 799ba422d2..6246a29dac 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -652,6 +652,22 @@ main(int argc, char *argv[]) constantInt("mUT_ARR_PTRS_CARD_BITS", MUT_ARR_PTRS_CARD_BITS); + // A section of code-generator-related MAGIC CONSTANTS. + constantInt("mAX_Vanilla_REG", MAX_VANILLA_REG); + constantInt("mAX_Float_REG", MAX_FLOAT_REG); + constantInt("mAX_Double_REG", MAX_DOUBLE_REG); + constantInt("mAX_Long_REG", MAX_LONG_REG); + constantInt("mAX_Real_Vanilla_REG", MAX_REAL_VANILLA_REG); + constantInt("mAX_Real_Float_REG", MAX_REAL_FLOAT_REG); + constantInt("mAX_Real_Double_REG", MAX_REAL_DOUBLE_REG); + constantInt("mAX_Real_Long_REG", +#ifdef MAX_REAL_LONG_REG + MAX_REAL_LONG_REG +#else + 0 +#endif + ); + switch (mode) { case Gen_Haskell_Type: printf(" } deriving (Read, Show)\n"); |