Fix cache-assignment code generation.

diff --git a/src/compiler/machines/aarch64/rules4.scm b/src/compiler/machines/aarch64/rules4.scm
index 986ac3870a6aac061566eaae335063101f97bee2..74105e65584f8ed38b9ef572ace571307556cb70 100644 (file)
--- 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)