Verified Commit ae74f5d3 authored by Camil Staps's avatar Camil Staps 🚀

Fix pushcaf

parent f1be893e
Pipeline #22417 passed with stages
in 19 minutes and 29 seconds
......@@ -2156,14 +2156,14 @@ all_instructions opts t = bootstrap $ collect_instructions opts $ map (\i -> i t
B @ -1 .= n @ 2 :.
grow_b 2
, instr "pushcaf" Nothing $
new_local TWord (Pc @ 1 + lit_word 1) \na ->
new_local TWord (Pc @ 1) \na ->
new_local TWord (Pc @ 2) \ntotal ->
new_local (TPtr TWord) (to_word_ptr (Pc @ 3)) \n ->
advance_ptr Pc 4 :.
new_local TWord (lit_word 0) \i ->
while_do (i <. na) (
A @ (na - i) .= n @ 0 :.
advance_ptr n 1 :.
A @ (na - i) .= n @ 0 :.
i += lit_word 1
) :.
grow_a na :.
......
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