mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
116 lines
2.3 KiB
ArmAsm
116 lines
2.3 KiB
ArmAsm
.data
|
|
printf_format: .string "Stack root: %lx\n"
|
|
printf_format2: .string "BOT: %lx\n"
|
|
printf_format3: .string "TOP: %lx\n"
|
|
printf_format4: .string "EAX: %lx\n"
|
|
printf_format5: .string "LOL\n"
|
|
__gc_stack_bottom: .long 0
|
|
__gc_stack_top: .long 0
|
|
|
|
.globl __pre_gc
|
|
.globl __post_gc
|
|
.globl __gc_init
|
|
.globl __gc_root_scan_stack
|
|
.globl __gc_stack_top
|
|
.globl __gc_stack_bottom
|
|
.extern init_pool
|
|
.extern gc_test_and_copy_root
|
|
.text
|
|
|
|
__gc_init: movl %ebp, __gc_stack_bottom
|
|
addl $4, __gc_stack_bottom
|
|
call __init
|
|
ret
|
|
|
|
// if __gc_stack_top is equal to 0
|
|
// then set __gc_stack_top to %ebp
|
|
// else return
|
|
__pre_gc:
|
|
pushl %eax
|
|
movl __gc_stack_top, %eax
|
|
cmpl $0, %eax
|
|
jne __pre_gc_2
|
|
movl %ebp, %eax
|
|
// addl $8, %eax
|
|
movl %eax, __gc_stack_top
|
|
__pre_gc_2:
|
|
popl %eax
|
|
ret
|
|
|
|
// if __gc_stack_top has been set by the caller
|
|
// (i.e. it is equal to its %ebp)
|
|
// then set __gc_stack_top to 0
|
|
// else return
|
|
__post_gc:
|
|
pushl %eax
|
|
movl __gc_stack_top, %eax
|
|
cmpl %eax, %ebp
|
|
jnz __post_gc2
|
|
movl $0, __gc_stack_top
|
|
__post_gc2:
|
|
popl %eax
|
|
ret
|
|
|
|
// Scan stack for roots
|
|
// strting from __gc_stack_top
|
|
// till __gc_stack_bottom
|
|
__gc_root_scan_stack:
|
|
pushl %ebp
|
|
movl %esp, %ebp
|
|
pushl %ebx
|
|
pushl %edx
|
|
movl __gc_stack_top, %eax
|
|
jmp next
|
|
|
|
loop:
|
|
movl (%eax), %ebx
|
|
|
|
// check that it is not a pointer to code section
|
|
// i.e. the following is not true:
|
|
// __executable_start <= (%eax) <= __etext
|
|
check11:
|
|
leal __executable_start, %edx
|
|
cmpl %ebx, %edx
|
|
jna check12
|
|
jmp check21
|
|
|
|
check12:
|
|
leal __etext, %edx
|
|
cmpl %ebx, %edx
|
|
jnb next
|
|
|
|
// check that it is not a pointer into the program stack
|
|
// i.e. the following is not true:
|
|
// __gc_stack_bottom <= (%eax) <= __gc_stack_top
|
|
check21:
|
|
cmpl %ebx, __gc_stack_top
|
|
jna check22
|
|
jmp loop2
|
|
|
|
check22:
|
|
cmpl %ebx, __gc_stack_bottom
|
|
jnb next
|
|
|
|
// check if it a valid pointer
|
|
// i.e. the lastest bit is set to zero
|
|
loop2:
|
|
andl $0x00000001, %ebx
|
|
jnz next
|
|
gc_run_t:
|
|
pushl %eax
|
|
pushl %eax
|
|
call gc_test_and_copy_root
|
|
addl $4, %esp
|
|
popl %eax
|
|
|
|
next:
|
|
addl $4, %eax
|
|
cmpl %eax, __gc_stack_bottom
|
|
jne loop
|
|
returnn:
|
|
movl $0, %eax
|
|
popl %edx
|
|
popl %ebx
|
|
movl %ebp, %esp
|
|
popl %ebp
|
|
ret
|