From: Guillermo J. Rozas Date: Thu, 20 Aug 1987 20:42:12 +0000 (+0000) Subject: Operands were not being integrated into instruction stream correctly. X-Git-Tag: 20090517-FFI~13131 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0706550d2f54ce7b475ecbf989e5e4954d385aa;p=mit-scheme.git Operands were not being integrated into instruction stream correctly. --- 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)))