From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 21 Jan 2019 19:06:02 +0000 (+0000)
Subject: Fix cache-assignment code generation.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~46
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5df679f86b0bb3d93fae57e918316575180cd055;p=mit-scheme.git

Fix cache-assignment code generation.
---

diff --git a/src/compiler/machines/aarch64/rules4.scm b/src/compiler/machines/aarch64/rules4.scm
index 986ac3870..74105e655 100644
--- a/src/compiler/machines/aarch64/rules4.scm
+++ b/src/compiler/machines/aarch64/rules4.scm
@@ -55,12 +55,13 @@ USA.
   (require-register! regnum:utility-arg2)
   (require-register! regnum:utility-arg3)
   (let* ((set-extension (load-machine-register! extension regnum:utility-arg2))
-         (set-value (load-machine-register! value regnum:utility-arg2))
+         (set-value (load-machine-register! value regnum:utility-arg3))
          (prefix (clear-map!)))
     (LAP ,@set-extension
          ,@set-value
          ,@prefix
-         ,@(invoke-interface/call code:compiler-reference-trap continuation))))
+         ,@(invoke-interface/call code:compiler-assignment-trap
+                                  continuation))))
 
 (define-rule statement
   (INTERPRETER-CALL:CACHE-UNASSIGNED? (? continuation)