From 0fe1508a8a2512deff71bb760cc84e58d79debd4 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Mon, 5 Jul 2010 14:39:08 -0700 Subject: [PATCH] Use typed slot rather than AST slot in trans_for_loop. --- src/boot/me/trans.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 61d590ac0cc..6a14a1cec26 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -3999,8 +3999,9 @@ let trans_visitor and trans_for_loop (fo:Ast.stmt_for) : unit = let ty_params = get_ty_params_of_current_frame () in - let (dst_slot, _) = fo.Ast.for_slot in - let dst_cell = cell_of_block_slot dst_slot.id in + let dst_slot_id = (fst (fo.Ast.for_slot)).id in + let dst_slot = get_slot cx dst_slot_id in + let dst_cell = cell_of_block_slot dst_slot_id in let (head_stmts, seq) = fo.Ast.for_seq in let (seq_cell, seq_ty) = trans_lval seq in let unit_ty = seq_unit_ty seq_ty in @@ -4010,7 +4011,7 @@ let trans_visitor fun _ src_cell unit_ty _ -> trans_init_slot_from_cell ty_params CLONE_none - dst_cell dst_slot.node + dst_cell dst_slot src_cell unit_ty; trans_block fo.Ast.for_body; end