Commit f50b4739 authored by sewardj's avatar sewardj
Browse files

[project @ 2002-01-30 13:23:25 by sewardj]

Fix debug build.
parent 0f8bc606
......@@ -2716,7 +2716,7 @@ genCCall fn cconv ret_rep args
-> returnNat (unitOL (CALL (Left (fn__2 tot_arg_size))))
Right dyn
-> get_op dyn `thenNat` \ (dyn_c, dyn_r, dyn_rep) ->
ASSERT(dyn_rep == L)
ASSERT(case dyn_rep of { L -> True; _ -> False})
returnNat (dyn_c `snocOL` CALL (Right dyn_r))
)
`thenNat` \ callinsns ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment