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

Put stable pointer names in the name cache.

Test Plan: validate

Reviewers: simonpj, austin, bgamari

Reviewed By: austin, bgamari

Subscribers: thomie

Differential Revision:
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
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