This is the mail archive of the insight@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[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)
     }

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]