Verified Commit cc60d352 authored by Camil Staps's avatar Camil Staps 🙂

Fix replace_r implementation

parent 7e73d6d7
......@@ -2743,7 +2743,7 @@ all_instructions opts t = bootstrap $ collect_instructions opts $ map (\i -> i t
advance_ptr b n_a :.
unrolled_loop [1..32] (\i -> n_a <. lit_hword i) (\i ->
A @ (1-i) .= a @ (i-1) :.
a @ (i-1) .= A @ (i-2)) :.
a @ (i-1) .= A @ (0-i)) :.
new_local TWord (lit_word 0) \temp ->
unrolled_loop [0..31] (\i -> n_b <. lit_hword (i+1)) (\i ->
temp .= b @ i :.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment