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

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))))