mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-04 10:24:13 +00:00
* gdbtk.tcl (update_assembly): Force update to make sure that pc
is visible when creating new assembly windows.
This commit is contained in:
parent
28a2119fba
commit
0af608b8a1
@ -1,3 +1,8 @@
|
|||||||
|
Mon Dec 19 09:55:47 1994 Stu Grossman (grossman@cygnus.com)
|
||||||
|
|
||||||
|
* gdbtk.tcl (update_assembly): Force update to make sure that pc
|
||||||
|
is visible when creating new assembly windows.
|
||||||
|
|
||||||
Sun Dec 18 23:31:20 1994 Stu Grossman (grossman@cygnus.com)
|
Sun Dec 18 23:31:20 1994 Stu Grossman (grossman@cygnus.com)
|
||||||
|
|
||||||
* gdbtk.c (gdbtk_wait gdbtk_init): Use different method of
|
* gdbtk.c (gdbtk_wait gdbtk_init): Use different method of
|
||||||
|
@ -1452,6 +1452,7 @@ proc update_assembly {linespec} {
|
|||||||
-after .asm.scroll
|
-after .asm.scroll
|
||||||
.asm.scroll configure -command "$win yview"
|
.asm.scroll configure -command "$win yview"
|
||||||
set line [pc_to_line $pclist($cfunc) $pc]
|
set line [pc_to_line $pclist($cfunc) $pc]
|
||||||
|
update
|
||||||
$win yview [expr $line - $asm_screen_height / 2]
|
$win yview [expr $line - $asm_screen_height / 2]
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user