diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-09-26 08:33:34 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-26 11:59:53 -0400 |
| commit | 6e7c09d083358b07401cbecc36043be5dfe15f84 (patch) | |
| tree | 5390453deeca6da2b203153f0959a39645e00476 /compiler/codeGen/StgCmm.hs | |
| parent | c41ccbfa8aaeb99dd9a36cb3d99993f0fa039cdc (diff) | |
| download | haskell-6e7c09d083358b07401cbecc36043be5dfe15f84.tar.gz | |
StgCmmMonad: Remove unnecessary use of unboxed tuples
The simplifier can simplify this without any trouble. Moreover, the
unboxed tuples cause bootstrapping issues due #14123.
I also went ahead and inlined a few definitions into the Monad instance.
Test Plan: Validate
Reviewers: austin, simonmar
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D4026
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 825c309aef..60be1ca01b 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -235,8 +235,8 @@ maybeExternaliseId dflags id | gopt Opt_SplitObjs dflags, -- See Note [Externalise when splitting] -- in StgCmmMonad isInternalName name = do { mod <- getModuleName - ; returnFC (setIdName id (externalise mod)) } - | otherwise = returnFC id + ; return (setIdName id (externalise mod)) } + | otherwise = return id where externalise mod = mkExternalName uniq mod new_occ loc name = idName id |