/[cmucl]/src/code/time.lisp
ViewVC logotype

Diff of /src/code/time.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by gerd, Sat Jul 26 17:42:32 2003 UTC revision 1.26 by rtoy, Sat Oct 9 01:08:11 2004 UTC
# Line 281  Line 281 
281                         (system:get-system-info)                         (system:get-system-info)
282      (values user sys faults (get-bytes-consed))))      (values user sys faults (get-bytes-consed))))
283    
284  #+(or pentium sparc-v9)  #+(or pentium sparc-v9 ppc)
285  (defun cycle-count/float ()  (defun cycle-count/float ()
286    (multiple-value-bind (lo hi)    (multiple-value-bind (lo hi)
287        (vm::read-cycle-counter)        (vm::read-cycle-counter)
288      (+ (* hi (expt 2.0d0 32)) lo)))      (+ (* hi (expt 2.0d0 32)) lo)))
289    
290  #-(or pentium sparc-v9)  #-(or pentium sparc-v9 ppc)
291  (defun cycle-count/float () 0.0)  (defun cycle-count/float () 0.0)
292    
293  (defvar *time-consing* nil)  (defvar *time-consing* nil)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5