projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e5e7d10
)
Removed a trace
author
dias@eecs.tufts.edu
<unknown>
Wed, 18 Mar 2009 15:13:43 +0000
(15:13 +0000)
committer
dias@eecs.tufts.edu
<unknown>
Wed, 18 Mar 2009 15:13:43 +0000
(15:13 +0000)
compiler/codeGen/CgTailCall.lhs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/CgTailCall.lhs
b/compiler/codeGen/CgTailCall.lhs
index
3732bab
..
60a8561
100644
(file)
--- a/
compiler/codeGen/CgTailCall.lhs
+++ b/
compiler/codeGen/CgTailCall.lhs
@@
-387,7
+387,7
@@
tailCallPrimOp op args
-- except that *all* the arguments will be in registers.
-- Hence the ASSERT( null leftovers )
arg_amodes <- getArgAmodes args
- ; let (arg_regs, leftovers) = pprTrace "prim op" (ppr op) $ assignPrimOpCallRegs arg_amodes
+ ; let (arg_regs, leftovers) = assignPrimOpCallRegs arg_amodes
jump_to_primop = jumpToLbl (mkRtsPrimOpLabel op)
; ASSERT(null leftovers) -- no stack-resident args