diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-11-03 21:28:40 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-11-03 21:28:40 +0100 |
| commit | d7fcbcdbf0dd3976ea26800a28508785d02c2408 (patch) | |
| tree | d2720d0045110b3520749be8272c76844583e1b6 /zipfib.s | |
| parent | 1909e97d4615045e707710a2aaeae8bf702a8355 (diff) | |
| download | uskel-d7fcbcdbf0dd3976ea26800a28508785d02c2408.tar.gz uskel-d7fcbcdbf0dd3976ea26800a28508785d02c2408.tar.bz2 | |
fix blackhole (partially), kill apply1
Diffstat (limited to 'zipfib.s')
| -rw-r--r-- | zipfib.s | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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 |