This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[patch] yet another 64-bit patch
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: insight <insight at sources dot redhat dot com>
- Date: Tue, 24 Sep 2002 15:22:29 -0700
- Subject: [patch] yet another 64-bit patch
Checked in another 64-bit fix.
2002-09-24 Martin M. Hunt <hunt@redhat.com>
* library/srctextwin.itb (FillMixed): Fix debug
statement for 64-bit.
(_highlightAsmLine): Fix 64-bit arithmetic.
Index: srctextwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srctextwin.itb,v
retrieving revision 1.36
diff -u -u -r1.36 srctextwin.itb
--- srctextwin.itb 20 Sep 2002 06:12:28 -0000 1.36
+++ srctextwin.itb 24 Sep 2002 22:15:15 -0000
@@ -1091,7 +1091,7 @@
set mode_changed 0
set oldpane $pane
if {[LoadFromCache $w $funcname M $lib]} {
- # debug [format "Disassembling at %x" $addr]
+ # debug "Disassembling at $addr"
if {[catch {gdb_load_disassembly $win source \
[scope _map] $Cname $addr} mess] } {
# print some intelligent error message
@@ -1134,7 +1134,7 @@
if {[info exists _map($Cname,pc=$addr)]} {
set current(asm_line) $_map($Cname,pc=$addr)
} else {
- set x [format "0x%x" [expr $current(addr)-2]]
+ set x [gdb_incr_addr $current(addr) -2]
if {[info exists _map($Cname,pc=$x)]} {
set current(asm_line) $_map($Cname,pc=$x)
}