X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FConstants.lhs;h=4f13af8828a0329325df49b66f2ed3c8b4c80424;hb=9bbcd77cf9b66940058dbea1827db594e8ff6d7f;hp=43db93249a656f695901f4a534a32eab19606338;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/main/Constants.lhs b/compiler/main/Constants.lhs
index 43db932..4f13af8 100644
--- a/compiler/main/Constants.lhs
+++ b/compiler/main/Constants.lhs
@@ -56,11 +56,6 @@ mAX_CHARLIKE = MAX_CHARLIKE
 A section of code-generator-related MAGIC CONSTANTS.
 
 \begin{code}
-mAX_FAMILY_SIZE_FOR_VEC_RETURNS = (MAX_VECTORED_RTN::Int)  -- pretty arbitrary
--- If you change this, you may need to change runtimes/standard/Update.lhc
-\end{code}
-
-\begin{code}
 mAX_Vanilla_REG	= (MAX_VANILLA_REG :: Int)
 mAX_Float_REG	= (MAX_FLOAT_REG :: Int)
 mAX_Double_REG	= (MAX_DOUBLE_REG :: Int)
@@ -84,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}