From d0706550d2f54ce7b475ecbf989e5e4954d385aa Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 20 Aug 1987 20:42:12 +0000 Subject: [PATCH] Operands were not being integrated into instruction stream correctly. --- v7/src/compiler/machines/vax/insmac.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/vax/insmac.scm b/v7/src/compiler/machines/vax/insmac.scm index b04cef116..4abc3c0cf 100644 --- a/v7/src/compiler/machines/vax/insmac.scm +++ b/v7/src/compiler/machines/vax/insmac.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insmac.scm,v 1.4 1987/08/18 21:24:54 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insmac.scm,v 1.5 1987/08/20 20:42:12 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -116,7 +116,7 @@ MIT in each case. |# (lambda (code size) (receiver code (+ size tail-size))))) ((OPERAND) - (receiver `(CONS-SYNTAX ,(caddar fields) ,tail) + (receiver `(APPEND-SYNTAX! (EA-VALUE ,(caddar fields)) ,tail) tail-size)) ((DISPLACEMENT) (let ((desc (cadar fields))) -- 2.25.1