diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-08-27 15:48:02 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-08-27 15:48:02 +0100 |
| commit | ef017944600cf4e153aad686a6a78bfb48dea67a (patch) | |
| tree | cde2fa0174bc9587174d6e46427cd164eb218cea /compiler/codeGen/StgCmm.hs | |
| parent | 776cfe28cf089c24a56a288f2f0c49494f7d9e47 (diff) | |
| download | haskell-ef017944600cf4e153aad686a6a78bfb48dea67a.tar.gz | |
Comments only, relating to #8166 fix
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 8b3bac3b4f..9b1bce4b57 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -257,13 +257,10 @@ cgDataCon data_con -- Stuff to support splitting --------------------------------------------------------------- --- If we're splitting the object, we need to externalise all the --- top-level names (and then make sure we only use the externalised --- one in any C label we use which refers to this name). - maybeExternaliseId :: DynFlags -> Id -> FCode Id maybeExternaliseId dflags id - | gopt Opt_SplitObjs dflags, -- Externalise the name for -split-objs + | gopt Opt_SplitObjs dflags, -- See Note [Externalise when splitting] + -- in StgCmmMonad isInternalName name = do { mod <- getModuleName ; returnFC (setIdName id (externalise mod)) } | otherwise = returnFC id |