X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=97dba1fca12154f662314a1689b06eb5b29715db;hb=558e7ce44e6a8305474dc55adbdbc1f7119c9a5e;hp=48cd92a27d94084f0175ef69e256f78224cf48c9;hpb=75b52379bdc2269961af6a1308eca63610f38ac3;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 48cd92a..97dba1f 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -162,6 +162,7 @@
        (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))
@@ -194,9 +195,13 @@
 			 (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- dconsing
-						 (pcounter-or-fixnum->integer
-						  *enclosed-consing*))))
+		   (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))))
 		     (fastbig-incf-pcounter-or-fixnum consing net-dconsing))
 		   (fastbig-incf-pcounter-or-fixnum profiles
 						    inner-enclosed-profiles))))