From 1a2e58050600401b9c4296fe4d7e4d083e118df1 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 1 Dec 2004 16:35:40 +0000 Subject: [PATCH] 0.8.17.12: D'oh d'oh d'oh. Unpatch profile.lisp which contained broken local modifications. Sorry. --- src/code/profile.lisp | 11 +++-------- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/src/code/profile.lisp b/src/code/profile.lisp index 97dba1f..48cd92a 100644 --- a/src/code/profile.lisp +++ b/src/code/profile.lisp @@ -162,7 +162,6 @@ (let ((dticks 0) (dconsing 0) (inner-enclosed-profiles 0)) - (declare (optimize (safety 0))) (declare (type unsigned-byte dticks dconsing)) (declare (type unsigned-byte inner-enclosed-profiles)) (aver (typep dticks 'unsigned-byte)) @@ -195,13 +194,9 @@ (pcounter-or-fixnum->integer *enclosed-profiles*)) (let ((net-dticks (fastbig- dticks *enclosed-ticks*))) (fastbig-incf-pcounter-or-fixnum ticks net-dticks)) - (let ((net-dconsing (fastbig- - (fastbig- dconsing - (pcounter-or-fixnum->integer - *enclosed-consing*)) - ;; three variables with value - ;; cells two bytes each. - (* 3 2 sb-vm:n-word-bytes)))) + (let ((net-dconsing (fastbig- dconsing + (pcounter-or-fixnum->integer + *enclosed-consing*)))) (fastbig-incf-pcounter-or-fixnum consing net-dconsing)) (fastbig-incf-pcounter-or-fixnum profiles inner-enclosed-profiles)))) diff --git a/version.lisp-expr b/version.lisp-expr index 808e77b..18f6ed0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.17.11" +"0.8.17.12" -- 1.7.10.4