From 31d1afdee1a62adeb64572bebd1dfab2b4f27c3b Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Wed, 18 Nov 2009 17:04:34 +0000 Subject: [PATCH] neon-docgen.ml (analyze_shape_elt): Handle Alternatives. * config/arm/neon-docgen.ml (analyze_shape_elt): Handle Alternatives. From-SVN: r154301 --- gcc/ChangeLog | 5 +++++ gcc/config/arm/neon-docgen.ml | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index a71540dd55e..2b034e9ae90 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2009-11-18 Daniel Jacobowitz + + * config/arm/neon-docgen.ml (analyze_shape_elt): Handle + Alternatives. + 2009-11-18 Paul Brook Daniel Jacobowitz diff --git a/gcc/config/arm/neon-docgen.ml b/gcc/config/arm/neon-docgen.ml index b4802fdd240..23e37b49809 100644 --- 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) "" -- 2.30.2