61 lines
747 B
ArmAsm
61 lines
747 B
ArmAsm
|
|
.ifndef _macros_s_file
|
|
_macros_s_file:
|
|
|
|
.macro enter_rbp
|
|
jmp *(%rbp)
|
|
.endm
|
|
|
|
.macro enter x
|
|
mov \x, %rbp
|
|
enter_rbp
|
|
.endm
|
|
|
|
.macro cell x
|
|
.quad \x
|
|
.endm
|
|
|
|
.macro continue
|
|
xchg %rsi, %rbp
|
|
enter_rbp
|
|
.endm
|
|
|
|
.macro thunkenv arg, dest
|
|
mov (8*(\arg+2))(%rbp), \dest
|
|
.endm
|
|
|
|
.macro enter_thunkenv arg
|
|
mov (8*(\arg+2))(%rbp), %rbp
|
|
jmp *(%rbp)
|
|
.endm
|
|
|
|
# this needs data.s
|
|
.macro .thunkcode name
|
|
.align 8
|
|
__\name\()_info:
|
|
cell THU_evacuate
|
|
cell THU_scavenge
|
|
cell 0
|
|
\name:
|
|
.endm
|
|
|
|
.macro thunk arg,args:vararg
|
|
.ifnb \arg
|
|
thunk \args
|
|
pushq \arg
|
|
.endif
|
|
.endm
|
|
|
|
.macro thunkto reg:req,args:vararg
|
|
thunk \args
|
|
mov %rsp, \reg
|
|
.endm
|
|
|
|
.macro blackhole
|
|
mov (%rbp), %rax
|
|
mov %rax, 010(%rbp)
|
|
movq $BLE_code, (%rbp)
|
|
.endm
|
|
|
|
.endif # _macros_s_file
|