mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-14 10:57:08 +03:00
b5e7b54c7a
git-svn-id: svn://kolibrios.org@6429 a494cfbc-eb01-0410-851d-a64ba20cac60
36 lines
617 B
ArmAsm
36 lines
617 B
ArmAsm
/* ---------------------------------------------- */
|
|
/* alloca86.S */
|
|
|
|
.globl alloca
|
|
|
|
alloca:
|
|
pop %edx
|
|
pop %eax
|
|
add $3,%eax
|
|
and $-4,%eax
|
|
jz p3
|
|
|
|
#ifdef TCC_TARGET_PE
|
|
p1:
|
|
cmp $4096,%eax
|
|
jbe p2
|
|
test %eax,-4096(%esp)
|
|
sub $4096,%esp
|
|
sub $4096,%eax
|
|
jmp p1
|
|
p2:
|
|
#endif
|
|
|
|
sub %eax,%esp
|
|
mov %esp,%eax
|
|
p3:
|
|
push %edx
|
|
push %edx
|
|
ret
|
|
|
|
/* mark stack as nonexecutable */
|
|
#if defined __ELF__ && defined __linux__
|
|
.section .note.GNU-stack,"",@progbits
|
|
#endif
|
|
/* ---------------------------------------------- */
|