diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/gdb.base/gdbvars.exp | 8 | ||||
| -rw-r--r-- | gdb/valarith.c | 2 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.base/gdbvars.exp b/gdb/testsuite/gdb.base/gdbvars.exp index ced77aa..cb6656c 100644 --- a/gdb/testsuite/gdb.base/gdbvars.exp +++ b/gdb/testsuite/gdb.base/gdbvars.exp @@ -66,6 +66,14 @@ proc test_convenience_variables {} { gdb_test "print \$arr = {0, 1, 2, 3}" \ " = \\{0, 1, 2, 3\\}" \ "Set convenience variable to different array value" + + gdb_test "print \$ptr = (void *) 7" \ + " = \\(void \\*\\) 0x7" \ + "set convenience variable to pointer value" + # This used to "succeed". + gdb_test "print \$ptr + 23 = 97" \ + "Left operand of assignment is not an lvalue." \ + "reject invalid assignment" } proc test_convenience_functions {} { diff --git a/gdb/valarith.c b/gdb/valarith.c index 0ab684a..a6a5f51 100644 --- a/gdb/valarith.c +++ b/gdb/valarith.c @@ -93,7 +93,7 @@ value_ptradd (struct value *arg1, LONGEST arg2) result = value_from_pointer (valptrtype, value_as_address (arg1) + sz * arg2); - if (result->lval () != lval_internalvar) + if (arg1->lval () != lval_internalvar) result->set_component_location (arg1); return result; } |