Mercurial > emacs

comparison lisp/gud.el @ 20425:6bbf4a411f07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-mips-p): Fix regexp so it will match alphaev56-* too.
author Karl Heuer <kwzh@gnu.org>
date Sun, 07 Dec 1997 21:40:41 +0000
parents 0b41c3dab3a7
children eccadd41e2a5
comparison
equal deleted inserted replaced
20424:bfc68d8546f3 20425:6bbf4a411f07
575 (or (string-match "^mips-[^-]*-ultrix" system-configuration) 575 (or (string-match "^mips-[^-]*-ultrix" system-configuration)
576 ;; We haven't tested gud on this system: 576 ;; We haven't tested gud on this system:
577 (string-match "^mips-[^-]*-riscos" system-configuration) 577 (string-match "^mips-[^-]*-riscos" system-configuration)
578 ;; It's documented on OSF/1.3 578 ;; It's documented on OSF/1.3
579 (string-match "^mips-[^-]*-osf1" system-configuration) 579 (string-match "^mips-[^-]*-osf1" system-configuration)
580 (string-match "^alpha-[^-]*-osf" system-configuration)) 580 (string-match "^alpha[^-]*-[^-]*-osf" system-configuration))
581 "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').") 581 "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').")
582 582
583 (defun gud-mipsdbx-massage-args (file args) 583 (defun gud-mipsdbx-massage-args (file args)
584 (cons "-emacs" args)) 584 (cons "-emacs" args))
585 585