diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-04-17 09:25:59 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-04-17 09:25:59 +0000 |
commit | dc8ffcb9797ade3e3a68e6ec0a89fe2e7444e0ef (patch) | |
tree | 1c7e5f0dd0d7231c1df5b07c256f1590e0c1e11e | |
parent | 6e9450db95482a72b2c9659ab0e9324260aa3f56 (diff) | |
download | haskell-dc8ffcb9797ade3e3a68e6ec0a89fe2e7444e0ef.tar.gz |
remove the ITBL_SIZE constants which were wrong, but fortunately unused
-rw-r--r-- | compiler/main/Constants.lhs | 10 | ||||
-rw-r--r-- | includes/mkDerivedConstants.c | 7 |
2 files changed, 0 insertions, 17 deletions
diff --git a/compiler/main/Constants.lhs b/compiler/main/Constants.lhs index 2d72df2710..4f13af8828 100644 --- a/compiler/main/Constants.lhs +++ b/compiler/main/Constants.lhs @@ -79,16 +79,6 @@ pROF_HDR_SIZE = (PROF_HDR_SIZE :: Int) gRAN_HDR_SIZE = (GRAN_HDR_SIZE :: Int) \end{code} -Info Table sizes. - -\begin{code} -sTD_ITBL_SIZE = (STD_ITBL_SIZE :: Int) -rET_ITBL_SIZE = (RET_ITBL_SIZE :: Int) -pROF_ITBL_SIZE = (PROF_ITBL_SIZE :: Int) -gRAN_ITBL_SIZE = (GRAN_ITBL_SIZE :: Int) -tICKY_ITBL_SIZE = (TICKY_ITBL_SIZE :: Int) -\end{code} - Size of a double in StgWords. \begin{code} diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index c797941a96..90f6a4ca9b 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -179,13 +179,6 @@ main(int argc, char *argv[]) printf("#define PROF_HDR_SIZE %d\n", sizeofW(StgProfHeader)); printf("#define GRAN_HDR_SIZE %d\n", sizeofW(StgGranHeader)); - printf("#define STD_ITBL_SIZE %d\n", sizeofW(StgInfoTable)); - printf("#define RET_ITBL_SIZE %d\n", sizeofW(StgRetInfoTable) - sizeofW(StgInfoTable)); - printf("#define PROF_ITBL_SIZE %d\n", sizeofW(StgProfInfo)); - - printf("#define GRAN_ITBL_SIZE %d\n", 0); - printf("#define TICKY_ITBL_SIZE %d\n", 0); - printf("#define BLOCK_SIZE %d\n", BLOCK_SIZE); printf("#define MBLOCK_SIZE %d\n", MBLOCK_SIZE); |