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

Modified Files: more-macros.lisp Log Message: Removed dead code.

Date: Wed Sep 22 19:48:00 2004 Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.19 movitz/losp/muerte/more-macros.lisp:1.20 --- movitz/losp/muerte/more-macros.lisp:1.19 Wed Sep 15 12:22:59 2004 +++ movitz/losp/muerte/more-macros.lisp Wed Sep 22 19:48:00 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.19 2004/09/15 10:22:59 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.20 2004/09/22 17:48:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -340,16 +340,6 @@ (movitz::lu32 `(with-inline-assembly (:returns :untagged-fixnum-ecx) (:locally (:movl (:edi (:edi-offset ,slot-name)) :ecx)))))))) - -;;;(define-compiler-macro malloc-pointer-words (words) -;;; `(with-inline-assembly (:returns :eax :type pointer) -;;; (:compile-form (:result-mode :eax) ,words) -;;; (:call-local-pf malloc-pointer-words))) -;;; -;;;(define-compiler-macro malloc-non-pointer-words (words) -;;; `(with-inline-assembly (:returns :eax :type pointer) -;;; (:compile-form (:result-mode :eax) ,words) -;;; (:call-local-pf malloc-non-pointer-words)))

(define-compiler-macro read-time-stamp-counter () `(with-inline-assembly-case ()