From d7fcbcdbf0dd3976ea26800a28508785d02c2408 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Fri, 3 Nov 2023 21:28:40 +0100 Subject: fix blackhole (partially), kill apply1 --- include/primops.s | 2 ++ 1 file changed, 2 insertions(+) (limited to 'include/primops.s') diff --git a/include/primops.s b/include/primops.s index 117bcca..5f26307 100644 --- a/include/primops.s +++ b/include/primops.s @@ -12,6 +12,7 @@ _primops_s_file: needs_alloc $040 # push a thunk for collecting the first arg and set it as continuation thunkto %rsi, $\name\()_fini, $2, %rbp, %rsi + blackhole enter 020(%rbp) # evaluate arg1 # arg1 -> | ret | cont | @@ -43,6 +44,7 @@ _primops_s_file: needs_alloc $050 # push a thunk for collecting the first arg and set it as continuation thunkto %rsi, $\name\()_step1, $3, 030(%rbp), %rbp, %rsi + blackhole enter 020(%rbp) # evaluate arg1 # arg1 -> | arg2 | ret | cont | -- cgit v1.2.3