Fix execution_direction's type

[deliverable/binutils-gdb.git] / gdb / f-exp.y

diff --git a/gdb/f-exp.y b/gdb/f-exp.y
index 3c486ef1f4dd180ef23e7a24acb51bb91d316067..56629dc40c0d25c84836e88c3ca114d499a293e6 100644 (file)
--- a/gdb/f-exp.y
+++ b/gdb/f-exp.y
@@ -521,10 +521,7 @@ variable:  name_not_typename
                                    innermost_block = sym.block;
                                }
                              write_exp_elt_opcode (pstate, OP_VAR_VALUE);
-                             /* We want to use the selected frame, not
-                                another more inner frame which happens to
-                                be in the same block.  */
-                             write_exp_elt_block (pstate, NULL);
+                             write_exp_elt_block (pstate, sym.block);
                              write_exp_elt_sym (pstate, sym.symbol);
                              write_exp_elt_opcode (pstate, OP_VAR_VALUE);
                              break;