macros.s


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33


.macro enter x
	mov \x, %rbp
	jmp *(%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

.macro .makethunk name
	.align 8
	\name\()_info:
		cell THU_evacuate
		cell THU_scavenge
		cell 0
	\name:
.endm