Zero-length tuples can show up in tag types. Don't forbid them when reading in the DWARF.

2010-08-27 11:35:50 -07:00 · 2010-08-27 11:35:50 -07:00 · 1c0c242d0a
commit 1c0c242d0a
parent 927b2f7ef4
1 changed files with 2 additions and 2 deletions
--- a/src/boot/me/dwarf.ml
+++ b/src/boot/me/dwarf.ml
@ -2974,8 +2974,8 @@ let rec extract_mod_items
                    else None
                end
              in
-                assert ((Array.length members) > 0);
-                if is_num_idx (get_name members.(0))
+                if Array.length members == 0 ||
+                    is_num_idx (get_name members.(0))
                then
                  let tys = Array.map get_referenced_ty members in
                    Ast.TY_tup tys