[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

20 Jul 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv18432
Modified Files:
    primitive-functions.lisp 
Log Message:
Cleaned up most ":int 107" instances. Now, we mostly use the
semi-standardized ":int 64" which means that the value in EAX wasn't
integer. The default interrupt-handler understands this and signals
the appropriate error.
Date: Tue Jul 20 01:54:38 2004
Author: ffjeld
Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.30 movitz/losp/muerte/primitive-functions.lisp:1.31

--- movitz/losp/muerte/primitive-functions.lisp:1.30	Fri Jul 16 18:54:12 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Tue Jul 20 01:54:38 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.30 2004/07/17 01:54:12 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.31 2004/07/20 08:54:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -530,7 +530,7 @@
     (:locally (:movl (:edi (:edi-offset nursery-space)) :eax))
     (:testb 7 :al)
     (:jnz '(:sub-program ()
-	    (:int 107)))))
+	    (:int 63)))))
(defun malloc-cons-pointer ()
   "Return current cons-pointer in 8-byte units since buffer-start."
@@ -633,10 +633,8 @@
    	   :ecx)
        (:ret)
       fail
-	    (:int 107))))
+	    (:int 64))))
     (do-it)))
-
-
;;;;

    