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
import Outputable
import FastString
import IfaceEnv
import IdInfo
import Data.IORef ( atomicModifyIORef', modifyIORef )
......@@ -985,10 +986,9 @@ badMonadBind rhs elt_ty flag_doc
--
mkSptEntryName :: SrcSpan -> DsM Name
mkSptEntryName loc = do
uniq <- newUnique
mod <- getModule
occ <- mkWrapperName "sptEntry"
return $ mkExternalName uniq mod occ loc
newGlobalBinder mod occ loc
where
mkWrapperName what
= 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