diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
| commit | 7854ec4b11e117f8514553890851d14a66690fbb (patch) | |
| tree | f96e7dd94f39eda39fe86da0298e3f628a35ef65 /compiler/prelude/PrimOp.lhs | |
| parent | e5fba2f55f560b41e27047bf59958729d51aca84 (diff) | |
| download | haskell-7854ec4b11e117f8514553890851d14a66690fbb.tar.gz | |
Tag ForeignCalls with the package they correspond to
Diffstat (limited to 'compiler/prelude/PrimOp.lhs')
| -rw-r--r-- | compiler/prelude/PrimOp.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/prelude/PrimOp.lhs b/compiler/prelude/PrimOp.lhs index 4ac1577707..8c532ffc86 100644 --- 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 Module ( PackageId ) \end{code} %************************************************************************ @@ -517,9 +518,10 @@ pprPrimOp other_op = pprOccName (primOpOcc other_op) %************************************************************************ \begin{code} -newtype PrimCall = PrimCall CLabelString +data PrimCall = PrimCall CLabelString PackageId instance Outputable PrimCall where - ppr (PrimCall lbl) = ppr lbl + ppr (PrimCall lbl pkgId) + = text "__primcall" <+> ppr pkgId <+> ppr lbl \end{code} |