.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
	mov %rsi, %rax
	mov %rbp, %rsi
	enter %rax
.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

.endif # _macros_s_file