Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv4705

Modified Files: pci.lisp Log Message: tweak.

Date: Fri Aug 12 08:34:37 2005 Author: ffjeld

Index: movitz/losp/x86-pc/pci.lisp diff -u movitz/losp/x86-pc/pci.lisp:1.9 movitz/losp/x86-pc/pci.lisp:1.10 --- movitz/losp/x86-pc/pci.lisp:1.9 Thu Aug 11 23:17:11 2005 +++ movitz/losp/x86-pc/pci.lisp Fri Aug 12 08:34:35 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sun Dec 14 22:33:42 2003 ;;;; -;;;; $Id: pci.lisp,v 1.9 2005/08/11 21:17:11 ffjeld Exp $ +;;;; $Id: pci.lisp,v 1.10 2005/08/12 06:34:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -53,8 +53,8 @@ (defvar *bios32-base* nil) (defvar *pcibios-entry* nil)

-(defun pci-far-call (address &key (cs 8) (eax 0) (ebx 0) (ecx 0) (edx 0) (esi 0) (edi 0) - (ds (segment-register :gs))) +(defun pci-far-call (address &key (eax 0) (ebx 0) (ecx 0) (edx 0) (esi 0) (edi 0) + (cs 8) (ds (segment-register :gs))) "Make a 'far call' to cs:address with the provided values for eax and ebx. Returns the boolean status of CF, and the values of registers EAX, EBX, ECX, and EDX. The stack discipline is broken during this call, so we disable interrupts