* blockframe.c (block_innermost_frame): Uncomment.

Return NULL if passed NULL.
	* frame.h: Declare it.
	* expression.h (union exp_element): Add field block.
	* parse.c (write_exp_elt_block): New function.
	* expression.h (OP_VAR_VALUE): Now takes additional struct block *.
	* *-exp.y: Write block for OP_VAR_VALUE.
	* eval.c, expprint.c, parse.c: Deal with block for OP_VAR_VALUE.
	* valops.c, value.h (value_of_variable), callers:
	Add second argument, for block.
This commit is contained in:
Jim Kingdon
1993-08-18 19:33:39 +00:00
parent e56ac0ba86
commit 479fdd26ee
9 changed files with 153 additions and 57 deletions

View File

@@ -724,10 +724,8 @@ find_pc_partial_function (pc, name, address, endaddr)
return 1;
}
/* Return the innermost stack frame executing inside of the specified block,
or zero if there is no such frame. */
#if 0 /* Currently unused */
/* Return the innermost stack frame executing inside of BLOCK,
or zero if there is no such frame. If BLOCK is NULL, just return NULL. */
FRAME
block_innermost_frame (block)
@@ -738,6 +736,9 @@ block_innermost_frame (block)
register CORE_ADDR start = BLOCK_START (block);
register CORE_ADDR end = BLOCK_END (block);
if (block == NULL)
return NULL;
frame = 0;
while (1)
{
@@ -750,8 +751,6 @@ block_innermost_frame (block)
}
}
#endif /* 0 */
#ifdef SIGCONTEXT_PC_OFFSET
/* Get saved user PC for sigtramp from sigcontext for BSD style sigtramp. */