aboutsummaryrefslogtreecommitdiff
path: root/zipfib.s
diff options
context:
space:
mode:
Diffstat (limited to 'zipfib.s')
-rw-r--r--zipfib.s5
1 files changed, 2 insertions, 3 deletions
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