Commits

Anonymous committed c7f95a0

install gdbsrc.elc, fix ebola concat in gud.el

  • Participants
  • Parent commits 0d5795f

Comments (0)

Files changed (3)

+1999-05-12  Sam Mikes  <smikes@alumni.hmc.edu>
+ 
+	* gud.el: (gud-format-command) use `int-to-string' in concat         
+
+1999-05-04  Karl M. Hegbloom  <psu25682@odin.cc.pdx.edu>
+
+	* Makefile (ELCS): Add gdbsrc.elc
+
+1999-03-15  Adrian Aichner  <aichner@ecf.teradyne.com>
+
+	* gud.el (gud-format-command): Convert int-to-string before using
+	it in concat.  This makes "C-x SPC runs `gud-break'" work in
+	perl source code.
+
+1998-12-08  Adrian Aichner  <aichner@ecf.teradyne.com>
+
+	* gud.el (gud-perldb-marker-filter): Matching an optional DRIVE:
+	prefix in path for Windows.  Adjusting sub-expression match
+	numbers accordingly.
+
 1998-11-18  Charles G Waldman  <cgw@pgt.com>
 
 	* pdb.el:  fix gud-pdb-marker-filter so that pdb works
 
 # This XEmacs package contains independent single file lisp packages
 
-VERSION = 1.08
+VERSION = 1.09
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = debug
 REQUIRES = xemacs-base
 CATEGORY = prog
 
-ELCS = dbx.elc gdb.elc gdb-highlight.elc gud.elc history.elc pdb.elc
+ELCS = dbx.elc gdb.elc gdb-highlight.elc gdbsrc.elc gud.elc history.elc pdb.elc
 
 include ../../XEmacs.rules
 
     (let ((output ""))
 
       ;; Process all the complete markers in this chunk.
-      (while (string-match "^\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+      ;; On WindowsNT paths may contain DRIVE:, which requires an
+      ;; improved REGEXP.  This introduces an additional substring
+      ;; match.  APA
+      (while (string-match "^\032\032\\([a-zA-Z]:\\)?\\([^:\n]*\\):\\([0-9]*\\):.*\n"
 			   gud-perldb-marker-acc)
 	(setq
 
 	 ;; Extract the frame position from the marker.
 	 gud-last-frame
-	 (cons (substring gud-perldb-marker-acc (match-beginning 1) (match-end 1))
+        (cons (substring gud-perldb-marker-acc (match-beginning 2) (match-end 2))
 	       (string-to-int (substring gud-perldb-marker-acc
-					 (match-beginning 2)
-					 (match-end 2))))
+                                        (match-beginning 3)
+                                        (match-end 3))))
 
 	 ;; Append any text before the marker to the output we're going
 	 ;; to return - we don't include the marker in this text.
 		   (if insource
 		       (save-excursion
 			 (beginning-of-line)
-			 (save-restriction (widen) 
+			 (save-restriction (widen)
 					   (1+ (count-lines 1 (point)))))
 		     (cdr gud-last-frame))
 		   (substring str (match-beginning 2) (match-end 2)))))