This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[RFA] Register values "0x 12 34 56 78 12 34 56 78"
- To: insight at sources dot redhat dot com
- Subject: [RFA] Register values "0x 12 34 56 78 12 34 56 78"
- From: Keith Seitz <keiths at cygnus dot com>
- Date: Tue, 27 Feb 2001 10:36:55 -0800 (PST)
Hi,
This fixes a register value output bug on possibly several platforms. It
certainly fixes x86...
2001-02-27 Keith Seitz <kseitz@nwlink.com>
* generic/gdbtk-cmds.c (gdb_fetch_registers): Only
mark the result as generating a list if it really does
generate a list.
Keith
Index: gdbtk/generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.21
diff -p -p -r1.21 gdbtk-cmds.c
*** gdbtk/generic/gdbtk-cmds.c 2001/02/14 19:05:58 1.21
--- gdbtk/generic/gdbtk-cmds.c 2001/02/27 18:40:56
*************** gdb_fetch_registers (clientData, interp,
*** 1955,1964 ****
format = *(Tcl_GetStringFromObj (objv[0], NULL));
objv++;
!
! result_ptr->flags |= GDBTK_MAKES_LIST; /* Output the results as a list */
result = map_arg_registers (objc, objv, get_register, (void *) format);
! result_ptr->flags &= ~GDBTK_MAKES_LIST;
return result;
}
--- 1955,1965 ----
format = *(Tcl_GetStringFromObj (objv[0], NULL));
objv++;
! if (objc != 1)
! result_ptr->flags |= GDBTK_MAKES_LIST; /* Output the results as a list */
result = map_arg_registers (objc, objv, get_register, (void *) format);
! if (objc != 1)
! result_ptr->flags &= ~GDBTK_MAKES_LIST;
return result;
}