From 668338e776445bea96fee4a15a8db065b3a950ae Mon Sep 17 00:00:00 2001 From: Devyn Cairns Date: Sat, 12 Aug 2023 08:58:56 -0700 Subject: [PATCH] fix eval-list memory cleanup --- stage2/16-optimize-prims.lsp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/stage2/16-optimize-prims.lsp b/stage2/16-optimize-prims.lsp index c60516f..89831b9 100644 --- a/stage2/16-optimize-prims.lsp +++ b/stage2/16-optimize-prims.lsp @@ -94,16 +94,16 @@ (\sd $a1 $sp 0x08) ; free locals (\ld $a0 $sp 0x28) - (\auipc $ra (rel acquire-object$)) - (\callr $ra (rel+ acquire-object$)) + (\auipc $ra (rel release-object$)) + (\callr $ra (rel+ release-object$)) ; free args/head (never need to free tail) (\ld $a0 $sp 0x30) - (\auipc $ra (rel acquire-object$)) - (\callr $ra (rel+ acquire-object$)) + (\auipc $ra (rel release-object$)) + (\callr $ra (rel+ release-object$)) ; free s1 (\mv $a0 $s1) - (\auipc $ra (rel acquire-object$)) - (\callr $ra (rel+ acquire-object$)) + (\auipc $ra (rel release-object$)) + (\callr $ra (rel+ release-object$)) ; restore and return (\ld $a0 $sp 0x00) (\ld $a1 $sp 0x08)