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

[ghc-hetmet.git] / ghc / compiler / absCSyn / AbsCUtils.lhs

diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index 35a43d1..52212dc 100644 (file)
--- 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) )