From 97ce458bc7b4e43fc1f92c60be8fd16972b3afde Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 5 Aug 1992 22:13:59 +0000 Subject: [PATCH] Fix swapped opcodes bug in i486 manual (FDIV <-> FDIVR, FSUB <-> FSUBR). --- v7/src/compiler/machines/i386/instrf.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/i386/instrf.scm b/v7/src/compiler/machines/i386/instrf.scm index 02a4d1008..656fde53a 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.10 1992/02/28 20:22:42 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.11 1992/08/05 22:13:59 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -57,9 +57,15 @@ MIT in each case. |# (BYTE (8 #xd8) (8 (+ ,opcode1 i)))) + ;; In the following case, the manual uses opcode2 + ;; but the instructions (FDIV <-> FDIVR, FSUB <-> FSUBR) + ;; are actually backwards. + (((ST (? i)) (ST 0)) (BYTE (8 #xdc) - (8 (+ ,opcode2 i)))) + ;; (8 (+ ,opcode2 i)) + (8 (+ ,opcode1 i)) + )) (() (BYTE (8 #xde) -- 2.25.1