April 2004 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18594 Modified Files: integers.lisp Log Message: (truncate x) should return x and 0. Date: Thu Apr 15 09:10:37 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.5 movitz/losp/muerte/integers.lisp:1.6 --- movitz/losp/muerte/integers.lisp:1.5 Thu Apr 15 09:08:50 2004 +++ movitz/losp/muerte/integers.lisp Thu Apr 15 09:10:37 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.5 2004/04/15 13:08:50 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.6 2004/04/15 13:10:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -741,7 +741,7 @@ (defun truncate (number &optional (divisor 1)) (numargs-case (1 (number) - number) + (values number 0)) (t (number divisor) (with-inline-assembly (:returns :multiple-values) (:compile-form (:result-mode :eax) number)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10967 Modified Files: integers.lisp Log Message: Removed truncate%2ops, better to use numargs-case in truncate. Date: Thu Apr 15 09:08:50 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.4 movitz/losp/muerte/integers.lisp:1.5 --- movitz/losp/muerte/integers.lisp:1.4 Wed Mar 31 21:12:22 2004 +++ movitz/losp/muerte/integers.lisp Thu Apr 15 09:08:50 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.4 2004/04/01 02:12:22 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.5 2004/04/15 13:08:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -701,27 +701,11 @@ ;;; Division -(define-compiler-macro truncate (number &optional (divisor 1)) +(define-compiler-macro truncate (&whole form number &optional (divisor 1)) `(do-result-mode-case () (:plural - (truncate%2ops ,number ,divisor)) + (no-macro-call ,@form)) (t (truncate%2ops%1ret ,number ,divisor)))) - -(defun truncate%2ops (number divisor) - (with-inline-assembly (:returns :multiple-values) - (:compile-form (:result-mode :eax) number) - (:compile-form (:result-mode :ebx) divisor) - (:movl :eax :ecx) - (:orl :ebx :ecx) - (:testb #.movitz::+movitz-fixnum-zmask+ :cl) - (:jnz '(:sub-program (not-integer) (:int 107))) - (:cdq :eax :edx) - (:idivl :ebx :eax :edx) - (:shll #.movitz::+movitz-fixnum-shift+ :eax) - (:movl :edx :ebx) - (:xorl :ecx :ecx) - (:movb 2 :cl) ; return values: qutient, remainder. - (:stc))) (defun truncate%2ops%1ret (number divisor) (with-inline-assembly (:returns :multiple-values) @@ -755,7 +739,24 @@ (t form))) (defun truncate (number &optional (divisor 1)) - (truncate number divisor)) + (numargs-case + (1 (number) + number) + (t (number divisor) + (with-inline-assembly (:returns :multiple-values) + (:compile-form (:result-mode :eax) number) + (:compile-form (:result-mode :ebx) divisor) + (:movl :eax :ecx) + (:orl :ebx :ecx) + (:testb #.movitz::+movitz-fixnum-zmask+ :cl) + (:jnz '(:sub-program (not-integer) (:int 107))) + (:cdq :eax :edx) + (:idivl :ebx :eax :edx) + (:shll #.movitz::+movitz-fixnum-shift+ :eax) + (:movl :edx :ebx) + (:xorl :ecx :ecx) + (:movb 2 :cl) ; return values: qutient, remainder. + (:stc))))) (defun round (number &optional (divisor 1))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv8903 Modified Files: primitive-functions.lisp Log Message: Slightly more efficient dynamic-store. Date: Thu Apr 15 09:07:24 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.11 movitz/losp/muerte/primitive-functions.lisp:1.12 --- movitz/losp/muerte/primitive-functions.lisp:1.11 Wed Apr 14 16:10:58 2004 +++ movitz/losp/muerte/primitive-functions.lisp Thu Apr 15 09:07:24 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.11 2004/04/14 20:10:58 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.12 2004/04/15 13:07:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -270,7 +270,8 @@ (:ret))) (define-primitive-function dynamic-store (symbol value) - "Store VALUE (ebx) in the dynamic binding of SYMBOL (eax)." + "Store VALUE (ebx) in the dynamic binding of SYMBOL (eax). + Preserves EBX and EAX." (with-inline-assembly (:returns :multiple-values) (:locally (:movl (:edi (:edi-offset dynamic-env)) :ecx)) (:jecxz 'no-binding) @@ -286,8 +287,7 @@ (:jne 'search-loop) ;; fall through on success success - (:leal (:ecx 8) :eax) ; location of binding value cell - (:movl :ebx (:eax)) ; Store VALUE in binding. + (:movl :ebx (:ecx 8)) ; Store VALUE in binding. (:ret) no-binding (:movl :ebx (:eax #.(bt:slot-offset 'movitz::movitz-symbol 'movitz::value)))

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7000 Modified Files: special-operators.lisp Log Message: Added special operator no-macro-call. (no-macro-call foo ...) is just like (foo ...), except no macro or compiler-macro is accepted as foo, only a regular function call. Date: Thu Apr 15 09:06:18 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.20 movitz/special-operators.lisp:1.21 --- movitz/special-operators.lisp:1.20 Wed Apr 14 19:20:24 2004 +++ movitz/special-operators.lisp Thu Apr 15 09:06:18 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.20 2004/04/14 23:20:24 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.21 2004/04/15 13:06:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1134,6 +1134,13 @@ (compiler-values ())) ;;; + +(define-special-operator muerte::no-macro-call (&all all &form form) + (destructuring-bind (operator &rest arguments) + (cdr form) + (compiler-call #'compile-apply-symbol + :forward all + :form (cons operator arguments)))) (define-special-operator muerte::do-result-mode-case (&all all &result-mode result-mode &form form) (loop for (cases . then-forms) in (cddr form)

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv2976 Modified Files: image.lisp Log Message: Move the initialization of the interrupt-handler array to inside dump-image, so that we can capture the function-value of interrupt-default-handler. Date: Thu Apr 15 09:04:52 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.22 movitz/image.lisp:1.23 --- movitz/image.lisp:1.22 Wed Apr 14 18:51:24 2004 +++ movitz/image.lisp Thu Apr 15 09:04:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.22 2004/04/14 22:51:24 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.23 2004/04/15 13:04:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -683,8 +683,6 @@ (ldb (byte 3 0) (image-nil-word *image*)) (tag :null)) (setf (image-constant-block *image*) (make-movitz-constant-block)) - (setf (movitz-constant-block-interrupt-handlers (image-constant-block *image*)) - (movitz-read (make-array 256 :initial-element 'muerte::interrupt-default-handler))) (setf (movitz-constant-block-interrupt-descriptor-table (image-constant-block *image*)) (movitz-read (make-initial-interrupt-descriptors))) (setf (image-t-symbol *image*) (movitz-read t)) @@ -726,6 +724,9 @@ (assert (plusp (dump-count *image*)))) (setf (movitz-symbol-value (movitz-read 'muerte:*build-number*)) (1+ *bootblock-build*)) + (let ((handler (movitz-env-symbol-function 'muerte::interrupt-default-handler))) + (setf (movitz-constant-block-interrupt-handlers (image-constant-block *image*)) + (movitz-read (make-array 256 :initial-element handler)))) (let ((load-address (image-start-address *image*))) (setf (image-cons-pointer *image*) (- load-address (image-ds-segment-base *image*))

1 0

[movitz-cvs] CVS update: movitz/bootblock.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv26156 Modified Files: bootblock.lisp Log Message: Make sure the parens are balanced! Date: Thu Apr 15 09:03:16 2004 Author: ffjeld Index: movitz/bootblock.lisp diff -u movitz/bootblock.lisp:1.6 movitz/bootblock.lisp:1.7 --- movitz/bootblock.lisp:1.6 Mon Jan 19 05:36:12 2004 +++ movitz/bootblock.lisp Thu Apr 15 09:03:16 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:47:19 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: bootblock.lisp,v 1.6 2004/01/19 10:36:12 ffjeld Exp $ +;;;; $Id: bootblock.lisp,v 1.7 2004/04/15 13:03:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -296,7 +296,7 @@ ;; Data welcome (% format 8 "Loading Movitz ~D..~% " ,(incf *bootblock-build*)) - entering (% format 8 "~% Enter..") + entering (% format 8 ")~% Enter..") error (% format 8 "Failed!)") track-start-msg (% format 8 "(") track-end-msg (% format 8 ")")

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv23234 Modified Files: compiler.lisp Log Message: Only insert stack-checks when the function also has its own stack-frame. Date: Thu Apr 15 06:45:06 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.46 movitz/compiler.lisp:1.47 --- movitz/compiler.lisp:1.46 Wed Apr 14 15:04:05 2004 +++ movitz/compiler.lisp Thu Apr 15 06:45:05 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.46 2004/04/14 19:04:05 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.47 2004/04/15 10:45:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -3859,7 +3859,7 @@ and do (setq need-normalized-ecx-p t)))))) (assert (not (minusp stack-setup-size))) (let ((stack-frame-init-code - (append (when (and do-check-stack-p + (append (when (and do-check-stack-p use-stack-frame-p *compiler-auto-stack-checks-p* (not (without-check-stack-limit-p env))) `((,*compiler-local-segment-prefix*

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 14 Apr '04

14 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv11592 Modified Files: special-operators.lisp Log Message: Commented out some experimental code for 'not' that's probably no good. Date: Wed Apr 14 19:20:25 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.19 movitz/special-operators.lisp:1.20 --- movitz/special-operators.lisp:1.19 Tue Apr 13 09:07:46 2004 +++ movitz/special-operators.lisp Wed Apr 14 19:20:24 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.19 2004/04/13 13:07:46 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.20 2004/04/14 23:20:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -665,21 +665,21 @@ (#.(append +boolean-modes+ '(:boolean-branch-on-true :boolean-branch-on-false)) (compiler-values (not-values) :returns (complement-boolean-result-mode not-returns))) - ((:eax :function :multiple-values :ebx :edx) - (case result-mode - ((:eax :ebx :ecx :edx :function :multiple-values) - (compiler-values (not-values) - :code (append (not-values :code) - `((:cmpl :edi ,(single-value-register not-returns)) - (:sbbl :ecx :ecx) - (:cmpl ,(1+ (image-nil-word *image*)) - ,(single-value-register not-returns)) - (:adcl 0 :ecx))) - :returns '(:boolean-ecx 1 0))) - (t (compiler-values (not-values) - :code (append (not-values :code) - `((:cmpl :edi ,(single-value-register not-returns)))) - :returns :boolean-zf=1)))) +;;; ((:eax :function :multiple-values :ebx :edx) +;;; (case result-mode +;;; ((:eax :ebx :ecx :edx :function :multiple-values) +;;; (compiler-values (not-values) +;;; :code (append (not-values :code) +;;; `((:cmpl :edi ,(single-value-register not-returns)) +;;; (:sbbl :ecx :ecx) +;;; (:cmpl ,(1+ (image-nil-word *image*)) +;;; ,(single-value-register not-returns)) +;;; (:adcl 0 :ecx))) +;;; :returns '(:boolean-ecx 1 0))) +;;; (t (compiler-values (not-values) +;;; :code (append (not-values :code) +;;; `((:cmpl :edi ,(single-value-register not-returns)))) +;;; :returns :boolean-zf=1)))) ((:eax :function :multiple-values :ebx :ecx :edx) (compiler-values (not-values) :code (append (not-values :code)

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 14 Apr '04

14 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7982 Modified Files: image.lisp Log Message: Dump images according to the new approach to compile-time variables. I.e don't any more insert a property into global-properties for each and every compile-time-variable. Date: Wed Apr 14 18:51:24 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.21 movitz/image.lisp:1.22 --- movitz/image.lisp:1.21 Wed Apr 14 08:40:26 2004 +++ movitz/image.lisp Wed Apr 14 18:51:24 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.21 2004/04/14 12:40:26 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.22 2004/04/14 22:51:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -804,17 +804,18 @@ (movitz-nil) (t (warn "not a symbol for plist: ~S has ~S" symbol plist))))) ;; pull in global properties + (loop for var in (image-compile-time-variables *image*) + do (let ((mname (movitz-read var)) + (mvalue (movitz-read (symbol-value var)))) + (setf (movitz-symbol-value mname) mvalue))) (setf (movitz-constant-block-global-properties constant-block) - (movitz-read (nconc (mapcan #'(lambda (var) - (list (movitz-read var) (movitz-read (symbol-value var)))) - (image-compile-time-variables *image*)) - (list :setf-namespace (movitz-environment-setf-function-names - *movitz-global-environment*) - :trampoline-funcall%1op (find-primitive-function - 'muerte::trampoline-funcall%1op) - :trampoline-funcall%2op (find-primitive-function - 'muerte::trampoline-funcall%2op) - :packages (make-packages-hash)))))) + (movitz-read (list :packages (make-packages-hash) + :setf-namespace (movitz-environment-setf-function-names + *movitz-global-environment*) + :trampoline-funcall%1op (find-primitive-function + 'muerte::trampoline-funcall%1op) + :trampoline-funcall%2op (find-primitive-function + 'muerte::trampoline-funcall%2op))))) (with-binary-file (stream path :check-stream t :direction :output

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/cpu-id.lisp
by Frode Vatvedt Fjeld 14 Apr '04

14 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3809 Modified Files: cpu-id.lisp Log Message: Re-wrote cpu-id. This function still has some way to go before it's compliant with (the still very informal) stack and register disciplines. Date: Wed Apr 14 18:49:14 2004 Author: ffjeld Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.2 movitz/losp/muerte/cpu-id.lisp:1.3 --- movitz/losp/muerte/cpu-id.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/cpu-id.lisp Wed Apr 14 18:49:14 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.3 2004/04/14 22:49:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -91,53 +91,50 @@ octets in c0, c1, c2, and c3. The 16 values returned represent the individual octets of EAX, EBX, EDX, and ECX, also in little-endian order." (when (cpu-586-class-p) - (with-inline-assembly (:returns :multiple-values) pack octets - ;; c0-c1-c2-c3 into eax.. - (:compile-form (:result-mode :eax) c3) - (:compile-form (:result-mode :ecx) c2) - (:shll 8 :eax) - (:xorl :ecx :eax) - (:compile-form (:result-mode :ecx) c1) - (:shll 8 :eax) - (:xorl :ecx :eax) - (:compile-form (:result-mode :ecx) c0) - (:shll #.(cl:- 8 movitz::+movitz-fixnum-shift+) :eax) - (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) - (:xorl :ecx :eax) - ;; do actual cpu-id instruction - (:cpuid) - ;; unpack eax, ebx, edx, ecx to 16 values.. - (:call '(:sub-program (unpack-eax) - (:popl (:esp -20)) ; return address - (:pushl :eax) - (:andl #x000000ff (:esp)) - (:shll #.movitz::+movitz-fixnum-shift+ (:esp)) - (:pushl :eax) - (:andl #x0000ff00 (:esp)) - (:shrl #.(cl:- 8 movitz::+movitz-fixnum-shift+) (:esp)) - (:pushl :eax) - (:andl #x00ff0000 (:esp)) - (:shrl #.(cl:- 16 movitz::+movitz-fixnum-shift+) (:esp)) - (:pushl :eax) - (:andl #xff000000 (:esp)) - (:shrl #.(cl:- 24 movitz::+movitz-fixnum-shift+) (:esp)) - (:subl 4 :esp) - (:ret))) - (:movl :ebx :eax) - (:call 'unpack-eax) - (:movl :edx :eax) - (:call 'unpack-eax) - (:movl :ecx :eax) - (:call 'unpack-eax) - ;; return multiple-values (16 values, actually..) - (:movl (:esp #.(cl:* 4 (cl:- 16 1))) :eax) - (:movl (:esp #.(cl:* 4 (cl:- 16 2))) :ebx) - ;; (:leal (:esp #.(cl:* 4 (cl:- 16 3))) :edx) - (:movb 16 :cl) - (:load-constant muerte.cl::values :edx) - (:movl (:edx #.(bt:slot-offset 'movitz::movitz-symbol 'movitz::function-value)) - :esi) ; load new funobj from symbol into ESI - (:call (:esi #.(bt:slot-offset 'movitz::movitz-funobj 'movitz::code-vector)))))) + (macrolet + ((do-it () + (flet ((make-register-push (register) + `((:pushl ,register) + (:andl #x000000ff (:esp)) + (:shll #.movitz::+movitz-fixnum-shift+ (:esp)) + (:pushl ,register) + (:andl #x0000ff00 (:esp)) + (:shrl #.(cl:- 8 movitz::+movitz-fixnum-shift+) (:esp)) + (:pushl ,register) + (:andl #x00ff0000 (:esp)) + (:shrl #.(cl:- 16 movitz::+movitz-fixnum-shift+) (:esp)) + (:pushl ,register) + (:andl #xff000000 (:esp)) + (:shrl #.(cl:- 24 movitz::+movitz-fixnum-shift+) (:esp))))) + `(with-inline-assembly (:returns :multiple-values) pack octets + ;; c0-c1-c2-c3 into eax.. + (:compile-form (:result-mode :eax) c3) + (:compile-form (:result-mode :ecx) c2) + (:shll 8 :eax) + (:xorl :ecx :eax) + (:compile-form (:result-mode :ecx) c1) + (:shll 8 :eax) + (:xorl :ecx :eax) + (:compile-form (:result-mode :ecx) c0) + (:shll #.(cl:- 8 movitz::+movitz-fixnum-shift+) :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:xorl :ecx :eax) + ;; do actual cpu-id instruction + (:cpuid) + ;; unpack eax, ebx, edx, ecx to 16 values.. + ,@(make-register-push :eax) + ,@(make-register-push :ebx) + ,@(make-register-push :edx) + ,@(make-register-push :ecx) + ;; return multiple-values (16 values, actually..) + (:movl (:esp #.(cl:* 4 (cl:- 16 1))) :eax) + (:movl (:esp #.(cl:* 4 (cl:- 16 2))) :ebx) + (:movb 16 :cl) + (:load-constant muerte.cl::values :edx) + (:movl (:edx #.(bt:slot-offset 'movitz::movitz-symbol 'movitz::function-value)) + :esi) ; load new funobj from symbol into ESI + (:call (:esi #.(bt:slot-offset 'movitz::movitz-funobj 'movitz::code-vector))))))) + (do-it)))) (defconstant +cpu-id-feature-map+

1 0