From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 16:28:23 +0000 (+0000)
Subject: Fixed a bug in referencing instruction part of the pattern.  Also added
X-Git-Tag: 20090517-FFI~6755
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f67e4d936de6f0cecd98df58e0358d45aea96e5;p=mit-scheme.git

Fixed a bug in referencing instruction part of the pattern.  Also added
patterns for non-code items, such as comment, etc...
---

diff --git a/v8/src/compiler/machines/i386/lapopt.scm b/v8/src/compiler/machines/i386/lapopt.scm
index 5ac0f0023..dc605454d 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.4 1995/01/12 16:22:32 ssmith Exp $
+$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 $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -47,7 +47,13 @@ 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 ?)
+	(0 #f () () () block-offset ?)
+	(0 #f () () () entry-point ?)
+	(0 #f () () () word ? ?)))
       
     ;; Given a list of registers/variables from the instruction data,
     ;; this procedure creates a list containing all the registers referenced
@@ -111,7 +117,7 @@ MIT in each case. |#
 	  (begin
 	    (pp inst)
 	    '(0 0 () () ()))
-	  (if (is-all-match? (cdr (cdr (cdr (cdr (car data)))))
+	  (if (is-all-match? (cdr (cdr (cdr (cdr (cdr (car data))))))
 			     inst)
 	      (list (car (car data))
 		    (cadr (car data))