/*
 * Copyright (c) 2018 William Pitcock <nenolod@dereferenced.org>
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * This software is provided 'as is' and without any warranty, express or
 * implied.  In no event shall the authors be liable for any damages arising
 * from the use of this software.
 */

#include "defs.h"


.globl __swapcontext;
__swapcontext:
	lgr	%r1, %r2			/* use %r1 to save current context to */
	lgr	%r0, %r3			/* use %r0 for source context */

	stam	%a0, %a15, OFFSET_AREGS(%r1)	/* store access registers */
	stmg	%r0, %r15, OFFSET_GREGS(%r1)	/* store general-purpose registers */

	lgr	%r2, %r0			/* swap %r0 to %r2 (XXX: figure out why it hates loading from %r0) */
	lam	%a2, %a15, OFFSET_AREGS+8(%r2)	/* load access registers, but skip %a0 and %a1 which are for TLS */
	lmg	%r0, %r15, OFFSET_GREGS(%r2)	/* load general-purpose registers */

	br	%r14				/* return to new link register address */


.weak swapcontext;
swapcontext = __swapcontext;