diff options
Diffstat (limited to 'ghc/compiler/nativeGen/AlphaGen.hi')
| -rw-r--r-- | ghc/compiler/nativeGen/AlphaGen.hi | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/compiler/nativeGen/AlphaGen.hi b/ghc/compiler/nativeGen/AlphaGen.hi index fb46055d5a..9d24768163 100644 --- a/ghc/compiler/nativeGen/AlphaGen.hi +++ b/ghc/compiler/nativeGen/AlphaGen.hi @@ -10,9 +10,8 @@ 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 #-} +data CSeq +data PprStyle +data StixTree alphaCodeGen :: PprStyle -> [[StixTree]] -> SplitUniqSupply -> CSeq - {-# GHC_PRAGMA _A_ 2 _U_ 211 _N_ _S_ "LS" _N_ _N_ #-} |