[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp

[Frode Vatvedt Fjeld]

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