;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  ntapi: Native API core library                      ;;
;;  Copyright (C) 2013--2017  Z. Gilboa                 ;;
;;  Released under GPLv2 and GPLv3; see COPYING.NTAPI.  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TITLE tt_fork_x86_64

.data
__tt_fork_impl_v1 PROTO C

.code
__tt_fork_v1 PROC
	push	rbp
	push	rcx
	push	rdx
	push	rbx
	push	rsi
	push	rdi
	push	r8
	push	r9
	push	r10
	push	r11
	push	r12
	push	r13
	push	r14
	push	r15

	sub rsp, 40h

	mov  rdx, rsp
	and  rdx, 15
	test rdx, rdx
	jne	__tt_fork_impl_adj_call

	mov	rcx, rsp
	call __tt_fork_impl_v1

	add rsp, 40h

	pop	r15
	pop	r14
	pop	r13
	pop	r12
	pop	r11
	pop	r10
	pop	r9
	pop	r8
	pop	rdi
	pop	rsi
	pop	rbx
	pop	rdx
	pop	rcx
	pop	rbp
	ret
__tt_fork_v1 ENDP

__tt_fork_impl_adj_call PROC
	push rdi

	mov	rcx, rsp
	mov	rdx, 1
	call __tt_fork_impl_v1

	pop	rdi

	add rsp, 40h

	pop	r15
	pop	r14
	pop	r13
	pop	r12
	pop	r11
	pop	r10
	pop	r9
	pop	r8
	pop	rdi
	pop	rsi
	pop	rbx
	pop	rdx
	pop	rcx
	pop	rbp
	ret
__tt_fork_impl_adj_call ENDP


__tt_fork_child_entry_point PROC
	xor	rax, rax
	mov	rsp, rcx

	add rsp, 40h

	pop	r15
	pop	r14
	pop	r13
	pop	r12
	pop	r11
	pop	r10
	pop	r9
	pop	r8
	pop	rdi
	pop	rsi
	pop	rbx
	pop	rdx
	pop	rcx
	pop	rbp
	ret
__tt_fork_child_entry_point ENDP


__tt_fork_child_entry_point_adj PROC
	xor	rax, rax
	mov	rsp, rcx

	pop	rdi

	add rsp, 40h

	pop	r15
	pop	r14
	pop	r13
	pop	r12
	pop	r11
	pop	r10
	pop	r9
	pop	r8
	pop	rdi
	pop	rsi
	pop	rbx
	pop	rdx
	pop	rcx
	pop	rbp
	ret
__tt_fork_child_entry_point_adj ENDP

END