Skip to content
Snippets Groups Projects
Commit ed92e5cc authored by gerd's avatar gerd
Browse files

* src/code/ntrace.lisp (trace-1): Encapsulate if

	can-set-function-end-breakpoint-p returns false.

	* src/code/debug-int.lisp (can-set-function-end-breakpoint-p):
	Return true of compiled-debug-function-returns is :standard.
parent a264fb69
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.103 2003/05/11 08:57:13 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.104 2003/07/21 13:41:53 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -3855,7 +3855,7 @@
(compiled-debug-function
(eq (c::compiled-debug-function-returns
(compiled-debug-function-compiler-debug-fun what))
:what))))
:standard))))
;;; These are unique objects created upon entry into a function by a
;;; :function-end breakpoint's starter hook. These are only created when users
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.27 2003/06/18 09:23:11 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.28 2003/07/21 13:41:53 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -422,7 +422,7 @@
(encapsulated
(if (eq (trace-info-encapsulated info) :default)
(let ((encapsulate-p
(or (di::can-set-function-end-breakpoint-p debug-fun)
(or (not (di::can-set-function-end-breakpoint-p debug-fun))
(encapsulate-by-package-p function-or-name))))
(ecase kind
(:compiled
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment