Verified Commit 29a8c178 authored by Camil Staps's avatar Camil Staps 🙂

Fix implementation of general update_r in case of a_size=4

parent 186a9a61
Pipeline #43834 passed with stages
in 15 minutes and 59 seconds
......@@ -3186,8 +3186,8 @@ all_instructions opts t = bootstrap $ collect_instructions opts $ map (\i -> i t
advance_ptr Pc 3 :.
new_local (TPtr TWord) (to_word_ptr (A @ 0)) \elems ->
advance_ptr elems ((n_a+n_b) * to_ptr_offset (B @ 0) + lit_hword 3) :.
for [0..4] (\i -> elems @ i .= A @ (-1-i)) :.
unrolled_loop [6..30] (\i -> n_a <. lit_hword i) (\i -> elems @ (i-1) .= A @ (0-i)) :.
for [0..3] (\i -> elems @ i .= A @ (-1-i)) :.
unrolled_loop [5..30] (\i -> n_a <. lit_hword i) (\i -> elems @ (i-1) .= A @ (0-i)) :.
A @ (lit_hword 0 - n_a) .= A @ 0 :.
shrink_a n_a :.
advance_ptr elems n_a :.
......
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