From: Masatake YAMATO <jet@gyve.org>
Date: Sun, 24 Oct 2004 00:25:21 +0000 (+0000)
Subject: * progmodes/gdb-ui.el (gdb-assembler-font-lock-keywords): Handle
X-Git-Tag: ttn-vms-21-2-B4~4429
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3988d9c612c7589da4c4d8562ef998aeafca1020;p=emacs.git

* progmodes/gdb-ui.el (gdb-assembler-font-lock-keywords): Handle
periods and underscores in a function name.
Remove the address fontification.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b70c174cf76..0549967a0d8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-10-24  Masatake YAMATO  <jet@gyve.org>
+
+	* progmodes/gdb-ui.el (gdb-assembler-font-lock-keywords): Handle
+	periods and underscores in a function name.
+	Remove the address fontification.
+
 2004-10-24 Masatake YAMATO <jet@gyve.org>
 
 	* progmodes/asm-mode.el (asm-font-lock-keywords): Use
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 1cd2a5c9c89..64f8808c7f1 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -177,7 +177,7 @@ detailed description of this mode.
 
   (setq comint-input-sender 'gdb-send)
   ;;
-  ;; (re-)initialise
+  ;; (re-)initialize
   (setq gdb-current-address "main")
   (setq gdb-previous-address nil)
   (setq gdb-previous-frame nil)
@@ -1950,13 +1950,15 @@ BUFFER nil or omitted means use the current buffer."
     map))
 
 (defvar gdb-assembler-font-lock-keywords
-  '(("[^\$]0x[0-9a-f]+" . font-lock-constant-face)
-    ("^\\(0x*[0-9a-f]+\\) ?\\(<\\(\\sw+\\)\\+[0-9]+>\\)?:[ \t]+\\(\\sw+\\)"
-     (1 font-lock-constant-face) 
-     (3 font-lock-function-name-face) 
+  '(;; <__function.name+n>
+    ("<\\(\\(\\sw\\|[_.]\\)+\\)\\(\\+[0-9]+\\)?>"
+     (1 font-lock-function-name-face))
+    ;; 0xNNNNNNNN <__function.name+n>: opcode
+    ("^0x[0-9a-f]+ \\(<\\(\\(\\sw\\|[_.]\\)+\\)\\+[0-9]+>\\)?:[ \t]+\\(\\sw+\\)"
      (4 font-lock-keyword-face))
+    ;; %register(at least i386)
     ("%\\sw+" . font-lock-variable-name-face)
-    ("^\\(Dump of assembler code for function\\) \\(.+\\):" 
+    ("^\\(Dump of assembler code for function\\) \\(.+\\):"
      (1 font-lock-comment-face)
      (2 font-lock-function-name-face))
     ("^\\(End of assembler dump\\.\\)" . font-lock-comment-face))