* ada-lang.c (resolve_subexp): Correct arity of binary operators.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 73c794b8e85cf232a6cdff3cb33cf9cbbbd60852..9869828da3970617690e03516637dba206262e0e 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+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>
 

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 7f96dea72b421777cfb34fd71801a7684058aa0e..326bcec7491f9f7e6675aa4324a284a77572b317 100644 (file)
--- 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: