# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1215250599 0
# Node ID ca675825c4ef86167c94754e3caf74fc44f2e020
# Parent  cd65c90908c421293bfbaddffbf29a9f935893e1
(gud-gdb-get-stackframe): Allow absolute
filenames in stack trace (text command mode).

diff -r cd65c90908c4 -r ca675825c4ef lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Sat Jul 05 09:35:01 2008 +0000
+++ b/lisp/progmodes/gud.el	Sat Jul 05 09:36:39 2008 +0000
@@ -889,7 +889,7 @@
 		    (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e)
 		    (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e)))
 	      (if (not (string-match
-			"at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e))
+			"at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e))
 		  nil
 		(setcar newlst
 			(list (nth 0 (car newlst))
@@ -901,7 +901,7 @@
 	    (setq newlst
 		  (cons
 		   (if (string-match
-			"at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e)
+			"at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e)
 		       (list name num (match-string 1 e)
 			     (match-string 2 e))
 		     (list name num))