projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-11-06 08:15:20 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
97d6a3a
..
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,
@@
-57,6
+58,7
@@
module Constants (
oTHER_TAG,
mAX_INTLIKE, mIN_INTLIKE,
oTHER_TAG,
mAX_INTLIKE, mIN_INTLIKE,
+ mAX_CHARLIKE, mIN_CHARLIKE,
spRelToInt,
spRelToInt,
@@
-67,9
+69,7
@@
module Constants (
wORD_SIZE,
bLOCK_SIZE,
wORD_SIZE,
bLOCK_SIZE,
- bLOCK_SIZE_W,
-
- interfaceFileFormatVersion
+ bLOCK_SIZE_W
) where
) where
@@
-120,6
+120,10
@@
oTHER_TAG = (INFO_OTHER_TAG :: Integer) -- (-1) unevaluated, probably
mIN_INTLIKE, mAX_INTLIKE :: Integer -- Only used to compare with (MachInt Integer)
mIN_INTLIKE = MIN_INTLIKE
mAX_INTLIKE = MAX_INTLIKE
mIN_INTLIKE, mAX_INTLIKE :: Integer -- Only used to compare with (MachInt Integer)
mIN_INTLIKE = MIN_INTLIKE
mAX_INTLIKE = MAX_INTLIKE
+
+mIN_CHARLIKE, mAX_CHARLIKE :: Int -- Only used to compare with (MachChar Int)
+mIN_CHARLIKE = MIN_CHARLIKE
+mAX_CHARLIKE = MAX_CHARLIKE
\end{code}
A little function that abstracts the stack direction. Note that most
\end{code}
A little function that abstracts the stack direction. Note that most
@@
-210,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