%
\begin{code}
-#include "HsVersions.h"
-
module StixMacro ( macroCode, heapCheck ) where
-import Ubiq{-uitious-}
-import NcgLoop ( amodeToStix )
+#include "HsVersions.h"
+
+import {-# SOURCE #-} StixPrim ( amodeToStix )
import MachMisc
import MachRegs
-
import AbsCSyn ( CStmtMacro(..), MagicId(..), mkIntCLit, CAddrMode )
-import CgCompInfo ( uF_RET, uF_SUA, uF_SUB, uF_UPDATEE,
+import Constants ( uF_RET, uF_SUA, uF_SUB, uF_UPDATEE,
sTD_UF_SIZE
)
import OrdList ( OrdList )
import PrimOp ( PrimOp(..) )
import PrimRep ( PrimRep(..) )
import Stix
-import UniqSupply ( returnUs, thenUs, UniqSM(..) )
+import UniqSupply ( returnUs, thenUs, UniqSM )
\end{code}
The @ARGS_CHK_A{_LOAD_NODE}@ macros check for sufficient arguments on
returnUs (\xs -> grabRet : grabSuB : grabSuA : updSpB : xs)
\end{code}
-The @SET_ARITY@ and @CHK_ARITY@ macros are disabled for ``normal''
-compilation.
-\begin{code}
-macroCode SET_ARITY args = returnUs id
-macroCode CHK_ARITY args = returnUs id
-\end{code}
-
This one only applies if we have a machine register devoted to TagReg.
\begin{code}
macroCode SET_TAG [tag]