diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-14 13:03:32 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-19 12:03:16 +0100 |
| commit | 6fbd46b0bb3ee56160b8216cb2a3bb718ccb41c2 (patch) | |
| tree | 8e8c569d0989f89c66a6ccd0d59a466266130649 /compiler/cmm/OldCmm.hs | |
| parent | 53810006bbcd3fc9b58893858f95c3432cb33f0e (diff) | |
| download | haskell-6fbd46b0bb3ee56160b8216cb2a3bb718ccb41c2.tar.gz | |
Remove the old codegen
Except for CgUtils.fixStgRegisters that is used in the NCG and LLVM
backends, and should probably be moved somewhere else.
Diffstat (limited to 'compiler/cmm/OldCmm.hs')
| -rw-r--r-- | compiler/cmm/OldCmm.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/cmm/OldCmm.hs b/compiler/cmm/OldCmm.hs index 3d0599b7ea..cf05db92b8 100644 --- a/compiler/cmm/OldCmm.hs +++ b/compiler/cmm/OldCmm.hs @@ -24,7 +24,7 @@ module OldCmm ( module CmmExpr, - Section(..), ProfilingInfo(..), C_SRT(..) + Section(..), ProfilingInfo(..), New.C_SRT(..) ) where #include "HsVersions.h" @@ -35,7 +35,6 @@ import Cmm ( CmmInfoTable(..), GenCmmGroup, CmmStatics(..), GenCmmDecl(..), ProfilingInfo(..), ClosureTypeInfo(..) ) import BlockId -import ClosureInfo import CmmExpr import FastString import ForeignCall @@ -184,7 +183,7 @@ type HintedCmmActual = CmmHinted CmmActual data CmmSafety = CmmUnsafe - | CmmSafe C_SRT + | CmmSafe New.C_SRT | CmmInterruptible -- | enable us to fold used registers over '[CmmActual]' and '[CmmFormal]' |