projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Small rearrangements
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgUtils.hs
diff --git
a/compiler/codeGen/CgUtils.hs
b/compiler/codeGen/CgUtils.hs
index
19f5eab
..
eee5f8d
100644
(file)
--- a/
compiler/codeGen/CgUtils.hs
+++ b/
compiler/codeGen/CgUtils.hs
@@
-354,11
+354,11
@@
emitRtsCall' res fun args vols safe = do
then getSRTInfo >>= (return . CmmSafe)
else return CmmUnsafe
stmtsC caller_save
then getSRTInfo >>= (return . CmmSafe)
else return CmmUnsafe
stmtsC caller_save
- stmtC (CmmCall target res args safety)
+ stmtC (CmmCall target res args safety CmmMayReturn)
stmtsC caller_load
where
(caller_save, caller_load) = callerSaveVolatileRegs vols
stmtsC caller_load
where
(caller_save, caller_load) = callerSaveVolatileRegs vols
- target = CmmForeignCall fun_expr CCallConv
+ target = CmmCallee fun_expr CCallConv
fun_expr = mkLblExpr (mkRtsCodeLabel fun)
-----------------------------------------------------------------------------
fun_expr = mkLblExpr (mkRtsCodeLabel fun)
-----------------------------------------------------------------------------