1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SparcGen where
3 import CLabelInfo(CLabel)
5 import CmdLineOpts(GlobalSwitch)
6 import PreludePS(_PackedString)
7 import PreludeRatio(Ratio(..))
8 import Pretty(PprStyle)
9 import PrimKind(PrimKind)
10 import PrimOps(PrimOp)
11 import SplitUniq(SplitUniqSupply)
12 import Stix(CodeSegment, StixReg, StixTree)
16 sparcCodeGen :: PprStyle -> [[StixTree]] -> SplitUniqSupply -> CSeq