aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2026-09-04 15:32:08 +0200
committerMirek Kratochvil <exa.exa@gmail.com>2026-09-04 15:32:08 +0200
commit45f8df20fd18dca8275d89237f03404cb36e9db5 (patch)
treec00edd0dbbc4b491d87ddaa64277fcebd4947304
parente962a6b335f721b6ad8c98955bc0f516e7f55bde (diff)
downloaduskel-45f8df20fd18dca8275d89237f03404cb36e9db5.tar.gz
uskel-45f8df20fd18dca8275d89237f03404cb36e9db5.tar.bz2
upgrade applyHEADmaster
-rw-r--r--apply.s8
1 files changed, 7 insertions, 1 deletions
diff --git a/apply.s b/apply.s
index 113122a..b8df873 100644
--- a/apply.s
+++ b/apply.s
@@ -6,12 +6,18 @@
.include "include/io.s"
.include "include/main_exit.s"
+.thunkcode theplus
+ mov %rsi, %rbp
+ thunkto %rsi, $FUN2_code, $plus, $0
+ enter_rbp
+
.thunkcode main
# make an integer
thunkto %r11, $INT_code, $1
# make an empty closure for adding stuff
- thunkto %r12, $FUN2_code, $plus, $0
+ #thunkto %r12, $FUN2_code, $plus, $0 # this had less indirection
+ thunkto %r12, $theplus, $0
# apply first argument
thunkto %r12, $apply, $2, %r12, %r11