From e229a853bb6439c452fae847d20bb0170a4cd91a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 13 Feb 1992 03:50:24 +0000 Subject: [PATCH] More changes. --- v7/src/compiler/machines/i386/compiler.pkg | 9 +++++---- v7/src/compiler/machines/i386/compiler.sf | 4 ++-- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg index ad88f83cd..230eade73 100644 --- 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 7f7ebdf2e..d11c77be5 100644 --- 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)))) -- 2.25.1