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

Modified Files: basic-functions.lisp Log Message: Remove dead code.

--- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/04/08 21:40:33 1.25 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/04/19 12:42:56 1.26 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.25 2008/04/08 21:40:33 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.26 2008/04/19 12:42:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -466,36 +466,3 @@ (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) - - )) -