projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-03-01 17:07:49 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
Constants.lhs
diff --git
a/ghc/compiler/main/Constants.lhs
b/ghc/compiler/main/Constants.lhs
index
660b99f
..
f52c483
100644
(file)
--- a/
ghc/compiler/main/Constants.lhs
+++ b/
ghc/compiler/main/Constants.lhs
@@
-24,6
+24,7
@@
module Constants (
aRR_WORDS_HDR_SIZE,
aRR_PTRS_HDR_SIZE,
rESERVED_C_STACK_BYTES,
aRR_WORDS_HDR_SIZE,
aRR_PTRS_HDR_SIZE,
rESERVED_C_STACK_BYTES,
+ rESERVED_STACK_WORDS,
sTD_ITBL_SIZE,
pROF_ITBL_SIZE,
sTD_ITBL_SIZE,
pROF_ITBL_SIZE,
@@
-68,9
+69,7
@@
module Constants (
wORD_SIZE,
bLOCK_SIZE,
wORD_SIZE,
bLOCK_SIZE,
- bLOCK_SIZE_W,
-
- interfaceFileFormatVersion
+ bLOCK_SIZE_W
) where
) where
@@
-215,20
+214,18
@@
wORD64_SIZE = (WORD64_SIZE :: Int)
iNT64_SIZE = (INT64_SIZE :: Int)
\end{code}
iNT64_SIZE = (INT64_SIZE :: Int)
\end{code}
-The version of the interface file format we're using. It's propagated
-here by a devious route from ghc/mk/version.mk. See comments
-there for what it means.
+This tells the native code generator the size of the spill
+area is has available.
\begin{code}
\begin{code}
-interfaceFileFormatVersion :: Int
-interfaceFileFormatVersion = HscIfaceFileVersion
+rESERVED_C_STACK_BYTES = (RESERVED_C_STACK_BYTES :: Int)
\end{code}
\end{code}
-This tells the native code generator the size of the spill
-area is has available.
+The amount of (Haskell) stack to leave free for saving registers when
+returning to the scheduler.
\begin{code}
\begin{code}
-rESERVED_C_STACK_BYTES = (RESERVED_C_STACK_BYTES :: Int)
+rESERVED_STACK_WORDS = (RESERVED_STACK_WORDS :: Int)
\end{code}
Size of a word, in bytes
\end{code}
Size of a word, in bytes