// Copyright 2014 The Go Authors.  All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

// +build ppc64 ppc64le

/*
 * Apple still insists on underscore prefixes for C function names.
 */
#if defined(__APPLE__)
#define EXT(s) _##s
#else
#define EXT(s) s
#endif

/*
 * void crosscall_ppc64(void (*fn)(void), void *g)
 *
 * Calling into the gc tool chain, where all registers are caller save.
 * Called from standard ppc64 C ABI, where r2, r14-r31, f14-f31 are
 * callee-save, so they must be saved explicitly.
 */
.globl EXT(crosscall_ppc64)
EXT(crosscall_ppc64):
	// Start with standard C stack frame layout and linkage
	mflr	%r0
	std	%r0, 16(%r1)	// Save LR in caller's frame
	std	%r2, 24(%r1)	// Save TOC in caller's frame
	bl	saveregs
	stdu	%r1, -296(%r1)

	// Set up Go ABI constant registers
	bl	_cgo_reginit
	nop

	// Restore g pointer (r30 in Go ABI, which may have been clobbered by C)
	mr	%r30, %r4

	// Call fn
	mr	%r12, %r3
	mtctr	%r3
	bctrl

	addi	%r1, %r1, 296
	bl	restoreregs
	ld	%r2, 24(%r1)
	ld	%r0, 16(%r1)
	mtlr	%r0
	blr

saveregs:
	// Save callee-save registers
	// O=-288; for R in %r{14..31}; do echo "\tstd\t$R, $O(%r1)"; ((O+=8)); done; for F in f{14..31}; do echo "\tstfd\t$F, $O(%r1)"; ((O+=8)); done
	std	%r14, -288(%r1)
	std	%r15, -280(%r1)
	std	%r16, -272(%r1)
	std	%r17, -264(%r1)
	std	%r18, -256(%r1)
	std	%r19, -248(%r1)
	std	%r20, -240(%r1)
	std	%r21, -232(%r1)
	std	%r22, -224(%r1)
	std	%r23, -216(%r1)
	std	%r24, -208(%r1)
	std	%r25, -200(%r1)
	std	%r26, -192(%r1)
	std	%r27, -184(%r1)
	std	%r28, -176(%r1)
	std	%r29, -168(%r1)
	std	%r30, -160(%r1)
	std	%r31, -152(%r1)
	stfd	%f14, -144(%r1)
	stfd	%f15, -136(%r1)
	stfd	%f16, -128(%r1)
	stfd	%f17, -120(%r1)
	stfd	%f18, -112(%r1)
	stfd	%f19, -104(%r1)
	stfd	%f20, -96(%r1)
	stfd	%f21, -88(%r1)
	stfd	%f22, -80(%r1)
	stfd	%f23, -72(%r1)
	stfd	%f24, -64(%r1)
	stfd	%f25, -56(%r1)
	stfd	%f26, -48(%r1)
	stfd	%f27, -40(%r1)
	stfd	%f28, -32(%r1)
	stfd	%f29, -24(%r1)
	stfd	%f30, -16(%r1)
	stfd	%f31, -8(%r1)

	blr

restoreregs:
	// O=-288; for R in %r{14..31}; do echo "\tld\t$R, $O(%r1)"; ((O+=8)); done; for F in %f{14..31}; do echo "\tlfd\t$F, $O(%r1)"; ((O+=8)); done
	ld	%r14, -288(%r1)
	ld	%r15, -280(%r1)
	ld	%r16, -272(%r1)
	ld	%r17, -264(%r1)
	ld	%r18, -256(%r1)
	ld	%r19, -248(%r1)
	ld	%r20, -240(%r1)
	ld	%r21, -232(%r1)
	ld	%r22, -224(%r1)
	ld	%r23, -216(%r1)
	ld	%r24, -208(%r1)
	ld	%r25, -200(%r1)
	ld	%r26, -192(%r1)
	ld	%r27, -184(%r1)
	ld	%r28, -176(%r1)
	ld	%r29, -168(%r1)
	ld	%r30, -160(%r1)
	ld	%r31, -152(%r1)
	lfd	%f14, -144(%r1)
	lfd	%f15, -136(%r1)
	lfd	%f16, -128(%r1)
	lfd	%f17, -120(%r1)
	lfd	%f18, -112(%r1)
	lfd	%f19, -104(%r1)
	lfd	%f20, -96(%r1)
	lfd	%f21, -88(%r1)
	lfd	%f22, -80(%r1)
	lfd	%f23, -72(%r1)
	lfd	%f24, -64(%r1)
	lfd	%f25, -56(%r1)
	lfd	%f26, -48(%r1)
	lfd	%f27, -40(%r1)
	lfd	%f28, -32(%r1)
	lfd	%f29, -24(%r1)
	lfd	%f30, -16(%r1)
	lfd	%f31, -8(%r1)

	blr


#ifdef __ELF__
.section .note.GNU-stack,"",%progbits
#endif
