1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SparcDesc where
3 import AbsCSyn(MagicId)
4 import CLabelInfo(CLabel)
6 import CmdLineOpts(GlobalSwitch, SwitchResult)
7 import MachDesc(RegLoc, Target)
8 import PreludePS(_PackedString)
9 import PreludeRatio(Ratio(..))
10 import Pretty(PprStyle)
11 import PrimKind(PrimKind)
12 import PrimOps(PrimOp)
13 import SMRep(SMRep, SMSpecRepKind, SMUpdateKind)
14 import SplitUniq(SplitUniqSupply)
15 import Stix(CodeSegment, StixReg, StixTree)
23 mkSparc :: Bool -> (GlobalSwitch -> SwitchResult) -> (Target, PprStyle -> [[StixTree]] -> SplitUniqSupply -> CSeq, Bool, [Char] -> [Char])