From d3a501d1eb9d1726d1495963c2611eda7e3d5a46 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 13 Feb 1992 06:00:37 +0000 Subject: [PATCH] More changes. --- v7/src/compiler/machines/i386/instrf.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/i386/instrf.scm b/v7/src/compiler/machines/i386/instrf.scm index 6f10f4dda..c7d8f9769 100644 --- a/v7/src/compiler/machines/i386/instrf.scm +++ b/v7/src/compiler/machines/i386/instrf.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.4 1992/02/13 05:59:28 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.5 1992/02/13 06:00:37 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -52,11 +52,11 @@ MIT in each case. |# (macro (mnemonic pmnemonic imnemonic digit opcode1 opcode2) `(begin (define-instruction ,mnemonic - (((ST 0) (ST ,i)) + (((ST 0) (ST i)) (BYTE (8 #xd8) (8 (+ ,opcode1 i)))) - (((ST ,i) (ST 0)) + (((ST i) (ST 0)) (BYTE (8 #xdc) (8 (+ ,opcode2 i)))) @@ -73,7 +73,7 @@ MIT in each case. |# (ModR/M ,digit source))) (define-instruction ,pmnemonic - (((ST ,i) (ST 0)) + (((ST i) (ST 0)) (BYTE (8 #xde) (8 (+ #xc0 i))))) -- 2.25.1