Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23872

Modified Files: cpu-id.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc.

Date: Tue Jul 20 16:51:05 2004 Author: ffjeld

Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.6 movitz/losp/muerte/cpu-id.lisp:1.7 --- movitz/losp/muerte/cpu-id.lisp:1.6 Mon Jul 12 19:27:20 2004 +++ movitz/losp/muerte/cpu-id.lisp Tue Jul 20 16:51:05 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.6 2004/07/13 02:27:20 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.7 2004/07/20 23:51:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -204,17 +204,6 @@ (:cld) (:movl 2 :ecx) (:stc))) - -(define-compiler-macro read-time-stamp-counter () - `(with-inline-assembly-case () - (do-case (:register :same) - (:std) - (:rdtsc) - (:movl :edi :edx) - (:leal ((:eax ,movitz:+movitz-fixnum-factor+)) (:result-register)) - (:cld)) - (do-case (t :multiple-values) - (:compile-form (:result-mode :multiple-values) (no-macro-call read-time-stamp-counter))))) (defun clear-time-stamp-counter () "Reset the i686 time-stamp-counter.