From 6fbd46b0bb3ee56160b8216cb2a3bb718ccb41c2 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Sun, 14 Oct 2012 13:03:32 +0100
Subject: Remove the old codegen

Except for CgUtils.fixStgRegisters that is used in the NCG and LLVM
backends, and should probably be moved somewhere else.
---
 compiler/ghci/ByteCodeInstr.lhs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'compiler/ghci/ByteCodeInstr.lhs')

diff --git a/compiler/ghci/ByteCodeInstr.lhs b/compiler/ghci/ByteCodeInstr.lhs
index ed49960709..7fc84ae214 100644
--- a/compiler/ghci/ByteCodeInstr.lhs
+++ b/compiler/ghci/ByteCodeInstr.lhs
@@ -22,6 +22,7 @@ module ByteCodeInstr (
 
 import ByteCodeItbls	( ItblPtr )
 
+import StgCmmLayout     ( ArgRep(..) )
 import PprCore
 import Type
 import Outputable
@@ -34,7 +35,6 @@ import DataCon
 import VarSet
 import PrimOp
 import SMRep
-import ClosureInfo -- CgRep stuff
 
 import Module (Module)
 import GHC.Exts
@@ -75,7 +75,7 @@ data BCInstr
 
    -- Push an alt continuation
    | PUSH_ALTS          (ProtoBCO Name)
-   | PUSH_ALTS_UNLIFTED (ProtoBCO Name) CgRep
+   | PUSH_ALTS_UNLIFTED (ProtoBCO Name) ArgRep
 
    -- Pushing literals
    | PUSH_UBX  (Either Literal (Ptr ())) Word16
@@ -147,7 +147,7 @@ data BCInstr
    -- To Infinity And Beyond
    | ENTER
    | RETURN		-- return a lifted value
-   | RETURN_UBX CgRep -- return an unlifted value, here's its rep
+   | RETURN_UBX ArgRep -- return an unlifted value, here's its rep
 
    -- Breakpoints 
    | BRK_FUN          (MutableByteArray# RealWorld) Word16 BreakInfo
-- 
cgit v1.2.1