From: Dmitry Dzhus <dima@sphinx.net.ru>
Date: Sun, 9 Aug 2009 00:17:01 +0000 (+0000)
Subject: (gdb-gud-context-call): Does not need to be a macro.
X-Git-Tag: emacs-pretest-23.1.90~1908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2db0ae07bce8513db2975836d6e20bfdee9c5f1c;p=emacs.git

(gdb-gud-context-call): Does not need to be a macro.
(gdb-registers-handler-custom): Do not fail when register names
are unavailable.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6213ebcab2..58a607bc505 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-08-09  Dmitry Dzhus  <dima@sphinx.net.ru>
+
+	* progmodes/gdb-mi.el (gdb-gud-context-call): Does not need to be
+	a macro.
+	(gdb-registers-handler-custom): Do not fail when register names
+	are unavailable.
+
 2009-08-08  Dmitry Dzhus  <dima@sphinx.net.ru>
 
 	* progmodes/gdb-mi.el (gdb-control-all-threads)
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 5a8fde8203e..975908f2166 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -566,11 +566,11 @@ When `gdb-non-stop' is nil, return COMMAND unchanged."
     command))
 
 ;; TODO Document this. We use noarg when not in gud-def
-(defmacro gdb-gud-context-call (cmd1 &optional cmd2 noall noarg)
-  `(gud-call
-    (concat
-     (gdb-gud-context-command ,cmd1 ,noall)
-     ,cmd2) ,(when (not noarg) 'arg)))
+(defun gdb-gud-context-call (cmd1 &optional cmd2 noall noarg)
+  (gud-call
+   (concat
+    (gdb-gud-context-command cmd1 noall)
+    cmd2) (when (not noarg) 'arg)))
 
 ;;;###autoload
 (defun gdb (command-line)
@@ -3550,6 +3550,7 @@ member."
              (value (gdb-get-field register 'value))
              (register-name (nth (string-to-number register-number) 
                                  gdb-register-names)))
+        (when register-name
         (gdb-table-add-row
          table
          (list
@@ -3559,7 +3560,7 @@ member."
             value))
          `(mouse-face highlight
            help-echo "mouse-2: edit value"
-           gdb-register-name ,register-name))))
+           gdb-register-name ,register-name)))))
     (insert (gdb-table-string table " "))
     (setq mode-name
           (gdb-current-context-mode-name "Registers"))))