Fix riscv64 asm-indirect-jump.

cisco · Nov 14, 2023 · e171768 · e171768
1 parent f1ce2bb
commit e171768
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/s/riscv64.ss b/s/riscv64.ss
@@ -1659,7 +1659,7 @@
                 [(index) (n ireg breg)
                  (safe-assert (eqv? n 0))
                  (emit add %scratch1 ireg breg
-                       (emit ld %jump %cond 0
+                       (emit ld %jump %scratch1 0
                              (emit jalr %real-zero %jump 0 '())))]
                 [else (sorry! who "unexpected src ~s" src)]))))