Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29228
Modified Files: environment.lisp Log Message: Somewhat improved skew calculation in report-time.
Date: Fri Apr 23 11:02:59 2004 Author: ffjeld
Index: movitz/losp/muerte/environment.lisp diff -u movitz/losp/muerte/environment.lisp:1.6 movitz/losp/muerte/environment.lisp:1.7 --- movitz/losp/muerte/environment.lisp:1.6 Fri Apr 23 09:00:24 2004 +++ movitz/losp/muerte/environment.lisp Fri Apr 23 11:02:59 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Oct 20 00:41:57 2001 ;;;; -;;;; $Id: environment.lisp,v 1.6 2004/04/23 13:00:24 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.7 2004/04/23 15:02:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -132,9 +132,12 @@ (read-time-stamp-counter) (let* ((skew (or (get 'report-time 'skew) (setf (get 'report-time 'skew) - (multiple-value-bind (x-lo x-hi) - (read-time-stamp-counter) - (time-skew-measure start-mem x-lo x-hi))))) + (loop repeat 10 ; warm up caches. + as x = (multiple-value-bind (x-lo x-hi) + (read-time-stamp-counter) + (constantly-true 123) + (time-skew-measure start-mem x-lo x-hi)) + finally (return x))))) (clumps (- (malloc-cons-pointer) start-mem)) (delta-hi (- end-time-hi start-time-hi)) (delta-lo (- end-time-lo start-time-lo skew)))