summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-04-17 09:25:59 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-04-17 09:25:59 +0000
commitdc8ffcb9797ade3e3a68e6ec0a89fe2e7444e0ef (patch)
tree1c7e5f0dd0d7231c1df5b07c256f1590e0c1e11e
parent6e9450db95482a72b2c9659ab0e9324260aa3f56 (diff)
downloadhaskell-dc8ffcb9797ade3e3a68e6ec0a89fe2e7444e0ef.tar.gz
remove the ITBL_SIZE constants which were wrong, but fortunately unused
-rw-r--r--compiler/main/Constants.lhs10
-rw-r--r--includes/mkDerivedConstants.c7
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);