aboutsummaryrefslogtreecommitdiff
path: root/include/primops.s
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2023-11-01 18:25:26 +0100
committerMirek Kratochvil <exa.exa@gmail.com>2023-11-01 18:25:26 +0100
commit1909e97d4615045e707710a2aaeae8bf702a8355 (patch)
treeacba7fd278ef27dbdb749f936b38a812a056176a /include/primops.s
parent32d71ef9f25b4cebb2ae95b4f528bbc02f62ea31 (diff)
parent970ffb4684dbd88bd54e909820bbc5a66a87b18d (diff)
downloaduskel-1909e97d4615045e707710a2aaeae8bf702a8355.tar.gz
uskel-1909e97d4615045e707710a2aaeae8bf702a8355.tar.bz2
Merge branch 'gc-attempt-1'
Diffstat (limited to 'include/primops.s')
-rw-r--r--include/primops.s2
1 files changed, 2 insertions, 0 deletions
diff --git a/include/primops.s b/include/primops.s
index f532144..117bcca 100644
--- a/include/primops.s
+++ b/include/primops.s
@@ -9,6 +9,7 @@ _primops_s_file:
.macro .primop1 name
# | arg1 | -> cont
.thunkcode \name
+ needs_alloc $040
# push a thunk for collecting the first arg and set it as continuation
thunkto %rsi, $\name\()_fini, $2, %rbp, %rsi
enter 020(%rbp) # evaluate arg1
@@ -39,6 +40,7 @@ _primops_s_file:
.macro .primop2 name
# | arg1 | arg2 | -> cont
.thunkcode \name
+ 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
enter 020(%rbp) # evaluate arg1