From c0c49230696a1ba94e70511b072799991797c052 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 23 Feb 1993 17:34:10 +0000 Subject: [PATCH] Fix bug in reference->register-transfer. The bug was the cause of multiple (mov w (r 0) (r 0)) instructions in the output. --- v7/src/compiler/machines/i386/lapgen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm index 8ab625818..3c0b3305e 100644 --- a/v7/src/compiler/machines/i386/lapgen.scm +++ b/v7/src/compiler/machines/i386/lapgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.21 1992/08/05 21:34:38 jinx Exp $ +$Id: lapgen.scm,v 1.22 1993/02/23 17:34:10 gjr Exp $ -Copyright (c) 1992 Massachusetts Institute of Technology +Copyright (c) 1992-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -83,7 +83,7 @@ MIT in each case. |# (machine->machine-register source target)) (define (reference->register-transfer source target) - (if (equal? (INST-EA ,target) source) + (if (equal? (INST-EA (R ,target)) source) (LAP) (memory->machine-register source target))) -- 2.25.1