[movitz-cvs] CVS update: movitz/losp/muerte/cpu-id.lisp

[Frode Vatvedt Fjeld]

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 at 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.