From d7fcbcdbf0dd3976ea26800a28508785d02c2408 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Fri, 3 Nov 2023 21:28:40 +0100
Subject: fix blackhole (partially), kill apply1

---
 zipfib.s | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'zipfib.s')

diff --git a/zipfib.s b/zipfib.s
index 493a2ae..c92f53f 100644
--- a/zipfib.s
+++ b/zipfib.s
@@ -7,11 +7,10 @@
 .include "include/main_exit.s"
 .include "include/apply.s"
 
-# TODO this seems to fill the memory with plus_fini thunks; find out why.
-
 .thunkcode zipWith
 	needs_alloc $070
 	thunkto %rsi, $zipWith_arg1, $5, 020(%rbp), 030(%rbp), 040(%rbp), %rbp, %rsi
+	blackhole
 	enter 030(%rbp)
 
 .thunkcode zipWith_arg1
@@ -60,7 +59,7 @@
 	mov %r10, 030(%r8)
 	mov %r9, 040(%r8)
 
-	thunkto %r8, $INT_code, $20
+	thunkto %r8, $INT_code, $25
 	thunkto %r8, $list_int_index, $2, %r8, %r10
 	thunkto %r8, $print, $1, %r8
 	thunkto %rsi, $main_exit, $0
-- 
cgit v1.2.3