comparison lisp/gud.el @ 8645:8217ec286828

(dbx): Use newline, not semicolon, between file and stop cmds.

8644:ebda9d1e7d48

				  "\C-b" "Set breakpoint at current line.")
    (gud-def gud-finish "return"  "\C-f" "Finish executing current function.")
    ;; Make dbx give out the source location info that we need.
    (process-send-string (get-buffer-process gud-comint-buffer)
			 "printf \"\032\032%1d:\",$curline;file\n"))
   ((or (string-match "-sunos" system-configuration)
	(string-match "-solaris" system-configuration))
    ;; The following works for both the UCB and SunPro 2.0.1 versions
    ;; of dbx.  The `stop' is lost using the `\n' separator as in the
    ;; default case.  Is there a dbx where the newline is actually
    ;; necessary?  ([e-mail])
    (gud-def gud-break "file \"%d%f\";stop at %l"
				  "\C-b" "Set breakpoint at current line."))
   (t
    (gud-def gud-break "file \"%d%f\"\nstop at %l"
				  "\C-b" "Set breakpoint at current line.")))

  (gud-def gud-remove "clear %l"  "\C-d" "Remove breakpoint at current line")

8645:8217ec286828

				  "\C-b" "Set breakpoint at current line.")
    (gud-def gud-finish "return"  "\C-f" "Finish executing current function.")
    ;; Make dbx give out the source location info that we need.
    (process-send-string (get-buffer-process gud-comint-buffer)
			 "printf \"\032\032%1d:\",$curline;file\n"))
   (t
    (gud-def gud-break "file \"%d%f\"\nstop at %l"
				  "\C-b" "Set breakpoint at current line.")))

  (gud-def gud-remove "clear %l"  "\C-d" "Remove breakpoint at current line")