From 30753a60af11e4c395864886caf8a3c7a23f7896 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 24 May 1991 19:39:59 +0000
Subject: [PATCH] Count the instruction bytes instead of costs.

---
 compiler/statcount.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/compiler/statcount.lisp b/compiler/statcount.lisp
index 7c7d8fe94..db4200eef 100644
--- a/compiler/statcount.lisp
+++ b/compiler/statcount.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.2 1991/02/20 14:59:51 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.3 1991/05/24 19:39:59 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.2 1991/02/20 14:59:51 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.3 1991/05/24 19:39:59 wlott Exp $
 ;;;
 ;;; Functions and utilities for collecting statistics on static vop usages.
 ;;;
@@ -63,7 +63,8 @@
 					 (if elsewherep 3 2))
 				  count))
 			*code-segment*
-			*elsewhere*))
+			*elsewhere*
+			:size))
   (undefined-value))
 
 
@@ -105,7 +106,9 @@
 			  :key (ecase sort-by
 				 (:name #'(lambda (x) (svref x 0)))
 				 (:count #'(lambda (x) (svref x 1)))
-				 (:size #'(lambda (x) (svref x 2))))))
+				 (:size #'(lambda (x)
+					    (+ (svref x 2)
+					       (svref x 3)))))))
 	(when cut-off
 	  (if (zerop cut-off)
 	      (return)
@@ -129,8 +132,8 @@
 		  (/ (coerce size 'double-float) total-size)
 		  w/o-elsewhere
 		  (/ (coerce w/o-elsewhere 'double-float) w/o-elsewhere-size)
-		  (truncate size count)
-		  (truncate w/o-elsewhere count))))))
+		  (round size count)
+		  (round w/o-elsewhere count))))))
   (values))
 
 (defun save-vop-counts (filename)
-- 
GitLab