More changes.

diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg
index ad88f83cd2cbf797f2d75c4ad61e32268586443b..230eade73ee8996cd47022d52613fb722c7a3ceb 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.pkg
+++ b/v7/src/compiler/machines/i386/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.pkg,v 1.1 1992/02/13 03:42:37 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.pkg,v 1.2 1992/02/13 03:50:24 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/comp.pkg,v 1.32 1991/05/06 23:09:24 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -586,9 +586,10 @@ MIT in each case. |#
         "back/asmmac"                  ;Macros for hairy syntax
         "machines/i386/insmac"         ;Macros for hairy syntax
         "machines/i386/inerly"         ;Early binding version
-        "machines/i386/instr1"         ;i386 instruction utilities
-        "machines/i386/instr2"         ;i386 instructions
-        "machines/i386/instrf"         ;  "        "
+        "machines/i386/insutl"         ;i386 instruction utilities
+        "machines/i386/instr1"         ;i386 instructions
+        "machines/i386/instr2"         ;  "        "
+        "machines/i386/instrf"         ;i387/i486 fp instructions
         )
   (parent (compiler))
   (export (compiler)

diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index 7f7ebdf2e54eb07cb3daad93e0835f60b2cc9e6c..d11c77be523d9ade1c9092a7c35123639eebfe8c 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.sf
+++ b/v7/src/compiler/machines/i386/compiler.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.sf,v 1.1 1992/02/13 03:45:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.sf,v 1.2 1992/02/13 03:49:32 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -98,7 +98,7 @@ MIT in each case. |#
                    (load (string-append "machines/i386/" name ".scm")
                          '(COMPILER LAP-SYNTAXER)
                          early-syntax-table))
-                 '("instr1" "instr2" "instrf")))))
+                 '("insutl" "instr1" "instr2" "instrf")))))
 
 ;; Resyntax any files that need it.
 ((access syntax-files! (->environment '(COMPILER))))