From 25a38ee4f7b12e17b86919dd35164dfe6f81381d Mon Sep 17 00:00:00 2001 From: Roy Frostig Date: Thu, 15 Jul 2010 12:20:20 -0700 Subject: [PATCH] Modify copy_fn_args not to bother with dynamic GEP to get the indirect args cell in a calltup. It's now possible to obtain it with just regular GEP. --- src/boot/me/trans.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 5de1148c404..a1a170f58c8 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -3597,6 +3597,9 @@ let trans_visitor let callee_task_cell = get_element_ptr all_callee_args_cell Abi.calltup_elt_task_ptr in + let callee_indirect_args = + get_element_ptr all_callee_args_cell Abi.calltup_elt_indirect_args + in let callee_ty_params = get_element_ptr all_callee_args_cell Abi.calltup_elt_ty_params in @@ -3608,10 +3611,6 @@ let trans_visitor get_element_ptr_dyn_in_current_frame all_callee_args_cell Abi.calltup_elt_iterator_args in - let callee_indirect_args = - get_element_ptr_dyn_in_current_frame - all_callee_args_cell Abi.calltup_elt_indirect_args - in let n_args = Array.length call.call_args in let n_iterators = Array.length call.call_iterator_args in