Mercurial > emacs

comparison lisp/gud.el @ 8172:1eb5638ab4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-mips-p): Check for OSF system on Alpha also.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 Jul 1994 16:50:55 +0000
parents 842db6d87566
children faedd07b38ed
comparison
equal deleted inserted replaced
8171:750282040c17 8172:1eb5638ab4b5
457 (defvar gud-mips-p 457 (defvar gud-mips-p
458 (or (string-match "^mips-[^-]*-ultrix" system-configuration) 458 (or (string-match "^mips-[^-]*-ultrix" system-configuration)
459 ;; We haven't tested gud on this system: 459 ;; We haven't tested gud on this system:
460 (string-match "^mips-[^-]*-riscos" system-configuration) 460 (string-match "^mips-[^-]*-riscos" system-configuration)
461 ;; It's documented on OSF/1.3 461 ;; It's documented on OSF/1.3
462 (string-match "^mips-[^-]*-osf1" system-configuration)) 462 (string-match "^mips-[^-]*-osf1" system-configuration)
463 (string-match "^alpha-[^-]*-osf" system-configuration))
463 "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').") 464 "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').")
464 465
465 (defun gud-mipsdbx-massage-args (file args) 466 (defun gud-mipsdbx-massage-args (file args)
466 (cons "-emacs" (cons file args))) 467 (cons "-emacs" (cons file args)))
467 468