11.7Sriastrad/*	$NetBSD: _lwp.c,v 1.7 2025/04/25 01:18:38 riastradh Exp $	*/
21.1Schs
31.1Schs/*
41.1Schs * Copyright (c) 2001 The NetBSD Foundation, Inc.
51.1Schs * All rights reserved.
61.1Schs *
71.1Schs * This code is derived from software contributed to The NetBSD Foundation
81.1Schs * by Wayne Knowles
91.1Schs *
101.1Schs * Redistribution and use in source and binary forms, with or without
111.1Schs * modification, are permitted provided that the following conditions
121.1Schs * are met:
131.1Schs * 1. Redistributions of source code must retain the above copyright
141.1Schs *    notice, this list of conditions and the following disclaimer.
151.1Schs * 2. Redistributions in binary form must reproduce the above copyright
161.1Schs *    notice, this list of conditions and the following disclaimer in the
171.1Schs *    documentation and/or other materials provided with the distribution.
181.1Schs *
191.1Schs * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
201.1Schs * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
211.1Schs * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
221.1Schs * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
231.1Schs * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
241.1Schs * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
251.1Schs * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
261.1Schs * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
271.1Schs * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
281.1Schs * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
291.1Schs * POSSIBILITY OF SUCH DAMAGE.
301.1Schs */
311.1Schs
321.2Slukem#include <sys/cdefs.h>
331.2Slukem#if defined(LIBC_SCCS) && !defined(lint)
341.7Sriastrad__RCSID("$NetBSD: _lwp.c,v 1.7 2025/04/25 01:18:38 riastradh Exp $");
351.2Slukem#endif /* LIBC_SCCS and not lint */
361.2Slukem
371.1Schs#include "namespace.h"
381.6Sriastrad
391.7Sriastrad#include <sys/param.h>
401.1Schs#include <sys/types.h>
411.6Sriastrad
421.6Sriastrad#include <machine/frame.h>
431.6Sriastrad
441.1Schs#include <lwp.h>
451.1Schs#include <stdlib.h>
461.6Sriastrad#include <ucontext.h>
471.1Schs
481.1Schsvoid
491.1Schs_lwp_makecontext(ucontext_t *u, void (*start)(void *),
501.1Schs	void *arg, void *private, caddr_t stack_base, size_t stack_size)
511.1Schs{
521.1Schs	caddr_t sp;
531.1Schs	__greg_t *gr;
541.4Sskrll	__greg_t *gp;
551.4Sskrll	__greg_t fp;
561.1Schs
571.1Schs	getcontext(u);
581.1Schs	gr = u->uc_mcontext.__gregs;
591.1Schs	u->uc_link = NULL;
601.1Schs
611.1Schs	u->uc_stack.ss_sp = stack_base;
621.1Schs	u->uc_stack.ss_size = stack_size;
631.1Schs	sp = stack_base + HPPA_FRAME_SIZE;
641.7Sriastrad	sp = (caddr_t)(((uintptr_t)sp + STACK_ALIGNBYTES) & ~STACK_ALIGNBYTES);
651.1Schs
661.4Sskrll	fp = (__greg_t)start;
671.4Sskrll	if (fp & 2) {
681.4Sskrll		gp = (__greg_t *)(fp & ~3);
691.4Sskrll		fp = gp[0];
701.4Sskrll		gr[_REG_R19] = gp[1];
711.4Sskrll	}
721.4Sskrll	gr[_REG_PCOQH] = fp | HPPA_PC_PRIV_USER;
731.4Sskrll	gr[_REG_PCOQT] = (fp + 4) | HPPA_PC_PRIV_USER;
741.1Schs	gr[_REG_RP] = (__greg_t) _lwp_exit;
751.1Schs	gr[_REG_ARG0] = (__greg_t) arg;
761.1Schs	gr[_REG_SP] = (__greg_t) sp;
771.5Sjoerg	gr[_REG_CR27] = (__greg_t) private;
781.1Schs}
79