[project @ 1998-02-05 12:23:33 by simonm]

[ghc-hetmet.git] / ghc / compiler / nativeGen / StixMacro.lhs

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 62c5f97..ab0ecc4 100644 (file)
--- a/ghc/compiler/nativeGen/StixMacro.lhs
+++ b/ghc/compiler/nativeGen/StixMacro.lhs
@@ -3,25 +3,23 @@
 %
 
 \begin{code}
-#include "HsVersions.h"
-
 module StixMacro ( macroCode, heapCheck ) where
 
-IMP_Ubiq(){-uitious-}
-IMPORT_DELOOPER(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
@@ -258,13 +256,6 @@ macroCode POP_STD_UPD_FRAME args
     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]