diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-13 19:12:30 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-13 19:12:30 +0100 |
| commit | 4279ab5050df28ba7abd79296a788d1ddb9eb5df (patch) | |
| tree | a8272030704b755e28f99496582fba0b797a048e /includes | |
| parent | 07c3777105e9e7292b472af9277cf8710492e038 (diff) | |
| download | haskell-4279ab5050df28ba7abd79296a788d1ddb9eb5df.tar.gz | |
Use sIZEOF_* from platformConstants rather than Constants
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/mkDerivedConstants.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index 6bfd87a8c9..216939d17a 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -147,8 +147,6 @@ enum Mode { Gen_Haskell, Gen_Haskell_Type, Gen_Haskell_Value, Gen_Haskell_Wrappe #define def_size(str, size) \ switch (mode) { \ case Gen_Haskell: \ - printf("sIZEOF_" str " :: Int\n"); \ - printf("sIZEOF_" str " = %" FMT_SizeT "\n", (size_t)size); \ break; \ case Gen_Haskell_Type: \ printf(" , pc_SIZEOF_" str " :: Int\n"); \ @@ -157,11 +155,11 @@ enum Mode { Gen_Haskell, Gen_Haskell_Type, Gen_Haskell_Value, Gen_Haskell_Wrappe printf(" , pc_SIZEOF_" str " = %" FMT_SizeT "\n", (size_t)size); \ break; \ case Gen_Haskell_Wrappers: \ - printf("-- sIZEOF_" str " :: DynFlags -> Int\n"); \ - printf("-- sIZEOF_" str " dflags = pc_SIZEOF_" str " (sPlatformConstants (settings dflags))\n"); \ + printf("sIZEOF_" str " :: DynFlags -> Int\n"); \ + printf("sIZEOF_" str " dflags = pc_SIZEOF_" str " (sPlatformConstants (settings dflags))\n"); \ break; \ case Gen_Haskell_Exports: \ - printf("-- sIZEOF_" str ",\n"); \ + printf(" sIZEOF_" str ",\n"); \ break; \ case Gen_Header: \ printf("#define SIZEOF_" str " %" FMT_SizeT "\n", (size_t)size); \ |