Mercurial > emacs
comparison lisp/gud.el @ 8172:1eb5638ab4b5
(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 |