From b2d9becdb81f03741bf4720691c0b26b6b370577 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Tue, 19 Nov 2002 12:38:55 +0000 Subject: [PATCH] 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. --- code/gc.lisp | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) diff --git a/code/gc.lisp b/code/gc.lisp index 017e042f4..77f62769d 100644 --- a/code/gc.lisp +++ b/code/gc.lisp @@ -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. -- GitLab