From: sof <unknown>
Date: Fri, 25 Jul 1997 23:05:39 +0000 (+0000)
Subject: [project @ 1997-07-25 23:04:49 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~222
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d6a0ac51949057086421d00505bf7ccd30620fa3;p=ghc-hetmet.git

[project @ 1997-07-25 23:04:49 by sof]
imports changed
---

diff --git a/ghc/compiler/absCSyn/AbsCSyn.lhs b/ghc/compiler/absCSyn/AbsCSyn.lhs
index f6dab7e..ce5d777 100644
--- a/ghc/compiler/absCSyn/AbsCSyn.lhs
+++ b/ghc/compiler/absCSyn/AbsCSyn.lhs
@@ -42,9 +42,8 @@ IMPORT_DELOOPER(AbsCLoop)
 # if  ! OMIT_NATIVE_CODEGEN
 import {-# SOURCE #-} MachMisc
 # endif
-import {-# SOURCE #-} CLabel
-import {-# SOURCE #-} ClosureInfo
-import {-# SOURCE #-} CgRetConv
+import {-# SOURCE #-} ClosureInfo ( ClosureInfo )
+import {-# SOURCE #-} CLabel	  ( CLabel )
 #endif
 
 import Constants   	( mAX_Vanilla_REG, mAX_Float_REG,
@@ -55,7 +54,6 @@ import Constants   	( mAX_Vanilla_REG, mAX_Float_REG,
 import HeapOffs		( SYN_IE(VirtualSpAOffset), SYN_IE(VirtualSpBOffset),
 			  SYN_IE(VirtualHeapOffset), HeapOffset
 			)
-import CLabel           ( CLabel )
 import CostCentre       ( CostCentre )
 import Literal		( mkMachInt, Literal )
 import PrimRep		( isFollowableRep, PrimRep(..) )
diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index 35a43d1..52212dc 100644
--- a/ghc/compiler/absCSyn/AbsCUtils.lhs
+++ b/ghc/compiler/absCSyn/AbsCUtils.lhs
@@ -20,10 +20,11 @@ module AbsCUtils (
     ) where
 
 IMP_Ubiq(){-uitous-}
+import {-# SOURCE #-} CLabel	( mkReturnPtLabel, CLabel )
+	-- The loop here is (CLabel -> CgRetConv -> AbsCUtils -> CLabel)
 
 import AbsCSyn
 
-import CLabel		( mkReturnPtLabel, CLabel )
 import Digraph		( stronglyConnComp, SCC(..) )
 import HeapOffs		( possiblyEqualHeapOffset )
 import Id		( fIRST_TAG, SYN_IE(ConTag) )