aboutsummaryrefslogtreecommitdiff
path: root/tinycc/lib/alloca.S
diff options
context:
space:
mode:
authorUneven Prankster <unevenprankster@protonmail.com>2023-07-12 13:22:29 -0300
committerUneven Prankster <unevenprankster@protonmail.com>2023-07-12 13:22:29 -0300
commitfa2bdd711212ba6b7a94a20971e8bfa281e73296 (patch)
tree6713b3c0379507d49558287b71dd360ce188a2f0 /tinycc/lib/alloca.S
lol
Diffstat (limited to 'tinycc/lib/alloca.S')
-rw-r--r--tinycc/lib/alloca.S85
1 files changed, 85 insertions, 0 deletions
diff --git a/tinycc/lib/alloca.S b/tinycc/lib/alloca.S
new file mode 100644
index 0000000..6ebafd7
--- /dev/null
+++ b/tinycc/lib/alloca.S
@@ -0,0 +1,85 @@
+/* ---------------------------------------------- */
+/* alloca.S */
+
+#ifdef __leading_underscore
+# define _(s) _##s
+#else
+# define _(s) s
+#endif
+
+/* ---------------------------------------------- */
+#if defined __i386__
+
+.globl _(alloca), _(__alloca)
+_(alloca):
+_(__alloca):
+ push %ebp
+ mov %esp,%ebp
+ mov 8(%ebp),%eax
+ add $3,%eax
+ and $-4,%eax
+#ifdef _WIN32
+ jmp .+16 #p2
+p1:
+ sub $4096,%esp
+ sub $4096,%eax
+ test %eax,(%esp)
+p2:
+ cmp $4096,%eax
+ jae p1
+#endif
+ sub %eax,%esp
+ mov 4(%ebp),%eax
+ mov 0(%ebp),%ebp
+ add $8,%esp
+ push %eax
+ lea 8(%esp),%eax
+ ret
+
+/* ---------------------------------------------- */
+#elif defined __x86_64__
+
+.globl _(alloca)
+_(alloca):
+ pop %rdx
+#ifdef _WIN32
+ mov %rcx,%rax
+#else
+ mov %rdi,%rax
+#endif
+ add $15,%rax
+ and $-16,%rax
+ jz p3
+
+#ifdef _WIN32
+p1:
+ cmp $4096,%rax
+ jbe p2
+ test %rax,-4096(%rsp)
+ sub $4096,%rsp
+ sub $4096,%rax
+ jmp p1
+p2:
+#endif
+ sub %rax,%rsp
+ mov %rsp,%rax
+p3:
+ push %rdx
+ ret
+
+/* ---------------------------------------------- */
+#elif defined __arm__
+
+ .text
+ .align 2
+ .global alloca
+ .type alloca, %function
+alloca:
+ rsb sp, r0, sp
+ bic sp, sp, #7
+ mov r0, sp
+ mov pc, lr
+ .size alloca, .-alloca
+
+/* ---------------------------------------------- */
+#endif