[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Thu Feb 26 11:18:29 UTC 2004
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv12032
Modified Files:
io-port.lisp
Log Message:
Fixed %io-port-write-succession for :16-bit.
Date: Thu Feb 26 06:18:29 2004
Author: ffjeld
Index: movitz/losp/muerte/io-port.lisp
diff -u movitz/losp/muerte/io-port.lisp:1.7 movitz/losp/muerte/io-port.lisp:1.8
--- movitz/losp/muerte/io-port.lisp:1.7 Tue Feb 3 05:02:59 2004
+++ movitz/losp/muerte/io-port.lisp Thu Feb 26 06:18:29 2004
@@ -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.7 2004/02/03 10:02:59 ffjeld Exp $
+;;;; $Id: io-port.lisp,v 1.8 2004/02/26 11:18:29 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -306,8 +306,8 @@
(:cmpl :ecx (:esp))
(:jbe 'end-io-read-loop)
(:inw :dx :ax)
- (:addl 1 :ecx)
- (:movw :ax (:ebx ,(+ offset -2) (:ecx 2)))
+ (:addl 2 :ecx)
+ (:movw :ax (:ebx ,(+ offset -2) :ecx))
(:jmp 'io-read-loop)
(:popl :eax) ; increment :esp, and put a lispval in :eax.
end-io-read-loop)))
@@ -439,8 +439,8 @@
io-read-loop
(:cmpl :ecx (:esp))
(:jbe 'end-io-read-loop)
- (:addl 1 :ecx)
- (:movw (:ebx ,(+ offset -2) (:ecx 2)) :ax)
+ (:addl 2 :ecx)
+ (:movw (:ebx ,(+ offset -2) :ecx) :ax)
(:outw :ax :dx)
(:jmp 'io-read-loop)
(:popl :eax) ; increment :esp, and put a lispval in :eax.
More information about the Movitz-cvs
mailing list