Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12266

Modified Files: typep.lisp Log Message: Added vector-u32 type.

Date: Thu Feb 26 08:43:01 2004 Author: ffjeld

Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.2 movitz/losp/muerte/typep.lisp:1.3 --- movitz/losp/muerte/typep.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/typep.lisp Thu Feb 26 08:43:00 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.3 2004/02/26 13:43:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -151,7 +151,7 @@ (:cmpw ,type-code (:eax ,(bt:slot-offset 'movitz::movitz-funobj 'movitz::type))) (:branch-when :boolean-zf=1) - function-typep-failed) + function-typep-failed) (do-case (t :boolean-zf=1 :labels (function-typep-failed)) (:compile-form (:result-mode :eax) ,object) (:leal (:eax ,(- (movitz::tag :other))) :ecx) @@ -159,11 +159,11 @@ (:jne 'function-typep-failed) (:cmpw ,type-code (:eax ,(bt:slot-offset 'movitz::movitz-funobj 'movitz::type))) - function-typep-failed))))) + function-typep-failed))))) (if (not (movitz:movitz-constantp type-specifier env)) form (let ((type (movitz::translate-program (movitz::eval-form type-specifier env) - :muerte.cl :cl))) + :muerte.cl :cl))) (or (cond ((symbolp type) (case type @@ -201,7 +201,7 @@ `(with-inline-assembly (:returns :boolean-zf=0) (:compile-form (:result-mode :eax) ,object) (:leal (:eax -1) :ecx) - (:testb 7 :cl))) ; tag 1 is not atom. + (:testb 7 :cl))) ; tag 1 is not atom. (character `(with-inline-assembly (:returns :boolean-zf=1) (:compile-form (:result-mode :eax) ,object) @@ -218,6 +218,8 @@ (make-vector-typep :u8)) (vector-u16 (make-vector-typep :u16)) + (vector-u32 + (make-vector-typep :u32)) (run-time-context (make-other-typep :run-time-context)) (structure-object