From 510147c50fc63c0cb75dec76c51073bd2b918ef1 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 21 Jul 1987 15:13:39 +0000 Subject: [PATCH] Change transformer name. --- v7/src/compiler/machines/bobcat/instr4.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/instr4.scm b/v7/src/compiler/machines/bobcat/instr4.scm index d7d5b6927..c7f42e950 100644 --- a/v7/src/compiler/machines/bobcat/instr4.scm +++ b/v7/src/compiler/machines/bobcat/instr4.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/instr4.scm,v 1.1 1987/07/17 15:59:50 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/instr4.scm,v 1.2 1987/07/21 15:13:39 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -223,9 +223,9 @@ MIT in each case. |# (3 compare)))) (define-instruction CAS2 - (((? size nwl-n) (D (? c1)) (D (? c2)) (D (? u1)) (D (? u2)) - ((? Rtype1 da) (? n1)) - ((? Rtype2 da) (? n2))) + (((? size wl+2) (D (? c1)) (D (? c2)) (D (? u1)) (D (? u2)) + ((? Rtype1 da) (? n1)) + ((? Rtype2 da) (? n2))) (WORD (5 #b00001) (2 size) (9 #b011111100)) -- 2.25.1