[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gdb-ui.el problem on gdb-toggle-breakpoint
From: |
Makoto Fujiwara |
Subject: |
gdb-ui.el problem on gdb-toggle-breakpoint |
Date: |
Tue, 29 Jun 2004 22:24:37 +0900 |
User-agent: |
Wanderlust/2.11.30 (Wonderwall) SEMI/1.14.5 (Awara-Onsen) FLIM/1.14.5 (Demachiyanagi) APEL/10.6 Emacs/21.3.50 (powerpc-unknown-netbsd1.6ZI) MULE/5.0 (賢木) |
Symptoms:
In the gdb session, the gdb-toggle-breakpoint function
does not toggle enable/disable.
I have looked at little bit inside of gdb-ui.el, and
it worked if following patch applied.
The code referred is CVS version as of checked out 2004-06-27
or around.
Makoto Fujiwara ( makoto at ki dot nu ),
Index: gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.19
diff -u -r1.19 gdb-ui.el
--- gdb-ui.el 30 May 2004 00:09:37 -0000 1.19
+++ gdb-ui.el 29 Jun 2004 13:11:14 -0000
@@ -1199,18 +1199,18 @@
(defun gdb-toggle-breakpoint ()
"Enable/disable the breakpoint at current line."
(interactive)
- (save-excursion
+; (save-excursion
(beginning-of-line 1)
(if (not (looking-at "\\([0-9]+\\).*point\\s-*\\S-*\\s-*\\(.\\)"))
(error "Not recognized as break/watchpoint line")
- (gdb-enqueue-input
- (list
- (concat
- (if (eq ?y (char-after (match-beginning 2)))
- gdb-server-prefix "disable "
- gdb-server-prefix "enable ")
- (match-string 1) "\n")
- 'ignore)))))
+ (let ((match (match-string 1))
+ (cmd
+ (if (eq ?y (char-after (match-beginning 2)))
+ "disable "
+ "enable ")))
+ (gdb-enqueue-input
+ (list (concat gdb-server-prefix cmd match "\n")
+ 'ignore ))))
(defun gdb-delete-breakpoint ()
"Delete the breakpoint at current line."
In GNU Emacs 21.3.50.2 (powerpc-unknown-netbsd1.6ZI, X toolkit, Xaw3d scroll
bars)
of 2004-06-26 on harry
configured using `configure '--prefix=/export/emacs''
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: ja_JP.eucJP
locale-coding-system: japanese-iso-8bit
default-enable-multibyte-characters: t
Major mode: Apropos
Minor modes in effect:
recentf-mode: t
auto-image-file-mode: t
auto-insert-mode: t
display-time-mode: t
show-paren-mode: t
tool-bar-mode: t
menu-bar-mode: t
global-font-lock-mode: t
font-lock-mode: t
unify-8859-on-encoding-mode: t
utf-translate-cjk-mode: t
column-number-mode: t
line-number-mode: t
Recent input:
a p o r SPC DEL DEL r o SPC <return> b u g <return>
C-x o C-x o C-x 1 C-s r e p o C-s C-s C-s C-s C-s s
s s C-p C-s C-s r e p o C-p C-s r e p o r t C-s C-s
C-s C-s C-s <home> C-s C-s C-s C-s C-s C-s C-s C-s
M-x e r a p o DEL DEL DEL DEL DEL p r e DEL DEL r e
p o DEL DEL DEL DEL DEL r e p o SPC r SPC e m SPC SPC
<return>
Recent messages:
call-interactively: End of file during parsing
Auto-saving...done
Making completion list... [3 times]
Quit
Loading apropos...done
Mark saved where search started [2 times]
Mark set
Mark saved where search started
Making completion list...
Loading emacsbug...done
- gdb-ui.el problem on gdb-toggle-breakpoint,
Makoto Fujiwara <=