This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
Re: [PATCH] update get_frame_block
- From: Jim Blandy <jimb at redhat dot com>
- To: Keith Seitz <keiths at redhat dot com>
- Cc: Insight Maling List <insight at sources dot redhat dot com>
- Date: 06 Apr 2002 19:17:19 -0500
- Subject: Re: [PATCH] update get_frame_block
- References: <Pine.GSO.4.33.0204051422280.10966-100000@makita.cygnus.com>
Ouch! Sorry about that. As is now apparent, I did the work on a GDB
module, not an Insight module.
Keith Seitz <keiths@redhat.com> writes:
> Hi,
>
> This patch updates calls to get_frame_block to match recent API changes in
> gdb.
>
> Keith
>
> ChangeLog
> 2002-04-05 Keith Seitz <keiths@redhat.com>
>
> * generic/gdbtk-stack.c (gdb_block_vars): Update get_frame_block to
> match recent gdb changes.
> (gdb_get_blocks): Likewise.
> (gdb_get_vars_command): Likewise.
> (gdb_selected_block): Likewise.
>
> Patch
> Index: generic/gdbtk-stack.c
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-stack.c,v
> retrieving revision 1.7
> diff -p -r1.7 gdbtk-stack.c
> *** generic/gdbtk-stack.c 2002/02/07 21:56:07 1.7
> --- generic/gdbtk-stack.c 2002/04/05 22:23:34
> *************** gdb_block_vars (ClientData clientData, T
> *** 105,111 ****
> start = string_to_core_addr (Tcl_GetStringFromObj (objv[1], NULL));
> end = string_to_core_addr (Tcl_GetStringFromObj (objv[2], NULL));
>
> ! block = get_frame_block (selected_frame);
>
> while (block != 0)
> {
> --- 105,111 ----
> start = string_to_core_addr (Tcl_GetStringFromObj (objv[1], NULL));
> end = string_to_core_addr (Tcl_GetStringFromObj (objv[2], NULL));
>
> ! block = get_frame_block (selected_frame, 0);
>
> while (block != 0)
> {
> *************** gdb_get_blocks (ClientData clientData, T
> *** 169,175 ****
>
> if (selected_frame != NULL)
> {
> ! block = get_frame_block (selected_frame);
> pc = get_frame_pc (selected_frame);
> while (block != 0)
> {
> --- 169,175 ----
>
> if (selected_frame != NULL)
> {
> ! block = get_frame_block (selected_frame, 0);
> pc = get_frame_pc (selected_frame);
> while (block != 0)
> {
> *************** gdb_get_vars_command (ClientData clientD
> *** 316,322 ****
> if (selected_frame == NULL)
> return TCL_OK;
>
> ! block = get_frame_block (selected_frame);
> }
>
> while (block != 0)
> --- 316,322 ----
> if (selected_frame == NULL)
> return TCL_OK;
>
> ! block = get_frame_block (selected_frame, 0);
> }
>
> while (block != 0)
> *************** gdb_selected_block (ClientData clientDat
> *** 389,395 ****
> else
> {
> struct block *block;
> ! block = get_frame_block (selected_frame);
> xasprintf (&start, "0x%s", paddr_nz (BLOCK_START (block)));
> xasprintf (&end, "0x%s", paddr_nz (BLOCK_END (block)));
> }
> --- 389,395 ----
> else
> {
> struct block *block;
> ! block = get_frame_block (selected_frame, 0);
> xasprintf (&start, "0x%s", paddr_nz (BLOCK_START (block)));
> xasprintf (&end, "0x%s", paddr_nz (BLOCK_END (block)));
> }