Home | History | Annotate | Line # | Download | only in sys
t_swapcontext.c revision 1.2.2.2
      1  1.2.2.2  yamt /* $NetBSD: t_swapcontext.c,v 1.2.2.2 2012/10/30 19:00:02 yamt Exp $ */
      2  1.2.2.2  yamt 
      3  1.2.2.2  yamt /*
      4  1.2.2.2  yamt  * Copyright (c) 2012 Emmanuel Dreyfus. All rights reserved.
      5  1.2.2.2  yamt  *
      6  1.2.2.2  yamt  * Redistribution and use in source and binary forms, with or without
      7  1.2.2.2  yamt  * modification, are permitted provided that the following conditions
      8  1.2.2.2  yamt  * are met:
      9  1.2.2.2  yamt  * 1. Redistributions of source code must retain the above copyright
     10  1.2.2.2  yamt  *    notice, this list of conditions and the following disclaimer.
     11  1.2.2.2  yamt  * 2. Redistributions in binary form must reproduce the above copyright
     12  1.2.2.2  yamt  *    notice, this list of conditions and the following disclaimer in the
     13  1.2.2.2  yamt  *    documentation and/or other materials provided with the distribution.
     14  1.2.2.2  yamt  *
     15  1.2.2.2  yamt  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     16  1.2.2.2  yamt  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     17  1.2.2.2  yamt  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     18  1.2.2.2  yamt  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     19  1.2.2.2  yamt  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     20  1.2.2.2  yamt  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     21  1.2.2.2  yamt  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     22  1.2.2.2  yamt  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     23  1.2.2.2  yamt  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     24  1.2.2.2  yamt  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     25  1.2.2.2  yamt  * POSSIBILITY OF SUCH DAMAGE.
     26  1.2.2.2  yamt  */
     27  1.2.2.2  yamt 
     28  1.2.2.2  yamt #include <sys/cdefs.h>
     29  1.2.2.2  yamt __RCSID("$NetBSD");
     30  1.2.2.2  yamt 
     31  1.2.2.2  yamt #include <ucontext.h>
     32  1.2.2.2  yamt #include <stdio.h>
     33  1.2.2.2  yamt #include <stdlib.h>
     34  1.2.2.2  yamt #include <lwp.h>
     35  1.2.2.2  yamt 
     36  1.2.2.2  yamt #include <atf-c.h>
     37  1.2.2.2  yamt 
     38  1.2.2.2  yamt #define STACKSIZE 65536
     39  1.2.2.2  yamt 
     40  1.2.2.2  yamt char stack[STACKSIZE];
     41  1.2.2.2  yamt ucontext_t nctx;
     42  1.2.2.2  yamt ucontext_t octx;
     43  1.2.2.2  yamt void *otls;
     44  1.2.2.2  yamt void *ntls;
     45  1.2.2.2  yamt int val1, val2;
     46  1.2.2.2  yamt int alter_tlsbase;
     47  1.2.2.2  yamt 
     48  1.2.2.2  yamt /* ARGSUSED0 */
     49  1.2.2.2  yamt static void
     50  1.2.2.2  yamt swapfunc(void *arg)
     51  1.2.2.2  yamt {
     52  1.2.2.2  yamt 	ntls = _lwp_getprivate();
     53  1.2.2.2  yamt 	printf("after swapcontext TLS pointer = %p\n", ntls);
     54  1.2.2.2  yamt 
     55  1.2.2.2  yamt 	if (alter_tlsbase) {
     56  1.2.2.2  yamt 		ATF_REQUIRE_EQ(ntls, &val1);
     57  1.2.2.2  yamt 		printf("TLS pointer modified by swapcontext()\n");
     58  1.2.2.2  yamt 	} else {
     59  1.2.2.2  yamt 		ATF_REQUIRE_EQ(ntls, &val2);
     60  1.2.2.2  yamt 		printf("TLS pointer left untouched by swapcontext()\n");
     61  1.2.2.2  yamt 	}
     62  1.2.2.2  yamt 
     63  1.2.2.2  yamt 	/* Go back in main */
     64  1.2.2.2  yamt 	ATF_REQUIRE(swapcontext(&nctx, &octx));
     65  1.2.2.2  yamt 
     66  1.2.2.2  yamt 	/* NOTREACHED */
     67  1.2.2.2  yamt 	return;
     68  1.2.2.2  yamt }
     69  1.2.2.2  yamt 
     70  1.2.2.2  yamt static void
     71  1.2.2.2  yamt mainfunc(void)
     72  1.2.2.2  yamt {
     73  1.2.2.2  yamt 	printf("Testing if swapcontext() alters TLS pointer if _UC_TLSBASE "
     74  1.2.2.2  yamt 	       "is %s\n", (alter_tlsbase) ? "left set" : "cleared");
     75  1.2.2.2  yamt 
     76  1.2.2.2  yamt 	_lwp_setprivate(&val1);
     77  1.2.2.2  yamt 	printf("before swapcontext TLS pointer = %p\n", &val1);
     78  1.2.2.2  yamt 
     79  1.2.2.2  yamt 	ATF_REQUIRE(getcontext(&nctx) == 0);
     80  1.2.2.2  yamt 
     81  1.2.2.2  yamt 	nctx.uc_stack.ss_sp = stack;
     82  1.2.2.2  yamt 	nctx.uc_stack.ss_size = sizeof(stack);
     83  1.2.2.2  yamt 
     84  1.2.2.2  yamt #ifndef _UC_TLSBASE
     85  1.2.2.2  yamt 	ATF_REQUIRE_MSG(0, "_UC_TLSBASE is not defined");
     86  1.2.2.2  yamt #else /* _UC_TLSBASE */
     87  1.2.2.2  yamt 	ATF_REQUIRE(nctx.uc_flags & _UC_TLSBASE);
     88  1.2.2.2  yamt 	if (!alter_tlsbase)
     89  1.2.2.2  yamt 		nctx.uc_flags &= ~_UC_TLSBASE;
     90  1.2.2.2  yamt #endif /* _UC_TLSBASE */
     91  1.2.2.2  yamt 
     92  1.2.2.2  yamt 	makecontext(&nctx, swapfunc, 0);
     93  1.2.2.2  yamt 
     94  1.2.2.2  yamt 	_lwp_setprivate(&val2);
     95  1.2.2.2  yamt 	otls = _lwp_getprivate();
     96  1.2.2.2  yamt 	printf("before swapcontext TLS pointer = %p\n", otls);
     97  1.2.2.2  yamt 	ATF_REQUIRE(swapcontext(&octx, &nctx) == 0);
     98  1.2.2.2  yamt 
     99  1.2.2.2  yamt 	printf("Test completed\n");
    100  1.2.2.2  yamt }
    101  1.2.2.2  yamt 
    102  1.2.2.2  yamt 
    103  1.2.2.2  yamt ATF_TC(swapcontext1);
    104  1.2.2.2  yamt ATF_TC_HEAD(swapcontext1, tc)
    105  1.2.2.2  yamt {
    106  1.2.2.2  yamt 	atf_tc_set_md_var(tc, "descr", "Testing if swapcontext() can let "
    107  1.2.2.2  yamt 	    "TLS pointer untouched");
    108  1.2.2.2  yamt }
    109  1.2.2.2  yamt ATF_TC_BODY(swapcontext1, tc)
    110  1.2.2.2  yamt {
    111  1.2.2.2  yamt 	alter_tlsbase = 0;
    112  1.2.2.2  yamt 	mainfunc();
    113  1.2.2.2  yamt }
    114  1.2.2.2  yamt 
    115  1.2.2.2  yamt ATF_TC(swapcontext2);
    116  1.2.2.2  yamt ATF_TC_HEAD(swapcontext2, tc)
    117  1.2.2.2  yamt {
    118  1.2.2.2  yamt 	atf_tc_set_md_var(tc, "descr", "Testing if swapcontext() can "
    119  1.2.2.2  yamt 	    "modify TLS pointer");
    120  1.2.2.2  yamt }
    121  1.2.2.2  yamt ATF_TC_BODY(swapcontext2, tc)
    122  1.2.2.2  yamt {
    123  1.2.2.2  yamt 	alter_tlsbase = 1;
    124  1.2.2.2  yamt 	mainfunc();
    125  1.2.2.2  yamt }
    126  1.2.2.2  yamt 
    127  1.2.2.2  yamt ATF_TP_ADD_TCS(tp)
    128  1.2.2.2  yamt {
    129  1.2.2.2  yamt 	ATF_TP_ADD_TC(tp, swapcontext1);
    130  1.2.2.2  yamt 	ATF_TP_ADD_TC(tp, swapcontext2);
    131  1.2.2.2  yamt 
    132  1.2.2.2  yamt 	return atf_no_error();
    133  1.2.2.2  yamt }
    134