Mercurial > emacs
comparison lisp/gud.el @ 8322:faedd07b38ed
(dbx): Use system-configuration, not system-type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Jul 1994 20:01:13 +0000 |
| parents | 1eb5638ab4b5 |
| children | 8217ec286828 |
comparison
equal
deleted
inserted
replaced
| 8321:ee7b758d2efa | 8322:faedd07b38ed |
|---|---|
| 633 "\C-b" "Set breakpoint at current line.") | 633 "\C-b" "Set breakpoint at current line.") |
| 634 (gud-def gud-finish "return" "\C-f" "Finish executing current function.") | 634 (gud-def gud-finish "return" "\C-f" "Finish executing current function.") |
| 635 ;; Make dbx give out the source location info that we need. | 635 ;; Make dbx give out the source location info that we need. |
| 636 (process-send-string (get-buffer-process gud-comint-buffer) | 636 (process-send-string (get-buffer-process gud-comint-buffer) |
| 637 "printf \"\032\032%1d:\",$curline;file\n")) | 637 "printf \"\032\032%1d:\",$curline;file\n")) |
| 638 ((or (string-match "-sunos" (symbol-name system-type)) | 638 ((or (string-match "-sunos" system-configuration) |
| 639 (string-match "-solaris" (symbol-name system-type))) | 639 (string-match "-solaris" system-configuration)) |
| 640 ;; The following works for both the UCB and SunPro 2.0.1 versions | 640 ;; The following works for both the UCB and SunPro 2.0.1 versions |
| 641 ;; of dbx. The `stop' is lost using the `\n' separator as in the | 641 ;; of dbx. The `stop' is lost using the `\n' separator as in the |
| 642 ;; default case. Is there a dbx where the newline is actually | 642 ;; default case. Is there a dbx where the newline is actually |
| 643 ;; necessary? (d.love@dl.ac.uk) | 643 ;; necessary? (d.love@dl.ac.uk) |
| 644 (gud-def gud-break "file \"%d%f\";stop at %l" | 644 (gud-def gud-break "file \"%d%f\";stop at %l" |