Commit e156361f authored by Edward Z. Yang's avatar Edward Z. Yang Committed by Ben Gamari

Put stable pointer names in the name cache.

Test Plan: validate

Reviewers: simonpj, austin, bgamari

Reviewed By: austin, bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1249
parent c738b123
...@@ -58,6 +58,7 @@ import Bag ...@@ -58,6 +58,7 @@ import Bag
import Outputable import Outputable
import FastString import FastString
import IfaceEnv
import IdInfo import IdInfo
import Data.IORef ( atomicModifyIORef', modifyIORef ) import Data.IORef ( atomicModifyIORef', modifyIORef )
...@@ -985,10 +986,9 @@ badMonadBind rhs elt_ty flag_doc ...@@ -985,10 +986,9 @@ badMonadBind rhs elt_ty flag_doc
-- --
mkSptEntryName :: SrcSpan -> DsM Name mkSptEntryName :: SrcSpan -> DsM Name
mkSptEntryName loc = do mkSptEntryName loc = do
uniq <- newUnique
mod <- getModule mod <- getModule
occ <- mkWrapperName "sptEntry" occ <- mkWrapperName "sptEntry"
return $ mkExternalName uniq mod occ loc newGlobalBinder mod occ loc
where where
mkWrapperName what mkWrapperName what
= do dflags <- getDynFlags = do dflags <- getDynFlags
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment