Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv31957

Modified Files: compiler.lisp Log Message: Removed some deprecated code.

--- /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/15 22:00:58 1.172 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2007/02/16 20:17:23 1.173 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.172 2007/02/15 22:00:58 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.173 2007/02/16 20:17:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -3489,66 +3489,6 @@ are load-lexicals of the first two function arguments, and if possible these bindings are located in the appropriate register, so no stack location is needed." (check-type env function-env) - #+ignore - (let ((funobj (movitz-environment-funobj env)) - (scan-code code)) - ;; (warn "code: ~{~&~S~}" (subseq scan-code 0 5)) - (let ((first-location - (multiple-value-bind (first-load-binding first-load-destination) - (instruction-is-load-lexical-of-binding (first scan-code)) - (when (and *compiler-allow-transients* - first-load-binding - (eq funobj (movitz-environment-funobj (binding-env first-load-binding))) - (not (code-uses-binding-p (rest scan-code) first-load-binding - :load t :store t :call t))) - (let* ((location (case (result-mode-type first-load-destination) - ((:push :boolean-branch-on-false :boolean-branch-on-true) - (case (if (typep first-load-binding 'positional-function-argument) - (function-argument-argnum first-load-binding) - 0) - (0 :eax) - (1 :ebx))) - ((:eax :single-value :function :ecx :edx) :eax) - (:ebx :ebx) - (t :eax)))) - ;; (warn "loc: ~W, bind: ~S" location first-load-binding) - (when location - (when (typep first-load-binding 'register-required-function-argument) - ;; (warn "assigning ~W to ~W:~{~& ~A~}" first-load-binding location (subseq code 0 12)) - ;; (setf (binding-location first-load-binding) location) - (setf (new-binding-location first-load-binding frame-map) location) - (setf scan-code (rest scan-code)))) - location))))) - (multiple-value-bind (first-load-binding first-load-destination) - (instruction-is-load-lexical-of-binding (first scan-code)) - (when (and *compiler-allow-transients* - first-load-binding - (eq funobj (movitz-environment-funobj (binding-env first-load-binding))) - (not (code-uses-binding-p (rest scan-code) first-load-binding - :load t :store t :call t))) - (let* ((location (case first-load-destination - ((:push :boolean-branch-on-true :boolean-branch-on-false) - (case (if (typep first-load-binding 'positional-function-argument) - (function-argument-argnum first-load-binding) - 1) - (0 :eax) - (1 :ebx))) - ((:eax :single-value :function) :eax) - (:ebx :ebx)))) - ;;(warn "loc2: ~W, bind2: ~S" location first-load-binding) - (when location - ;; (warn "assigning ~W to ~W.." first-load-binding location) - ;; (warn "assigning ~W to ~W:~{~& ~A~}" first-load-binding location (subseq code 0 12)) - (when (eq location first-location) - (setf location (ecase first-location - (:eax :ebx) - (:ebx :eax)))) - (when (typep first-load-binding 'register-required-function-argument) - ;; (setf (binding-location first-load-binding) location) - (setf (new-binding-location first-load-binding frame-map) location) - (setf scan-code (rest scan-code))))))))) - #+ignore - (assign-bindings code env stack-frame-position frame-map) (assign-bindings (append (when (first (required-vars env)) (let ((binding (movitz-binding (first (required-vars env)) env nil)))