From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32440 invoked by alias); 24 Sep 2002 22:23:33 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 32432 invoked from network); 24 Sep 2002 22:23:32 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sources.redhat.com with SMTP; 24 Sep 2002 22:23:32 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id g8OM5fi10626 for ; Tue, 24 Sep 2002 18:05:41 -0400 Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id g8OMNVf11805 for ; Tue, 24 Sep 2002 18:23:31 -0400 Received: from redhat.com (vpn50-7.rdu.redhat.com [172.16.50.7]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id g8OMNVJ29708 for ; Tue, 24 Sep 2002 18:23:31 -0400 Message-ID: <3D90E5A5.7070907@redhat.com> Date: Tue, 24 Sep 2002 15:23:00 -0000 From: "Martin M. Hunt" User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.1) Gecko/20020827 X-Accept-Language: en-us, en MIME-Version: 1.0 To: insight Subject: [patch] yet another 64-bit patch Content-Type: multipart/mixed; boundary="------------090604050009050105090500" X-SW-Source: 2002-q3/txt/msg00186.txt.bz2 This is a multi-part message in MIME format. --------------090604050009050105090500 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Content-length: 197 Checked in another 64-bit fix. 2002-09-24 Martin M. Hunt * library/srctextwin.itb (FillMixed): Fix debug statement for 64-bit. (_highlightAsmLine): Fix 64-bit arithmetic. --------------090604050009050105090500 Content-Type: text/plain; name="p" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="p" Content-length: 980 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) } --------------090604050009050105090500--