diff --git a/gdb/blockframe.c b/gdb/blockframe.c index 3897366..1917b68 100644 --- a/gdb/blockframe.c +++ b/gdb/blockframe.c @@ -352,8 +352,9 @@ find_pc_partial_function (CORE_ADDR pc, char **name, CORE_ADDR *address, return find_pc_partial_function_gnu_ifunc (pc, name, address, endaddr, NULL); } -/* Return the innermost stack frame executing inside of BLOCK, or NULL - if there is no such frame. If BLOCK is NULL, just return NULL. */ +/* Return the innermost stack frame that is executing inside of BLOCK and is + * at least as old as the selected frame. Return NULL if there is no + * such frame. If BLOCK is NULL, just return NULL. */ struct frame_info * block_innermost_frame (const struct block *block) @@ -368,7 +369,9 @@ block_innermost_frame (const struct block *block) start = BLOCK_START (block); end = BLOCK_END (block); - frame = get_current_frame (); + frame = get_selected_frame_if_set (); + if (frame == NULL) + frame = get_current_frame (); while (frame != NULL) { struct block *frame_block = get_frame_block (frame, NULL); diff --git a/gdb/c-exp.y b/gdb/c-exp.y index bdcae33..5b57f24 100644 --- a/gdb/c-exp.y +++ b/gdb/c-exp.y @@ -778,6 +778,13 @@ variable: block COLONCOLON name if (sym == 0) error (_("No symbol \"%s\" in specified context."), copy_name ($3)); + if (symbol_read_needs_frame (sym)) + { + if (innermost_block == 0 + || contained_in (block_found, + innermost_block)) + innermost_block = block_found; + } write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo index 2f4aa4f..d1a2dde 100644 --- a/gdb/doc/gdb.texinfo +++ b/gdb/doc/gdb.texinfo @@ -7306,7 +7306,7 @@ scope is a single source file even if the current execution point is not in this file. But it is possible to have more than one such variable or function with the same name (in different source files). If that happens, referring to that name has unpredictable effects. If you wish, -you can specify a static variable in a particular function or file, +you can specify a static variable in a particular function or file by using the colon-colon (@code{::}) notation: @cindex colon-colon, context for variables/functions @@ -7329,8 +7329,48 @@ to print a global value of @code{x} defined in @file{f2.c}: (@value{GDBP}) p 'f2.c'::x @end smallexample +The @code{::} notation is normally used for referring to +static variables, since you typically disambiguate uses of local variables +in functions by selecting the appropriate frame and using the +simple name of the variable. However, you may also use this notation +to refer to local variables in frames enclosing the selected frame: + +@smallexample +void +foo (int a) +@{ + if (a < 10) + bar (a); + else + process (a); /* Stop here */ +@} + +int +bar (int a) +@{ + foo (a + 5); +@} +@end smallexample + +@noindent +If you have a breakpoint at the commented line +when the program executes the call @code{bar(0)}, then when the program +stops, the commands + +@smallexample +(@value{GDBP}) p a +(@value{GDBP}) p bar::a +(@value{GDBP}) up 2 +(@value{GDBP}) p a +(@value{GDBP}) p bar::a +@end smallexample + +@noindent +will print the values @samp{10}, @samp{5}, @samp{5}, and @samp{0} in that +order. + @cindex C@t{++} scope resolution -This use of @samp{::} is very rarely in conflict with the very similar +These uses of @samp{::} are very rarely in conflict with the very similar use of the same notation in C@t{++}. @value{GDBN} also supports use of the C@t{++} scope resolution operator in @value{GDBN} expressions. @c FIXME: Um, so what happens in one of those rare cases where it's in diff --git a/gdb/m2-exp.y b/gdb/m2-exp.y index 1e3e3cb..d59678b 100644 --- a/gdb/m2-exp.y +++ b/gdb/m2-exp.y @@ -588,6 +588,13 @@ variable: block COLONCOLON NAME if (sym == 0) error (_("No symbol \"%s\" in specified context."), copy_name ($3)); + if (symbol_read_needs_frame (sym)) + { + if (innermost_block == 0 + || contained_in (block_found, + innermost_block)) + innermost_block = block_found; + } write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ diff --git a/gdb/objc-exp.y b/gdb/objc-exp.y index 346b404..00e5e7f 100644 --- a/gdb/objc-exp.y +++ b/gdb/objc-exp.y @@ -648,6 +648,13 @@ variable: block COLONCOLON name if (sym == 0) error (_("No symbol \"%s\" in specified context."), copy_name ($3)); + if (symbol_read_needs_frame (sym)) + { + if (innermost_block == 0 + || contained_in (block_found, + innermost_block)) + innermost_block = block_found; + } write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */