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

* src/code/profile.lisp (compute-time-overhead): Use

	without-package-locks.
parent 0bcc733e
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/profile.lisp,v 1.33 2003/04/30 15:41:59 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.34 2003/05/14 13:37:06 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -833,21 +833,22 @@ this, the functions are listed. If NIL, then always list the functions.")
(float quick-time-units-per-second)
(float timer-overhead-iterations))))))
(frob *call-overhead*)
(unwind-protect
(progn
(profile compute-time-overhead-aux)
(frob *total-profile-overhead*)
(decf *total-profile-overhead* *call-overhead*)
(let ((pinfo (profile-info-or-lose 'compute-time-overhead-aux)))
(multiple-value-bind (calls time)
(funcall (profile-info-read-time pinfo))
(declare (ignore calls))
(setq *internal-profile-overhead*
(/ (float time)
(float quick-time-units-per-second)
(float timer-overhead-iterations))))))
(unprofile compute-time-overhead-aux))))
(without-package-locks
(unwind-protect
(progn
(profile compute-time-overhead-aux)
(frob *total-profile-overhead*)
(decf *total-profile-overhead* *call-overhead*)
(let ((pinfo (profile-info-or-lose 'compute-time-overhead-aux)))
(multiple-value-bind (calls time)
(funcall (profile-info-read-time pinfo))
(declare (ignore calls))
(setq *internal-profile-overhead*
(/ (float time)
(float quick-time-units-per-second)
(float timer-overhead-iterations))))))
(unprofile compute-time-overhead-aux)))))
#+cmu
(pushnew #'(lambda ()
......
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