projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Refactor CLabel.RtsLabel to CLabel.CmmLabel
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgCallConv.hs
diff --git
a/compiler/codeGen/CgCallConv.hs
b/compiler/codeGen/CgCallConv.hs
index
60f25d0
..
8a1ae8b
100644
(file)
--- a/
compiler/codeGen/CgCallConv.hs
+++ b/
compiler/codeGen/CgCallConv.hs
@@
-45,6
+45,7
@@
import Name
import Bitmap
import Util
import StaticFlags
import Bitmap
import Util
import StaticFlags
+import Module
import FastString
import Outputable
import Unique
import FastString
import Outputable
import Unique
@@
-224,7
+225,7
@@
slowArgs :: [(CgRep,CmmExpr)] -> [(CgRep,CmmExpr)]
slowArgs [] = []
slowArgs amodes = (NonPtrArg, mkLblExpr stg_ap_pat) : args ++ slowArgs rest
where (arg_pat, args, rest) = matchSlowPattern amodes
slowArgs [] = []
slowArgs amodes = (NonPtrArg, mkLblExpr stg_ap_pat) : args ++ slowArgs rest
where (arg_pat, args, rest) = matchSlowPattern amodes
- stg_ap_pat = mkRtsRetInfoLabel arg_pat
+ stg_ap_pat = mkCmmRetInfoLabel rtsPackageId arg_pat
matchSlowPattern :: [(CgRep,CmmExpr)]
-> (FastString, [(CgRep,CmmExpr)], [(CgRep,CmmExpr)])
matchSlowPattern :: [(CgRep,CmmExpr)]
-> (FastString, [(CgRep,CmmExpr)], [(CgRep,CmmExpr)])