From 6cffe1147c8dceeba6daad928869d2ff58bdd2ed Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 13 Feb 1992 05:31:26 +0000
Subject: [PATCH] More changes.

---
 v7/src/compiler/machines/i386/dassm2.scm | 4 ++--
 v7/src/compiler/machines/i386/insmac.scm | 6 +++---
 v7/src/compiler/machines/i386/machin.scm | 3 ++-
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/v7/src/compiler/machines/i386/dassm2.scm b/v7/src/compiler/machines/i386/dassm2.scm
index 6fd719696..dbbbee10a 100644
--- a/v7/src/compiler/machines/i386/dassm2.scm
+++ b/v7/src/compiler/machines/i386/dassm2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm2.scm,v 1.1 1992/02/13 03:36:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm2.scm,v 1.2 1992/02/13 05:28:18 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/dassm2.scm,v 4.18 1991/05/07 13:46:04 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -73,7 +73,7 @@ MIT in each case. |#
 (define (disassembler/instructions/read instruction-stream receiver)
   (receiver (instruction-offset instruction-stream)
 	    (instruction-instruction instruction-stream)
-	    (instruction-next instruction-stream))))
+	    (instruction-next instruction-stream)))
 
 (define-structure (instruction (type vector))
   (offset false read-only true)
diff --git a/v7/src/compiler/machines/i386/insmac.scm b/v7/src/compiler/machines/i386/insmac.scm
index a065e1a9e..4b589b0e5 100644
--- a/v7/src/compiler/machines/i386/insmac.scm
+++ b/v7/src/compiler/machines/i386/insmac.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.3 1992/02/13 02:54:37 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.4 1992/02/13 05:30:32 jinx Exp $
 $Vax-Header: insmac.scm,v 1.12 89/05/17 20:29:15 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -51,14 +51,14 @@ MIT in each case. |#
 				  (categories (car actions))
 				  (mode (cadr actions))
 				  (register (caddr actions))
-				  (extension (cdddr actions)))
+				  (tail (cdddr actions)))
 			      (declare (integrate keyword value))
 			      `(MAKE-EFFECTIVE-ADDRESS
 				',keyword
 				',categories
  				,(integer-syntaxer mode 'UNSIGNED 2)
 				,(integer-syntaxer register 'UNSIGNED 3)
-				,(process-fields value false))))))))
+				,(process-fields tail false))))))))
 
 ;; This one is necessary to distinguish between r/mW mW, etc.
 
diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm
index 2f0ea0c1f..4734960d7 100644
--- a/v7/src/compiler/machines/i386/machin.scm
+++ b/v7/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.6 1992/02/05 17:22:24 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.7 1992/02/13 05:31:26 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -292,6 +292,7 @@ MIT in each case. |#
   ;; i486 clock count for instruction to construct/fetch into register.
   (let ((if-integer
 	 (lambda (value)
+	   value			; ignored
 	   ;; Can this be done in fewer bytes for suitably small values?
 	   1))				; MOV immediate
 	(get-pc-cost
-- 
2.25.1