Home | History | Annotate | Line # | Download | only in gen
makecontext.c revision 1.3.18.1
      1  1.3.18.1     yamt /*	$NetBSD: makecontext.c,v 1.3.18.1 2008/05/18 12:30:11 yamt Exp $	*/
      2       1.2  thorpej 
      3       1.2  thorpej /*-
      4       1.2  thorpej  * Copyright (c) 1999 The NetBSD Foundation, Inc.
      5       1.2  thorpej  * All rights reserved.
      6       1.2  thorpej  *
      7       1.2  thorpej  * This code is derived from software contributed to The NetBSD Foundation
      8       1.2  thorpej  * by Klaus Klein.
      9       1.2  thorpej  *
     10       1.2  thorpej  * Redistribution and use in source and binary forms, with or without
     11       1.2  thorpej  * modification, are permitted provided that the following conditions
     12       1.2  thorpej  * are met:
     13       1.2  thorpej  * 1. Redistributions of source code must retain the above copyright
     14       1.2  thorpej  *    notice, this list of conditions and the following disclaimer.
     15       1.2  thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     16       1.2  thorpej  *    notice, this list of conditions and the following disclaimer in the
     17       1.2  thorpej  *    documentation and/or other materials provided with the distribution.
     18       1.2  thorpej  *
     19       1.2  thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20       1.2  thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21       1.2  thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22       1.2  thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23       1.2  thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24       1.2  thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25       1.2  thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26       1.2  thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27       1.2  thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28       1.2  thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29       1.2  thorpej  * POSSIBILITY OF SUCH DAMAGE.
     30       1.2  thorpej  */
     31       1.2  thorpej 
     32       1.2  thorpej #include <sys/cdefs.h>
     33       1.2  thorpej #if defined(LIBC_SCCS) && !defined(lint)
     34  1.3.18.1     yamt __RCSID("$NetBSD: makecontext.c,v 1.3.18.1 2008/05/18 12:30:11 yamt Exp $");
     35       1.2  thorpej #endif
     36       1.2  thorpej 
     37       1.2  thorpej #include <inttypes.h>
     38       1.2  thorpej #include <stddef.h>
     39       1.2  thorpej #include <ucontext.h>
     40       1.2  thorpej #include "extern.h"
     41       1.2  thorpej 
     42       1.2  thorpej #if __STDC__
     43       1.2  thorpej #include <stdarg.h>
     44       1.2  thorpej #else
     45       1.2  thorpej #include <varargs.h>
     46       1.2  thorpej #endif
     47       1.2  thorpej 
     48       1.2  thorpej 
     49       1.2  thorpej void
     50       1.2  thorpej #if __STDC__
     51       1.2  thorpej makecontext(ucontext_t *ucp, void (*func)(void), int argc, ...)
     52       1.2  thorpej #else
     53       1.2  thorpej makecontext(ucp, func, argc, va_alist)
     54       1.2  thorpej 	ucontext_t *ucp;
     55       1.2  thorpej 	void (*func)();
     56       1.2  thorpej 	int argc;
     57       1.2  thorpej 	va_dcl
     58       1.2  thorpej #endif
     59       1.2  thorpej {
     60       1.2  thorpej 	__greg_t *gr = ucp->uc_mcontext.__gregs;
     61       1.2  thorpej 	unsigned int *sp;
     62       1.2  thorpej 	va_list ap;
     63       1.2  thorpej 
     64       1.2  thorpej 	/* LINTED __greg_t is safe */
     65       1.2  thorpej 	gr[_REG_EIP] = (__greg_t)func;
     66       1.2  thorpej 
     67       1.2  thorpej 	/* LINTED uintptr_t is safe */
     68       1.3      mrg 	sp  = (unsigned int *)((uintptr_t)ucp->uc_stack.ss_sp +
     69       1.3      mrg 	    ucp->uc_stack.ss_size);
     70       1.3      mrg 	/* Align on word boundary. */
     71       1.2  thorpej 	/* LINTED uintptr_t is safe */
     72       1.3      mrg 	sp  = (unsigned int *)((uintptr_t)sp & ~0x3);
     73       1.2  thorpej 	sp -= argc + 1;			/* Make room for ret and args. */
     74       1.2  thorpej 	/* LINTED __greg_t is safe */
     75       1.2  thorpej 	gr[_REG_UESP] = (__greg_t)sp;
     76       1.2  thorpej 	gr[_REG_EBP] = (__greg_t)0;	/* Wipe out frame pointer. */
     77       1.2  thorpej 
     78       1.2  thorpej 	/* Put return address on top of stack. */
     79       1.2  thorpej 	/* LINTED uintptr_t is safe */
     80       1.2  thorpej 	*sp++ = (uintptr_t)_resumecontext;
     81       1.2  thorpej 
     82       1.2  thorpej 	/* Construct argument list. */
     83       1.2  thorpej #if __STDC__
     84       1.2  thorpej 	va_start(ap, argc);
     85       1.2  thorpej #else
     86       1.2  thorpej 	va_start(ap);
     87       1.2  thorpej #endif
     88       1.2  thorpej 	while (argc-- > 0) {
     89       1.2  thorpej 		/* LINTED uintptr_t is safe */
     90       1.2  thorpej 		*sp++ = va_arg(ap, uintptr_t);
     91       1.2  thorpej 	}
     92       1.2  thorpej 	va_end(ap);
     93       1.2  thorpej }
     94