diff options
| -rw-r--r-- | compiler/codeGen/CgTailCall.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs index 3732babc8f..60a856177c 100644 --- 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 |