[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	basic-macros.lisp 
Log Message:
Add an optional eax-form argument to halt-cpu.

Date: Wed Aug 18 15:35:45 2004
Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp
diff -u movitz/losp/muerte/basic-macros.lisp:1.37 movitz/losp/muerte/basic-macros.lisp:1.38
--- movitz/losp/muerte/basic-macros.lisp:1.37	Sat Aug 14 10:53:25 2004
+++ movitz/losp/muerte/basic-macros.lisp	Wed Aug 18 15:35:45 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: basic-macros.lisp,v 1.37 2004/08/14 17:53:25 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.38 2004/08/18 22:35:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1013,9 +1013,11 @@
     `(with-inline-assembly (:returns :untagged-fixnum-ecx)
        (:globally (:movl (:edi (:edi-offset ,name)) :ecx)))))
 
-(define-compiler-macro halt-cpu ()
+(define-compiler-macro halt-cpu (&optional eax-form)
   (let ((infinite-loop-label (make-symbol "infinite-loop")))
     `(with-inline-assembly (:returns :nothing)
+       ,@(when eax-form
+	   `((:compile-form (:result-mode :eax) ,eax-form)))
        ,infinite-loop-label
        (:halt)
        (:jmp ',infinite-loop-label))))