projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change an assert to a warn
[ghc-hetmet.git]
/
compiler
/
prelude
/
PrimOp.lhs
diff --git
a/compiler/prelude/PrimOp.lhs
b/compiler/prelude/PrimOp.lhs
index
4ac1577
..
8c532ff
100644
(file)
--- a/
compiler/prelude/PrimOp.lhs
+++ b/
compiler/prelude/PrimOp.lhs
@@
-43,6
+43,7
@@
import Unique ( Unique, mkPrimOpIdUnique )
import Outputable
import FastTypes
import FastString
import Outputable
import FastTypes
import FastString
+import Module ( PackageId )
\end{code}
%************************************************************************
\end{code}
%************************************************************************
@@
-517,9
+518,10
@@
pprPrimOp other_op = pprOccName (primOpOcc other_op)
%************************************************************************
\begin{code}
%************************************************************************
\begin{code}
-newtype PrimCall = PrimCall CLabelString
+data PrimCall = PrimCall CLabelString PackageId
instance Outputable PrimCall where
instance Outputable PrimCall where
- ppr (PrimCall lbl) = ppr lbl
+ ppr (PrimCall lbl pkgId)
+ = text "__primcall" <+> ppr pkgId <+> ppr lbl
\end{code}
\end{code}