🚀 go-pugleaf

This was originally sent to bug-gdb, but is really about emacs.

Return-Path: <cire@cisco.com>
To: info-gdb@prep.ai.mit.edu
Cc: bug-gdb@prep.ai.mit.edu
Subject: GDB/EMACS break interface
Date: Fri, 10 Aug 90 18:06:57 MST
From: cire|eric <cire@cisco.com>


The command gdb-break is used to set a break point
when using gdb under emacs.  It didn't allow setting
a temporary breakpoint.  Does now.  Here are the
changes.

*** /tmp/,RCSt1a07088	Fri Aug 10 17:47:05 1990
--- gdb.el	Fri Aug 10 17:43:21 1990
***************
*** 339,353 ****
  	(delete-region (point) start)
  	(setq gdb-delete-prompt-marker nil))))
  
! (defun gdb-break ()
!   "Set GDB breakpoint at this source line."
!   (interactive)
    (let ((file-name (file-name-nondirectory buffer-file-name))
  	(line (save-restriction
  		(widen)
  		(1+ (count-lines 1 (point))))))
      (send-string (get-buffer-process current-gdb-buffer)
! 		 (concat "break " file-name ":" line "\n"))))
  
  (defun gdb-read-address()
    "Return a string containing the core-address found in the buffer at point."
--- 339,356 ----
  	(delete-region (point) start)
  	(setq gdb-delete-prompt-marker nil))))
  
! (defun gdb-break (temp)
!   "Set GDB breakpoint at this source line.  With ARG set temporary breakpoint"
!   (interactive "P")
    (let ((file-name (file-name-nondirectory buffer-file-name))
  	(line (save-restriction
  		(widen)
  		(1+ (count-lines 1 (point))))))
      (send-string (get-buffer-process current-gdb-buffer)
! 		 (concat (if temp
! 			     "tbreak "
! 			   "break ")
! 			 file-name ":" line "\n"))))
  
  (defun gdb-read-address()
    "Return a string containing the core-address found in the buffer at point."