movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 20 Feb '07

20 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv8373 Modified Files: basic-macros.lisp Log Message: Have CAR and CDR have side-effects (i.e. they signal errors if the argumetn isn't a cons). --- /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2006/05/06 21:15:44 1.67 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2007/02/20 23:11:22 1.68 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.67 2006/05/06 21:15:44 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.68 2007/02/20 23:11:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -583,13 +583,13 @@ (define-compiler-macro car (x) `(let ((cell ,x)) - (with-inline-assembly-case (:side-effects nil) + (with-inline-assembly-case (:side-effects t) (do-case (t :register) (:cons-get :car (:lexical-binding cell) (:result-register)))))) (define-compiler-macro cdr (x) `(let ((cell ,x)) - (with-inline-assembly-case (:side-effects nil) + (with-inline-assembly-case (:side-effects t) (do-case (t :register) (:cons-get :cdr (:lexical-binding cell) (:result-register))))))

1 0

[movitz-cvs] CVS movitz
by ffjeld 20 Feb '07

20 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv27362 Modified Files: compiler.lisp Log Message: Fix compilation of unused &key vars. --- /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/19 21:57:33 1.176 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/20 21:57:13 1.177 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.176 2007/02/19 21:57:33 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.177 2007/02/20 21:57:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1473,7 +1473,7 @@ ;;;; (defun print-code (x code) - (let ((*print-level* 3)) + (let ((*print-level* 4)) (format t "~&~A code:~{~& ~A~}" x code)) code) @@ -2691,9 +2691,12 @@ (find-if (lambda (b-loc) (destructuring-bind (binding . binding-location) b-loc - (or (and (not (bindingp binding)) + (or (and (eq binding nil) ; nil means "back off!" (eql sub-location binding-location)) - (and (eql sub-location (stack-location binding)) + (and (not (bindingp binding)) + (eql sub-location binding-location)) + (and (bindingp binding) + (eql sub-location (stack-location binding)) (labels ((z (b) (when b @@ -2715,7 +2718,8 @@ (append values (list binding)) (list new-value) `(let ((,(car stores) (progn - (assert (not (new-binding-located-p ,binding-var ,getter))) + (assert (or (null binding) + (not (new-binding-located-p ,binding-var ,getter)))) (check-type ,new-value (or keyword binding (integer 0 *) @@ -3145,7 +3149,8 @@ (init-with-register (take-note-of-binding binding t pc) (when (and (typep init-with-register 'binding) - (not (typep binding 'forwarding-binding))) ; XXX + (not (typep binding 'forwarding-binding)) + (not (typep binding 'keyword-function-argument))) ; XXX (take-note-of-binding init-with-register)))))) (t (mapcar #'take-note-of-binding (find-read-bindings instruction)) @@ -3369,19 +3374,22 @@ binding)) 2))) (loop for key-var in (key-vars function-env) - as key-binding = - (or (movitz-binding key-var function-env nil) - (error "No binding for key-var ~S." key-var)) - as supplied-p-binding = + as key-binding = (or (movitz-binding key-var function-env nil) + (error "No binding for key-var ~S." key-var)) + as used-key-binding = + (when (plusp (car (gethash key-binding var-counts '(0)))) + key-binding) + as used-supplied-p-binding = (when (optional-function-argument-supplied-p-var key-binding) - (or (movitz-binding (optional-function-argument-supplied-p-var key-binding) - function-env nil) - (error "No binding for supplied-p-var ~S." - (optional-function-argument-supplied-p-var key-binding)))) + (let ((b (or (movitz-binding (optional-function-argument-supplied-p-var key-binding) + function-env nil) + (error "No binding for supplied-p-var ~S." + (optional-function-argument-supplied-p-var key-binding))))) + (when (plusp (car (gethash key-binding var-counts '(0)))) + b))) as location upfrom 3 by 2 - do (set-exclusive-location key-binding location) - (assert supplied-p-binding) - (set-exclusive-location supplied-p-binding (1+ location)))) + do (set-exclusive-location used-key-binding location) + (set-exclusive-location used-supplied-p-binding (1+ location)))) ;; Now, use assing-env-bindings on the remaining bindings. (loop for env in (loop with z = nil @@ -3595,7 +3603,7 @@ 'integer)) (warn "ecx from ~S" binding))) (when (movitz-env-get (binding-name binding) 'ignore nil (binding-env binding)) - (warn "The variable ~S is used even if it was declared ignored." + (break "The variable ~S is used even if it was declared ignored." (binding-name binding))) (let ((binding (ensure-local-binding binding funobj)) (protect-registers (cons :edx protect-registers))) @@ -4443,15 +4451,16 @@ (shadow-when-special formal env)) (supplied-p-parameter (or supplied-p - (gensym "supplied-p-")))) + #+ignore (gensym "supplied-p-")))) (movitz-env-add-binding env (make-instance 'keyword-function-argument :name formal 'init-form init-form 'supplied-p-var supplied-p-parameter :keyword-name keyword-name :rest-var-name rest-var-name)) - (movitz-env-add-binding env (make-instance 'supplied-p-function-argument - :name (shadow-when-special supplied-p-parameter env))) + (when supplied-p-parameter + (movitz-env-add-binding env (make-instance 'supplied-p-function-argument + :name (shadow-when-special supplied-p-parameter env)))) formal)))) #+ignore (multiple-value-bind (key-decode-map key-decode-shift) @@ -4980,30 +4989,31 @@ as binding = (movitz-binding key-var-name env) as supplied-p-binding = - (movitz-binding (optional-function-argument-supplied-p-var binding) - env) + (when (optional-function-argument-supplied-p-var binding) + (movitz-binding (optional-function-argument-supplied-p-var binding) + env)) as keyword-ok-label = (make-symbol (format nil "keyword-~A-ok" key-var-name)) do (assert binding) ;; (not (movitz-constantp (optional-function-argument-init-form binding))) append - `((:init-lexvar ,binding - :init-with-register ,binding - :init-with-type t - :shared-reference-p t) - (:init-lexvar ,supplied-p-binding - :init-with-register ,supplied-p-binding - :init-with-type t - :shared-reference-p t)) - append - (when (optional-function-argument-init-form binding) - `((:cmpl :edi (:ebp ,(stack-frame-offset (1+ key-location)))) - (:jne ',keyword-ok-label) - ,@(compiler-call #'compile-form - :form (optional-function-argument-init-form binding) - :env env - :funobj funobj - :result-mode binding) - ,keyword-ok-label)) + (append `((:init-lexvar ,binding + :init-with-register ,binding + :init-with-type t + :shared-reference-p t)) + (when supplied-p-binding + `((:init-lexvar ,supplied-p-binding + :init-with-register ,supplied-p-binding + :init-with-type t + :shared-reference-p t))) + (when (optional-function-argument-init-form binding) + `((:cmpl :edi (:ebp ,(stack-frame-offset (1+ key-location)))) + (:jne ',keyword-ok-label) + ,@(compiler-call #'compile-form + :form (optional-function-argument-init-form binding) + :env env + :funobj funobj + :result-mode binding) + ,keyword-ok-label))) ;;; else append ;;; nil #+ignore

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 20 Feb '07

20 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv27165 Modified Files: sequences.lisp Log Message: Remove unused args. --- /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp 2006/04/10 11:56:28 1.33 +++ /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp 2007/02/20 21:55:29 1.34 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.33 2006/04/10 11:56:28 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.34 2007/02/20 21:55:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1755,10 +1755,9 @@ (t (error "Can't concatenate ~S yet: ~:S" result-type sequences)))) -(defun substitute (newitem olditem sequence &rest args +(defun substitute (newitem olditem sequence &key (test 'eql) test-not (start 0) end count (key 'identity) from-end) "=> result-sequence" - (declare (dynamic-extent args)) (when test-not (setf test (complement test-not))) (with-funcallable (test (if test-not (complement test-not) test)) @@ -1767,10 +1766,9 @@ :count count :key key :from-end from-end))) -(defun nsubstitute (newitem olditem sequence &rest args +(defun nsubstitute (newitem olditem sequence &key (test 'eql) test-not (start 0) end count (key 'identity) from-end) "=> result-sequence" - (declare (dynamic-extent args)) (when test-not (setf test (complement test-not))) (with-funcallable (test (if test-not (complement test-not) test))

1 0

[movitz-cvs] CVS movitz
by ffjeld 20 Feb '07

20 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv32109 Modified Files: special-operators-cl.lisp Log Message: Fixed nasty in special-operator-let that would erroneously remove init-forms with side-effects. --- /project/movitz/cvsroot/movitz/special-operators-cl.lisp 2005/09/16 22:50:08 1.49 +++ /project/movitz/cvsroot/movitz/special-operators-cl.lisp 2007/02/20 20:33:30 1.50 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.49 2005/09/16 22:50:08 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.50 2007/02/20 20:33:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -155,7 +155,8 @@ :env local-env)))) (compiler-values-bind (&all body-values &code body-code &returns body-returns) (compile-body) -;;; (print-code 'body body-code) + ;; (print-code 'body body) + ;; (print-code 'body-code body-code) (let ((first-binding (movitz-binding (caar binding-var-codes) local-env nil))) (cond ;; Is this (let ((#:foo <form>)) (setq bar #:foo)) ? @@ -368,6 +369,8 @@ (compiler-values (body-values) :returns body-returns :producer (default-compiler-values-producer) + :functional-p (and (body-values :functional-p) + (every #'fourth binding-var-codes)) :modifies let-modifies :code code))))))))))))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv8169 Modified Files: primitive-functions.lisp Log Message: In decode-keyargs-default, provide error in eax rathern than scratch2. --- /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/19 20:24:59 1.68 +++ /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/19 21:58:27 1.69 @@ -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.68 2007/02/19 20:24:59 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.69 2007/02/19 21:58:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -765,7 +765,8 @@ continue-save-eax-ebx (:testl 4 :ecx) (:jnz '(:sub-program (odd-keywords) - (:locally (:orl #x10 (:edi (:edi-offset scratch2)))) + ;; (:locally (:orl #x10 (:edi (:edi-offset scratch2)))) + (:movl #x10 :eax) (:int 72))) continue-from-odd-keywords (:locally (:movl :ecx (:edi (:edi-offset raw-scratch0)))) ; save stop-pos @@ -791,7 +792,8 @@ (:leal (:eax -5) :ecx) (:testb 5 :cl) (:jnz '(:sub-program (keyword-not-symbol) - (:locally (:orl #x8 (:edi (:edi-offset scratch2)))) ; Signal keyword-not-symbol + ;; (:locally (:orl #x8 (:edi (:edi-offset scratch2)))) ; Signal keyword-not-symbol + (:movl #x8 :eax) (:int 72))) start-keyword-search-symbol (:movl (:esi (:offset movitz-funobj num-jumpers))

1 0

[movitz-cvs] CVS movitz
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv8123 Modified Files: image.lisp Log Message: Minor tweak. --- /project/movitz/cvsroot/movitz/image.lisp 2007/02/18 14:53:07 1.108 +++ /project/movitz/cvsroot/movitz/image.lisp 2007/02/19 21:57:49 1.109 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.108 2007/02/18 14:53:07 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.109 2007/02/19 21:57:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -779,7 +779,7 @@ :start-address start-address :movitz-features '(:movitz) :function-code-sizes - (if (boundp '*image*) + (if (and (boundp '*image*) *image*) (copy-hash-table (function-code-sizes *image*)) (make-hash-table :test #'equal)) init-args)))

1 0

[movitz-cvs] CVS movitz
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv8062 Modified Files: compiler.lisp Log Message: Remove old check for odd keyargs, since the new &key-parser does it for us. --- /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/19 20:24:38 1.175 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/19 21:57:33 1.176 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.175 2007/02/19 20:24:38 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.176 2007/02/19 21:57:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -4704,37 +4704,22 @@ eax-ebx-code (make-stack-setup-code stack-setup-size) (when need-normalized-ecx-p - (let ((oddeven-ok (gensym "oddeven-ok-"))) - (append (cond - ;; normalize arg-count in ecx.. - ((and max-args (= min-args max-args)) - (error "huh?")) - ((and max-args (<= 0 min-args max-args #x7f)) - `((:andl #x7f :ecx))) - ((>= min-args #x80) - `((:shrl 8 :ecx))) - (t (let ((normalize (make-symbol "normalize-ecx")) - (normalize-done (make-symbol "normalize-ecx-done"))) - `((:testb :cl :cl) - (:js '(:sub-program (,normalize) - (:shrl 8 :ecx) - (:jmp ',normalize-done))) - (:andl #x7f :ecx) - ,normalize-done)))) - (when (and (oddeven-args env) - (optional-vars env)) - `((:cmpl ,(length (optional-vars env)) :ecx) - (:jbe ',oddeven-ok))) - (case (oddeven-args env) - (:even - `((:testb 1 :cl) - (:jnz '(:sub-program () (:int 102))))) - (:odd - `((:testb 1 :cl) - (:jz '(:sub-program () (:int 102)))))) - (when (and (oddeven-args env) - (optional-vars env)) - (list oddeven-ok))))) + (append (cond + ;; normalize arg-count in ecx.. + ((and max-args (= min-args max-args)) + (error "huh?")) + ((and max-args (<= 0 min-args max-args #x7f)) + `((:andl #x7f :ecx))) + ((>= min-args #x80) + `((:shrl 8 :ecx))) + (t (let ((normalize (make-symbol "normalize-ecx")) + (normalize-done (make-symbol "normalize-ecx-done"))) + `((:testb :cl :cl) + (:js '(:sub-program (,normalize) + (:shrl 8 :ecx) + (:jmp ',normalize-done))) + (:andl #x7f :ecx) + ,normalize-done)))))) (when edx-needs-saving-p `((:movl :edx (:ebp ,(stack-frame-offset (new-binding-location (edx-var env) frame-map)))))) eax-ebx-code-post-stackframe

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv30688 Modified Files: primitive-functions.lisp Log Message: First implementation of new &key-parsing strategy. --- /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/18 16:31:42 1.67 +++ /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/19 20:24:59 1.68 @@ -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.67 2007/02/18 16:31:42 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.68 2007/02/19 20:24:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -740,13 +740,15 @@ "Decode keyword arguments. Results are placed in stack-frame, starting at (:ebp -16)." (with-inline-assembly (:returns :multiple-values) - ;; ECX: numargs (fixnum) + ;; ECX: numargs (u32) ;; EDX: arg-position of first keyword (fixnum) ;; (:ebp -8) arg0 (if needed) ;; (:ebp -12) arg1 (if needed) + (:shll 2 :ecx) (:subl :edx :ecx) ; find stop-pos (:jbe '(:sub-program (no-key-args) + (:xorl :eax :eax) ; No errors (:ret))) (:locally (:movl :edx (:edi (:edi-offset scratch1)))) ; first-key-position @@ -764,7 +766,7 @@ (:testl 4 :ecx) (:jnz '(:sub-program (odd-keywords) (:locally (:orl #x10 (:edi (:edi-offset scratch2)))) - (:ret))) + (:int 72))) continue-from-odd-keywords (:locally (:movl :ecx (:edi (:edi-offset raw-scratch0)))) ; save stop-pos (:xorl :edx :edx) ; EDX scans the args, last-to-first. @@ -785,12 +787,13 @@ (:cmpl :edi :ebx) (:je 'finished-keyword-search) (:locally (:orl #x20 (:edi (:edi-offset scratch2)))) ; Signal :allow-other-keys t - (:jmp 'finished-keyword-search))) + (:jmp 'start-keyword-search-symbol))) (:leal (:eax -5) :ecx) (:testb 5 :cl) (:jnz '(:sub-program (keyword-not-symbol) (:locally (:orl #x8 (:edi (:edi-offset scratch2)))) ; Signal keyword-not-symbol - (:jmp 'finished-keyword-search))) + (:int 72))) + start-keyword-search-symbol (:movl (:esi (:offset movitz-funobj num-jumpers)) :ecx) (:andl #xfffc :ecx) @@ -830,6 +833,13 @@ (:movl (:ebp -12) :eax) (:movl (:ebp :edx 8) :ebx) (:jmp 'start-keyword-search))) + ;; if there was :allow-other-keys t, clear the unknown-keyword error flag. + (:locally (:movl (:edi (:edi-offset scratch2)) :eax)) + (:movl :eax :ecx) + (:andl #x20 :ecx) + (:shrl 3 :ecx) + (:xorl 4 :ecx) + (:andl :ecx :eax) (:ret))) (define-primitive-function decode-keyargs-foo ()

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv30647 Modified Files: interrupt.lisp Log Message: First implementation of new &key-parsing strategy. --- /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2006/05/06 21:15:46 1.52 +++ /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2007/02/19 20:24:54 1.53 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.52 2006/05/06 21:15:46 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.53 2007/02/19 20:24:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -382,6 +382,14 @@ (error "Not a function: ~S" (dereference $edx))) (70 (error "[EIP=~@Z] Index ~@Z out of bounds ~@Z for ~S." $eip $ecx $ebx (dereference $eax))) + (72 + (ecase (dereference $eax) + (1 (error 'program-error + :format-control "Illegal keyword argument.")) + (2 (error 'program-error + :format-control "Keyword not a symbol.")) + (4 (error 'program-error + :format-control "Odd number of keyword arguments.")))) (98 (let ((name (dereference $edx))) (when (symbolp name)

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Feb '07

19 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv30606 Modified Files: basic-functions.lisp Log Message: First implementation of new &key-parsing strategy. --- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2006/03/21 20:20:20 1.21 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2007/02/19 20:24:51 1.22 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.21 2006/03/21 20:20:20 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.22 2007/02/19 20:24:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -432,4 +432,36 @@ (setf (memref object offset :index i :type :character) (char value j)))))))) value) - + + + +(define-primitive-function blah () + "foo" + (with-inline-assembly (:returns :multiple-values) + ;; EAX: (presumed) keyword + (:globally (:cmpl :eax (:edi (:edi-offset allow-other-keys-symbol)))) + (:je '(:sub-program (found-allow-other-keys) + ; XXX + (:ret))) + (:leal (:ebx -7) :ecx) + (:testb 7 :cl) + (:jnz '(:sub-program () + (:xorl :ecx :ecx) ; hash of nil is 0 + (:cmpl :edi :ebx) + (:je 'proceed-with-nil-key) + (:movl :ebx :eax) + (:movb 0 :cl) + (:int 72))) + (:xorl :ecx :ecx) + (:movw (:eax (:offset movitz-symbol hash-key)) :cx) + proceed-with-nil-key + ;; We now have symbol's basic sxhash in CX. + (:xorl :edx :edx) + (:leal ((:ecx 4) :edx) :edx) + (:andl (:esi (:offset movitz-funobj constant0)) + :edx) + + (:ret) + + )) +

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs