[movitz-cvs] CVS movitz

[ffjeld]

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)))