[arm] Fix neon-docgen.ml

[Daniel Jacobowitz]

Sandra pointed out that I'd broken neon-docgen.ml when I updated
neon.ml and neon-testgen.ml.  I've checked in this obvious patch.

-- 
Daniel Jacobowitz
CodeSourcery

2009-11-18  Daniel Jacobowitz  <dan@xxxxxxxxxxxxxxxx>

        * config/arm/neon-docgen.ml (analyze_shape_elt): Handle
        Alternatives.

Index: config/arm/neon-docgen.ml
===================================================================
--- config/arm/neon-docgen.ml   (revision 154091)
+++ config/arm/neon-docgen.ml   (working copy)
@@ -214,6 +214,7 @@ let rec analyze_shape shape =
     | Element_of_dreg -> (analyze_shape_elt reg_no Dreg) ^ "[@var{0}]"
     | Element_of_qreg -> (analyze_shape_elt reg_no Qreg) ^ "[@var{0}]"
     | All_elements_of_dreg -> (analyze_shape_elt reg_no Dreg) ^ "[]"
+    | Alternatives alts -> (analyze_shape_elt reg_no (List.hd alts))
   in
     match shape with
       All (n, elt) -> commas (analyze_shape_elt 0) (n_things n elt) ""