blob: 2c76b89e1646673dc454aa6c3eb5ef18bd127dab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
module GHC.CmmToAsm.Types
( NatCmm
, NatCmmDecl
, NatBasicBlock
, GenBasicBlock(..)
, blockId
, ListGraph(..)
, RawCmmStatics
, RawCmmDecl
)
where
import GHC.Cmm.Dataflow.Label
import GHC.Cmm
-- Our flavours of the Cmm types
-- Type synonyms for Cmm populated with native code
type NatCmm instr
= GenCmmGroup
RawCmmStatics
(LabelMap RawCmmStatics)
(ListGraph instr)
type NatCmmDecl statics instr
= GenCmmDecl
statics
(LabelMap RawCmmStatics)
(ListGraph instr)
type NatBasicBlock instr
= GenBasicBlock instr
|
