From 40c8aaa9feda31a1f9f77caa30ab3e8eb94448a4 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Wed, 15 Aug 2007 18:43:15 +0000
Subject:         * ada-lang.c (resolve_subexp): Correct arity of binary
 operators.

---
 gdb/ChangeLog  | 5 +++++
 gdb/ada-lang.c | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 73c794b..9869828 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,6 +1,11 @@
 2007-08-15  Paul Hilfinger  <hilfinger@adacore.com>
             Joel Brobecker  <brobecker@adacore.com>
 
+	* ada-lang.c (resolve_subexp): Correct arity of binary operators.
+
+2007-08-15  Paul Hilfinger  <hilfinger@adacore.com>
+            Joel Brobecker  <brobecker@adacore.com>
+
 	* ada-lang.c (possible_user_operator_p): Alternative fix to last
 	checkin guarding against NULL.
 
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 7f96dea..326bcec 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -2691,6 +2691,9 @@ resolve_subexp (struct expression **expp, int *pos, int deprocedure_p,
     case BINOP_REPEAT:
     case BINOP_SUBSCRIPT:
     case BINOP_COMMA:
+      *pos += 1;
+      nargs = 2;
+      break;
 
     case UNOP_NEG:
     case UNOP_PLUS:
-- 
cgit v1.1