From 5df679f86b0bb3d93fae57e918316575180cd055 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 21 Jan 2019 19:06:02 +0000 Subject: [PATCH] Fix cache-assignment code generation. --- src/compiler/machines/aarch64/rules4.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.25.1