Commit 126b0c41 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Revert "Properly generate info tables for static closures in C--."

This reverts commit 178eb906.
parent 89a8d817
......@@ -496,8 +496,7 @@ info :: { CmmParse (CLabel, Maybe CmmInfoTable, [LocalReg]) }
ty = Constr (fromIntegral $9) -- Tag
(stringToWord8s $13)
rep = mkRTSRep (fromIntegral $11) $
mkHeapRep dflags (fromIntegral $11 == cONSTR_NOCAF_STATIC)
(fromIntegral $5)
mkHeapRep dflags False (fromIntegral $5)
(fromIntegral $7) ty
return (mkCmmEntryLabel pkg $3,
Just $ CmmInfoTable { cit_lbl = mkCmmInfoLabel pkg $3
......
......@@ -41,7 +41,7 @@ module SMRep (
-- ** RTS closure types
rtsClosureType, rET_SMALL, rET_BIG,
aRG_GEN, aRG_GEN_BIG, cONSTR_NOCAF_STATIC,
aRG_GEN, aRG_GEN_BIG,
-- ** Arrays
card, cardRoundUp, cardTableSizeB, cardTableSizeW,
......@@ -473,12 +473,11 @@ rtsClosureType rep
_ -> panic "rtsClosureType"
-- We export these ones
rET_SMALL, rET_BIG, aRG_GEN, aRG_GEN_BIG, cONSTR_NOCAF_STATIC :: Int
rET_SMALL, rET_BIG, aRG_GEN, aRG_GEN_BIG :: Int
rET_SMALL = RET_SMALL
rET_BIG = RET_BIG
aRG_GEN = ARG_GEN
aRG_GEN_BIG = ARG_GEN_BIG
cONSTR_NOCAF_STATIC = CONSTR_NOCAF_STATIC
\end{code}
Note [Static NoCaf constructors]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment