diff options
Diffstat (limited to 'ghc/compiler/nativeGen/I386Gen.hi')
| -rw-r--r-- | ghc/compiler/nativeGen/I386Gen.hi | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/ghc/compiler/nativeGen/I386Gen.hi b/ghc/compiler/nativeGen/I386Gen.hi new file mode 100644 index 0000000000..41a8681477 --- /dev/null +++ b/ghc/compiler/nativeGen/I386Gen.hi @@ -0,0 +1,18 @@ +{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +interface I386Gen where +import CLabelInfo(CLabel) +import CharSeq(CSeq) +import CmdLineOpts(GlobalSwitch) +import PreludePS(_PackedString) +import PreludeRatio(Ratio(..)) +import Pretty(PprStyle) +import PrimKind(PrimKind) +import PrimOps(PrimOp) +import SplitUniq(SplitUniqSupply) +import Stix(CodeSegment, StixReg, StixTree) +data CSeq {-# GHC_PRAGMA CNil | CAppend CSeq CSeq | CIndent Int CSeq | CNewline | CStr [Char] | CCh Char | CInt Int | CPStr _PackedString #-} +data PprStyle {-# GHC_PRAGMA PprForUser | PprDebug | PprShowAll | PprInterface (GlobalSwitch -> Bool) | PprForC (GlobalSwitch -> Bool) | PprUnfolding (GlobalSwitch -> Bool) | PprForAsm (GlobalSwitch -> Bool) Bool ([Char] -> [Char]) #-} +data StixTree {-# GHC_PRAGMA StSegment CodeSegment | StInt Integer | StDouble (Ratio Integer) | StString _PackedString | StLitLbl CSeq | StLitLit _PackedString | StCLbl CLabel | StReg StixReg | StIndex PrimKind StixTree StixTree | StInd PrimKind StixTree | StAssign PrimKind StixTree StixTree | StLabel CLabel | StFunBegin CLabel | StFunEnd CLabel | StJump StixTree | StFallThrough CLabel | StCondJump CLabel StixTree | StData PrimKind [StixTree] | StPrim PrimOp [StixTree] | StCall _PackedString PrimKind [StixTree] | StComment _PackedString #-} +i386CodeGen :: PprStyle -> [[StixTree]] -> SplitUniqSupply -> CSeq + {-# GHC_PRAGMA _A_ 2 _U_ 211 _N_ _S_ "LS" _N_ _N_ #-} + |