From 2f868b6bb1b32f65a8ea8469760db994cdb16f2f Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 17 Feb 1992 22:37:34 +0000 Subject: [PATCH] Fix defn. of machine-register-value-class to agree with number-of-machine-registers. --- v7/src/compiler/machines/i386/machin.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm index 7c5fb52b5..5906d275c 100644 --- 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.8 1992/02/13 16:46:55 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.9 1992/02/17 22:37:34 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 @@ -165,7 +165,7 @@ MIT in each case. |# (= register regnum:free-pointer) (= register regnum:regs-pointer)) value-class=address) - ((<= fr0 register fr5) + ((<= fr0 register fr7) value-class=float) (else (error "illegal machine register" register)))) -- 2.25.1