From 1fa978ebb9ef97640724ad92900ba49a3544c6c9 Mon Sep 17 00:00:00 2001 From: Roy Frostig Date: Fri, 3 Sep 2010 15:07:58 -0700 Subject: Fail a bit more informatively on a bad get_element_ptr_dyn. --- src/boot/me/trans.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 385db253..5b1e4da0 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -768,8 +768,12 @@ let trans_visitor add_to vc sz; Il.Mem (based v, elt_rty) end - | _ -> bug () "get_element_ptr_dyn %d on cell %s" i - (cell_str mem_cell) + | Il.Mem (_, Il.StructTy elts) -> + bug () + "get_element_ptr dyn %d out of bounds (len %d) on cell %s" + i (Array.length elts) (cell_str mem_cell) + | _ -> + bug () "get_element_ptr_dyn %d on cell %s" i (cell_str mem_cell) in let get_element_ptr_dyn_in_current_frame -- cgit v1.2.3