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

Modified Files: io-port.lisp Log Message: Added (io-port :unsigned-byte32).

Date: Sat Aug 13 00:50:23 2005 Author: ffjeld

Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.14 movitz/losp/muerte/io-port.lisp:1.15 --- movitz/losp/muerte/io-port.lisp:1.14 Sat Aug 13 00:44:10 2005 +++ movitz/losp/muerte/io-port.lisp Sat Aug 13 00:50:22 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.14 2005/08/12 22:44:10 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.15 2005/08/12 22:50:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -46,6 +46,16 @@ (:shll ,movitz:+movitz-fixnum-shift+ :eax) (:movl :edi :edx) (:cld))) + (:unsigned-byte32 + `(with-inline-assembly (:returns :untagged-fixnum-ecx) + (:compile-form (:result-mode :edx) ,port) + (:std) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:inl :dx :eax) + (:movl :eax :ecx) + (:movl :edi :eax) + (:movl :edi :edx) + (:cld))) (:character `(with-inline-assembly (:returns :eax) (:compile-form (:result-mode :edx) ,port) @@ -64,6 +74,8 @@ (io-port port :unsigned-byte8)) (:unsigned-byte16 (io-port port :unsigned-byte16)) + (:unsigned-byte32 + (io-port port :unsigned-byte32)) (:character (io-port port :character))))