diff options
Diffstat (limited to 'ghc/compiler/codeGen/CgBindery.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgBindery.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs index 6e0c8bdf4a..684e2bc944 100644 --- a/ghc/compiler/codeGen/CgBindery.lhs +++ b/ghc/compiler/codeGen/CgBindery.lhs @@ -44,7 +44,7 @@ import Id ( idPrimRep, toplevelishId, isDataCon, GenId{-instance NamedThing-} ) import Maybes ( catMaybes ) -import Name ( isLocallyDefined, oddlyImportedName, Name{-instance NamedThing-} ) +import Name ( isLocallyDefined, isWiredInName, Name{-instance NamedThing-} ) #ifdef DEBUG import PprAbsC ( pprAmode ) #endif @@ -195,8 +195,8 @@ I {\em think} all looking-up is done through @getCAddrMode(s)@. getCAddrModeAndInfo :: Id -> FCode (CAddrMode, LambdaFormInfo) getCAddrModeAndInfo id - | not (isLocallyDefined name) || oddlyImportedName name - {- Why the "oddlyImported"? + | not (isLocallyDefined name) || isWiredInName name + {- Why the "isWiredInName"? Imagine you are compiling GHCbase.hs (a module that supplies some of the wired-in values). What can happen is that the compiler will inject calls to |