[project @ 2004-11-26 16:19:45 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgBindery.lhs

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index 5a95350..2254ff7 100644 (file)
--- a/ghc/compiler/codeGen/CgBindery.lhs
+++ b/ghc/compiler/codeGen/CgBindery.lhs
@@ -236,7 +236,12 @@ getCgIdInfo id
            Nothing   ->
 
                -- Should be imported; make up a CgIdInfo for it
-       if isExternalName name then
+       let 
+           name = idName id
+       in
+       if isExternalName name then do
+           dflags <- getDynFlags 
+           let ext_lbl = CmmLit (CmmLabel (mkClosureLabel dflags name))
            return (stableIdInfo id ext_lbl (mkLFImported id))
        else
        if isVoidArg (idCgRep id) then
@@ -246,9 +251,7 @@ getCgIdInfo id
        -- Bug  
        cgLookupPanic id
        }}}}
-  where
-    name    = idName id
-    ext_lbl = CmmLit (CmmLabel (mkClosureLabel name))
+    
                        
 cgLookupPanic :: Id -> FCode a
 cgLookupPanic id