From 1c0c242d0a7418ed4213c77b270e3f355b3cd484 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Fri, 27 Aug 2010 11:35:50 -0700
Subject: [PATCH] Zero-length tuples can show up in tag types. Don't forbid
 them when reading in the DWARF.

---
 src/boot/me/dwarf.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/boot/me/dwarf.ml b/src/boot/me/dwarf.ml
index 5137ae12390..75b149a8b6a 100644
--- 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