More changes.

diff --git a/v7/src/compiler/machines/i386/dassm2.scm b/v7/src/compiler/machines/i386/dassm2.scm
index 6fd7196966adc989fc2dd9f3e6a6997f1e95b72b..dbbbee10a5251d816d60118efb489e699879b92e 100644 (file)
--- 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 a065e1a9e19b7d5844fbb974b6a31460a73ff819..4b589b0e59f8ba78b26cb7ee3df8e51627b5e298 100644 (file)
--- 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 2f0ea0c1f24e69ae0864d8858ffba5cf21327e4c..4734960d7281a6ba1768bf455e8b466b8b95f031 100644 (file)
--- 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