# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881530841 0
# Node ID 6bbf4a411f0769120bc336f1522170d88e5af200
# Parent  bfc68d8546f33b5c205e2ee8bedfab456c4416c5
(gud-mips-p): Fix regexp so it will match alphaev56-* too.

diff -r bfc68d8546f3 -r 6bbf4a411f07 lisp/gud.el
--- a/lisp/gud.el	Fri Dec 05 21:28:00 1997 +0000
+++ b/lisp/gud.el	Sun Dec 07 21:40:41 1997 +0000
@@ -577,7 +577,7 @@
       (string-match "^mips-[^-]*-riscos" system-configuration)
       ;; It's documented on OSF/1.3
       (string-match "^mips-[^-]*-osf1" system-configuration)
-      (string-match "^alpha-[^-]*-osf" system-configuration))
+      (string-match "^alpha[^-]*-[^-]*-osf" system-configuration))
   "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').")
 
 (defun gud-mipsdbx-massage-args (file args)