neon-docgen.ml (analyze_shape_elt): Handle Alternatives.

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

From-SVN: r154301

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a71540dd55e8bff9b6f9d4b21fed4b299d0ab792..2b034e9ae905ceefb965c24db805ae76492408cc 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-18  Daniel Jacobowitz  <dan@codesourcery.com>
+
+       * config/arm/neon-docgen.ml (analyze_shape_elt): Handle
+       Alternatives.
+
 2009-11-18  Paul Brook  <paul@codesourcery.com>
        Daniel Jacobowitz  <dan@codesourcery.com>
 

diff --git a/gcc/config/arm/neon-docgen.ml b/gcc/config/arm/neon-docgen.ml
index b4802fdd24048b2d10de3b740a72b078bf2e0e07..23e37b49809fd3e2d94c4683faf32b1bcbf38afc 100644 (file)
--- a/gcc/config/arm/neon-docgen.ml
+++ b/gcc/config/arm/neon-docgen.ml
@@ -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) ""