Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv20303

Modified Files: interrupt.lisp Log Message: Added mechanism for throwing type-error in 4 bytes of machine code.

--- /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2006/05/05 18:39:52 1.51 +++ /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2006/05/06 21:15:46 1.52 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.51 2006/05/05 18:39:52 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.52 2006/05/06 21:15:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -334,6 +334,10 @@ $eip $eax $ebx $ecx $edx) (dotimes (i 100000) (with-inline-assembly (:returns :nothing) (:nop)))) + (69 (error 'type-error + :datum (dereference $eax) + :expected-type (aref #(cons) + (dereference $ecx :unsigned-byte8)))) (70 (error "Unaligned memref access.")) ((5 55) (let* ((old-bottom (prog1 (%run-time-context-slot nil 'stack-bottom)