X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FConstants.lhs;fp=ghc%2Fcompiler%2Fmain%2FConstants.lhs;h=53495daf8a3975f56d5832a8af80db8808886140;hb=298e7a785bd89b51e0e8c34980cd4ceac7d3dce0;hp=4a2e0cdfc773bcfe28018ca4fe5b734baad41801;hpb=8db5c9818937c1f952e4cdd58451ea6b25975441;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 4a2e0cd..53495da 100644
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -25,6 +25,7 @@ module Constants (
 	tICKY_HDR_SIZE,
 	aRR_WORDS_HDR_SIZE,
 	aRR_PTRS_HDR_SIZE,
+        rESERVED_C_STACK_BYTES,
 
 	sTD_ITBL_SIZE,
 	pROF_ITBL_SIZE,
@@ -229,3 +230,10 @@ using:
 interfaceFileFormatVersion :: Int
 interfaceFileFormatVersion = HscIfaceFileVersion
 \end{code}
+
+This tells the native code generator the size of the spill
+area is has available.
+
+\begin{code}
+rESERVED_C_STACK_BYTES = (RESERVED_C_STACK_BYTES :: Int)
+\end{code}