From b4b588ee933548ca8a963ec4808a7e18e05f6a69 Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Thu, 6 Mar 2003 04:34:51 +0000 Subject: [PATCH] 2003-03-05 Martin M. Hunt * library/srctextwin.itb (SrcTextWin::FillAssembly): Remove unused variables asm_lo_addr and asm_hi_addr. (FillMixed): Ditto. --- gdb/gdbtk/ChangeLog | 6 ++++++ gdb/gdbtk/library/srctextwin.itb | 8 ++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index cd528dbd54..d7326bf1b0 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,11 @@ 2003-03-05 Martin M. Hunt + * library/srctextwin.itb (SrcTextWin::FillAssembly): + Remove unused variables asm_lo_addr and asm_hi_addr. + (FillMixed): Ditto. + +2003-03-05 Martin M. Hunt + * generic/gdbtk-cmds.c (Gdbtk_Init): Create gdb_CA_to_TAS. (gdb_load_disassembly): Now takes CORE_ADDRs. Returns CORE_ADDRs for low and high. diff --git a/gdb/gdbtk/library/srctextwin.itb b/gdb/gdbtk/library/srctextwin.itb index a08739cede..68e1575b7d 100644 --- a/gdb/gdbtk/library/srctextwin.itb +++ b/gdb/gdbtk/library/srctextwin.itb @@ -1043,8 +1043,7 @@ itcl::body SrcTextWin::FillAssembly {w tagname filename funcname line addr pc_ad $itk_interior.p show $pane } } else { - foreach {asm_lo_addr asm_hi_addr} $mess {break} - debug "Got low address: $asm_lo_addr and high: $asm_hi_addr" + debug "address range is $mess" } } elseif {$result == 0} { debug "LoadFromCache returned 0" @@ -1073,8 +1072,6 @@ itcl::body SrcTextWin::FillMixed {w tagname filename funcname line addr pc_addr upvar _${w}pane pane # debug "$win $tagname $filename $funcname $line $addr $pc_addr" - set asm_lo_addr "" - if {$funcname == ""} { set oldpane $pane set pane $Stwc(gdbtk_scratch_widget:pane) @@ -1107,8 +1104,7 @@ itcl::body SrcTextWin::FillMixed {w tagname filename funcname line addr pc_addr $parent mode "" ASSEMBLY return } else { - foreach {asm_lo_addr asm_hi_addr} $mess {break} - debug "Got low address: $asm_lo_addr and high: $asm_hi_addr" + debug "address range is $mess" } } set current(filename) $filename -- 2.11.0