From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 16:34:48 +0000 (+0000)
Subject: More bug fixes: Incorrect function names, bad pattern for lea.
X-Git-Tag: 20090517-FFI~6754
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0a8ec0dc2f04ee5e6284845d1993f26bdea36f57;p=mit-scheme.git

More bug fixes: Incorrect function names, bad pattern for lea.
---

diff --git a/v8/src/compiler/machines/i386/lapopt.scm b/v8/src/compiler/machines/i386/lapopt.scm
index dc605454d..200a5c2ff 100644
--- a/v8/src/compiler/machines/i386/lapopt.scm
+++ b/v8/src/compiler/machines/i386/lapopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.5 1995/01/12 16:28:23 ssmith Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.6 1995/01/12 16:34:48 ssmith Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -47,7 +47,7 @@ MIT in each case. |#
     (define ins-vars '())
     (define instruction-data
       '((1 12 (a) (b) () mov ? (? a) (? b))
-	(1 12 (a) () () lea (? a) ())
+	(1 12 (a) () () lea (? a) ?)
 	(0 #f () () () comment ?)
 	(0 #f () () () scheme-object ? ?)
 	(0 #f () () () label ?)
@@ -75,11 +75,11 @@ MIT in each case. |#
 	    (if data
 		(if (eq? (car data) 'R)
 		    (cons (cadr data)
-			  (make-my-list (cdr a)))
-		    (make-my-list (cdr a)))
+			  (make-reg-list (cdr a)))
+		    (make-reg-list (cdr a)))
 		(if (number? (car a))
 		    (cons (car a)
-			  (make-my-list (cdr a)))
+			  (make-reg-list (cdr a)))
 		    (begin
 		      (pp (car a))
 		      ()))))