# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1117433461 0
# Node ID ab597e7c8a070713302b1c47b0b9848fd8cd5540
# Parent  bc27adf64f40fc4b7229ce950202fa40b806981c
(gdb-toggle-breakpoint): Make regexp more robust.
(gdb-display-assembler-buffer, gdb-frame-assembler-buffer):
Force regeneration of disassembly.

diff -r bc27adf64f40 -r ab597e7c8a07 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Mon May 30 06:10:14 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Mon May 30 06:11:01 2005 +0000
@@ -1446,9 +1446,9 @@
   (save-excursion
     (beginning-of-line 1)
     (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
-	    (looking-at "\\([0-9]+\\).*point\\s-*\\S-*\\s-*\\(.\\)")
+	    (looking-at "\\([0-9]+\\).*?point\\s-+\\S-+\\s-+\\(.\\)\\s-+")
 	  (looking-at
-     "\\([0-9]+\\)\\s-*\\S-*\\s-*\\S-*\\s-*\\(.\\)\\s-*\\S-*\\s-*\\S-*:[0-9]+"))
+     "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)\\s-+\\S-+\\s-+\\S-+:[0-9]+"))
 	(gdb-enqueue-input
 	 (list
 	  (concat gdb-server-prefix
@@ -2554,12 +2554,14 @@
 (defun gdb-display-assembler-buffer ()
   "Display disassembly view."
   (interactive)
+  (setq gdb-previous-frame nil)
   (gdb-display-buffer
    (gdb-get-create-buffer 'gdb-assembler-buffer)))
 
 (defun gdb-frame-assembler-buffer ()
   "Display disassembly view in a new frame."
   (interactive)
+  (setq gdb-previous-frame nil)
   (let ((special-display-regexps (append special-display-regexps '(".*")))
 	(special-display-frame-alist gdb-frame-parameters))
     (display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))))