Skip to content
Snippets Groups Projects
Commit b2d9becd authored by toy's avatar toy
Browse files

Fix a few typos/mistakes in the precise profiling update that changed

the return type of get-bytes-consed (inadvertently).  From Martin,
with a few typos fixed.
parent ede7bc95
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/gc.lisp,v 1.29 2002/11/07 16:07:23 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.30 2002/11/19 12:38:55 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -185,31 +185,25 @@
(setq *last-bytes-in-use* bytes))))
*total-bytes-consed*)
#+(or cgc gencgc)
(defun get-bytes-consed ()
"Returns the number of bytes consed since the first time this function
was called. The first time it is called, it returns zero."
(dfixnum:dfixnum-integer (get-bytes-consed-dfixnum)))
#-(or cgc gencgc)
(defun get-bytes-consed ()
(defun get-bytes-consed-dfixnum ()
"Returns the number of bytes consed since the first time this function
was called. The first time it is called, it returns zero."
(declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
(cond ((null *last-bytes-in-use*)
(setq *last-bytes-in-use* (dynamic-usage))
(setq *total-bytes-consed* 0))
(setq *total-bytes-consed* (dfixnum:make-dfixnum)))
(t
(let ((bytes (dynamic-usage)))
(incf *total-bytes-consed*
(the index (- bytes *last-bytes-in-use*)))
(dfixnum:dfixnum-inc-hf *total-bytes-consed*
(the index (- bytes *last-bytes-in-use*)))
(setq *last-bytes-in-use* bytes))))
*total-bytes-consed*)
#-(or cgc gencgc)
(defun get-bytes-consed-dfixnum ()
;; A plug until a direct implementation is available.
(dfixnum:dfixnum-make-from-number (get-bytes-consed)))
(defun get-bytes-consed ()
"Returns the number of bytes consed since the first time this function
was called. The first time it is called, it returns zero."
(dfixnum:dfixnum-integer (get-bytes-consed-dfixnum)))
;;;; Variables and Constants.
......
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