From: Stu Grossman <grossman@cygnus>
Date: Mon, 19 Dec 1994 17:58:11 +0000 (+0000)
Subject: 	* gdbtk.tcl (update_assembly):  Force update to make sure that pc
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0af608b8a11f9d8bf758d6cfd7d30538b6b70d1d;p=binutils-gdb.git

	* gdbtk.tcl (update_assembly):  Force update to make sure that pc
	is visible when creating new assembly windows.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1b26e2619dd..05846b2e7fa 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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)
 
 	* gdbtk.c (gdbtk_wait gdbtk_init):  Use different method of
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 82610d7153c..8e880059e7f 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1452,6 +1452,7 @@ proc update_assembly {linespec} {
 			-after .asm.scroll
 		.asm.scroll configure -command "$win yview"
 		set line [pc_to_line $pclist($cfunc) $pc]
+		update
 		$win yview [expr $line - $asm_screen_height / 2]
 		}