cvsroot/libcoro/conftest.c

/*
 *  This file was taken from pth-1.40/aclocal.m4
 *  The original copyright is below.
 *
 *  GNU Pth - The GNU Portable Threads
 *  Copyright (c) 1999-2001 Ralf S. Engelschall <rse@engelschall.com>
 *
 *  This file is part of GNU Pth, a non-preemptive thread scheduling
 *  library which can be found at http://www.gnu.org/software/pth/.
 *
 *  This file is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2.1 of the License, or (at your option) any later version.
 *
 *  This file is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this file; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 *  USA, or contact Marc Lehmann <schmorp@schmorp.de>.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#if defined(TEST_sigstack) || defined(TEST_sigaltstack)
#include <sys/types.h>
#include <signal.h>
#include <unistd.h>
#endif
#if defined(TEST_makecontext)
#include <ucontext.h>
#endif
union alltypes {
    long   l;
    double d;
    void  *vp;
    void (*fp)(void);
    char  *cp;
};
static volatile char *handler_addr = (char *)0xDEAD;
#if defined(TEST_sigstack) || defined(TEST_sigaltstack)
static volatile int handler_done = 0;
void handler(int sig)
{
    char garbage[1024];
    int i;
    auto int dummy;
    for (i = 0; i < 1024; i++)
        garbage[i] = 'X';
    handler_addr = (char *)&dummy;
    handler_done = 1;
    return;
}
#endif
#if defined(TEST_makecontext)
static ucontext_t uc_handler;
static ucontext_t uc_main;
void handler(void)
{
    char garbage[1024];
    int i;
    auto int dummy;
    for (i = 0; i < 1024; i++)
        garbage[i] = 'X';
    handler_addr = (char *)&dummy;
    swapcontext(&uc_handler, &uc_main);
    return;
}
#endif
int main(int argc, char *argv[])
{
    FILE *f;
    char *skaddr;
    char *skbuf;
    int sksize;
    char result[1024];
    int i;
    sksize = 32768;
    skbuf = (char *)malloc(sksize*2+2*sizeof(union alltypes));
    if (skbuf == NULL)
        exit(1);
    for (i = 0; i < sksize*2+2*sizeof(union alltypes); i++)
        skbuf[i] = 'A';
    skaddr = skbuf+sizeof(union alltypes);
#if defined(TEST_sigstack) || defined(TEST_sigaltstack)
    {
        struct sigaction sa;
#if defined(TEST_sigstack)
        struct sigstack ss;
#elif defined(TEST_sigaltstack) && defined(HAVE_STACK_T)
        stack_t ss;
#else
        struct sigaltstack ss;
#endif
#if defined(TEST_sigstack)
        ss.ss_sp      = (void *)(skaddr + sksize);
        ss.ss_onstack = 0;
        if (sigstack(&ss, NULL) < 0)
            exit(1);
#elif defined(TEST_sigaltstack)
        ss.ss_sp    = (void *)(skaddr + sksize);
        ss.ss_size  = sksize;
        ss.ss_flags = 0;
        if (sigaltstack(&ss, NULL) < 0)
            exit(1);
#endif
        memset((void *)&sa, 0, sizeof(struct sigaction));
        sa.sa_handler = handler;
        sa.sa_flags = SA_ONSTACK;
        sigemptyset(&sa.sa_mask);
        sigaction(SIGUSR1, &sa, NULL);
        kill(getpid(), SIGUSR1);
        while (!handler_done)
            /*nop*/;
    }
#endif
#if defined(TEST_makecontext)
    {
        if (getcontext(&uc_handler) != 0)
            exit(1);
        uc_handler.uc_link = NULL;
        uc_handler.uc_stack.ss_sp    = (void *)(skaddr + sksize);
        uc_handler.uc_stack.ss_size  = sksize;
        uc_handler.uc_stack.ss_flags = 0;
        makecontext(&uc_handler, handler, 1);
        swapcontext(&uc_main, &uc_handler);
    }
#endif
    if (handler_addr == (char *)0xDEAD)
        exit(1);
    if (handler_addr < skaddr+sksize) {
        /* stack was placed into lower area */
        if (*(skaddr+sksize) != 'A')
             sprintf(result, "(skaddr)+(sksize)-%d,(sksize)-%d",
                     sizeof(union alltypes), sizeof(union alltypes));
        else
             strcpy(result, "(skaddr)+(sksize),(sksize)");
    }
    else {
        /* stack was placed into higher area */
        if (*(skaddr+sksize*2) != 'A')
            sprintf(result, "(skaddr),(sksize)-%d", sizeof(union alltypes));
        else
            strcpy(result, "(skaddr),(sksize)");
    }
    printf("%s\n", result);
    exit(0);
}

Revision:	1.2
Committed:	Thu Mar 3 17:20:31 2005 UTC (21 years, 6 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_5, rel-4_91, rel-4_22, rel-4_21, rel-4_0, rel-4_3, rel-3_41, rel-5_151, rel-4_13, rel-4_11, rel-5_1, rel-5_0, rel-6_0, rel-6_5, rel-4_748, rel-3_55, rel-4_8, rel-4_9, rel-3_51, rel-4_741, rel-4_743, rel-4_742, rel-6_10, rel-4_744, rel-4_747, rel-6_13, rel-4_01, rel-4_03, rel-4_02, rel-2_0, rel-2_1, rel-1_9, rel-1_2, rel-3_6, rel-3_62, rel-3_63, rel-3_61, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-3_4, rel-6_09, rel-6_08, rel-6_07, rel-6_06, rel-6_05, rel-6_04, rel-6_03, rel-6_02, rel-6_01, rel-5_161, rel-3_1, rel-4_74, rel-4_71, rel-4_72, rel-4_73, rel-5_371, rel-5_372, rel-6_512, rel-6_513, rel-6_511, rel-6_514, rel-5_22, rel-5_23, rel-5_24, rel-5_25, rel-6_32, rel-6_33, rel-6_31, rel-6_36, rel-6_37, rel-5_162, rel-5_2, rel-6_38, rel-6_39, rel-4_802, rel-4_803, rel-3_5, rel-4_801, rel-3_3, rel-3_2, rel-4_804, rel-3_0, rel-5_37, rel-5_36, rel-4_479, rel-6_23, rel-3_01, rel-6_29, rel-6_28, rel-6_46, rel-4_50, rel-4_51, rel-6_45, rel-4_4, rel-3_11, rel-1_31, rel-4_45, rel-6_51, rel-6_52, rel-6_53, rel-6_54, rel-6_55, rel-6_56, rel-6_57, rel-4_745, rel-4_901, rel-4_49, rel-4_48, rel-4_1, rel-4_2, rel-4_746, rel-5_11, rel-5_12, rel-5_15, rel-5_14, rel-5_17, rel-5_16, stack_sharing, rel-4_47, rel-4_46, rel-4_7, rel-3_501, rel-6_43, rel-6_42, rel-6_41, rel-6_47, rel-5_132, rel-5_131, rel-6_44, rel-6_49, rel-6_48, rel-4_911, rel-4_912, rel-4_31, rel-4_32, rel-4_33, rel-4_34, rel-4_35, rel-4_36, rel-4_37, HEAD
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	/*
2			* This file was taken from pth-1.40/aclocal.m4
3			* The original copyright is below.
4			*
5			* GNU Pth - The GNU Portable Threads
6			* Copyright (c) 1999-2001 Ralf S. Engelschall <rse@engelschall.com>
7			*
8			* This file is part of GNU Pth, a non-preemptive thread scheduling
9			* library which can be found at http://www.gnu.org/software/pth/.
10			*
11			* This file is free software; you can redistribute it and/or
12			* modify it under the terms of the GNU Lesser General Public
13			* License as published by the Free Software Foundation; either
14			* version 2.1 of the License, or (at your option) any later version.
15			*
16			* This file is distributed in the hope that it will be useful,
17			* but WITHOUT ANY WARRANTY; without even the implied warranty of
18			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19			* Lesser General Public License for more details.
20			*
21			* You should have received a copy of the GNU Lesser General Public
22			* License along with this file; if not, write to the Free Software
23			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
24	root	1.2	* USA, or contact Marc Lehmann <schmorp@schmorp.de>.
25	root	1.1	*/
26
27			#include <stdio.h>
28			#include <stdlib.h>
29			#include <string.h>
30			#if defined(TEST_sigstack) \|\| defined(TEST_sigaltstack)
31			#include <sys/types.h>
32			#include <signal.h>
33			#include <unistd.h>
34			#endif
35			#if defined(TEST_makecontext)
36			#include <ucontext.h>
37			#endif
38			union alltypes {
39			long l;
40			double d;
41			void *vp;
42			void (*fp)(void);
43			char *cp;
44			};
45			static volatile char handler_addr = (char )0xDEAD;
46			#if defined(TEST_sigstack) \|\| defined(TEST_sigaltstack)
47			static volatile int handler_done = 0;
48			void handler(int sig)
49			{
50			char garbage[1024];
51			int i;
52			auto int dummy;
53			for (i = 0; i < 1024; i++)
54			garbage[i] = 'X';
55			handler_addr = (char *)&dummy;
56			handler_done = 1;
57			return;
58			}
59			#endif
60			#if defined(TEST_makecontext)
61			static ucontext_t uc_handler;
62			static ucontext_t uc_main;
63			void handler(void)
64			{
65			char garbage[1024];
66			int i;
67			auto int dummy;
68			for (i = 0; i < 1024; i++)
69			garbage[i] = 'X';
70			handler_addr = (char *)&dummy;
71			swapcontext(&uc_handler, &uc_main);
72			return;
73			}
74			#endif
75			int main(int argc, char *argv[])
76			{
77			FILE *f;
78			char *skaddr;
79			char *skbuf;
80			int sksize;
81			char result[1024];
82			int i;
83			sksize = 32768;
84			skbuf = (char )malloc(sksize2+2*sizeof(union alltypes));
85			if (skbuf == NULL)
86			exit(1);
87			for (i = 0; i < sksize2+2sizeof(union alltypes); i++)
88			skbuf[i] = 'A';
89			skaddr = skbuf+sizeof(union alltypes);
90			#if defined(TEST_sigstack) \|\| defined(TEST_sigaltstack)
91			{
92			struct sigaction sa;
93			#if defined(TEST_sigstack)
94			struct sigstack ss;
95			#elif defined(TEST_sigaltstack) && defined(HAVE_STACK_T)
96			stack_t ss;
97			#else
98			struct sigaltstack ss;
99			#endif
100			#if defined(TEST_sigstack)
101			ss.ss_sp = (void *)(skaddr + sksize);
102			ss.ss_onstack = 0;
103			if (sigstack(&ss, NULL) < 0)
104			exit(1);
105			#elif defined(TEST_sigaltstack)
106			ss.ss_sp = (void *)(skaddr + sksize);
107			ss.ss_size = sksize;
108			ss.ss_flags = 0;
109			if (sigaltstack(&ss, NULL) < 0)
110			exit(1);
111			#endif
112			memset((void *)&sa, 0, sizeof(struct sigaction));
113			sa.sa_handler = handler;
114			sa.sa_flags = SA_ONSTACK;
115			sigemptyset(&sa.sa_mask);
116			sigaction(SIGUSR1, &sa, NULL);
117			kill(getpid(), SIGUSR1);
118			while (!handler_done)
119			/nop/;
120			}
121			#endif
122			#if defined(TEST_makecontext)
123			{
124			if (getcontext(&uc_handler) != 0)
125			exit(1);
126			uc_handler.uc_link = NULL;
127			uc_handler.uc_stack.ss_sp = (void *)(skaddr + sksize);
128			uc_handler.uc_stack.ss_size = sksize;
129			uc_handler.uc_stack.ss_flags = 0;
130			makecontext(&uc_handler, handler, 1);
131			swapcontext(&uc_main, &uc_handler);
132			}
133			#endif
134			if (handler_addr == (char *)0xDEAD)
135			exit(1);
136			if (handler_addr < skaddr+sksize) {
137			/* stack was placed into lower area */
138			if (*(skaddr+sksize) != 'A')
139			sprintf(result, "(skaddr)+(sksize)-%d,(sksize)-%d",
140			sizeof(union alltypes), sizeof(union alltypes));
141			else
142			strcpy(result, "(skaddr)+(sksize),(sksize)");
143			}
144			else {
145			/* stack was placed into higher area */
146			if ((skaddr+sksize2) != 'A')
147			sprintf(result, "(skaddr),(sksize)-%d", sizeof(union alltypes));
148			else
149			strcpy(result, "(skaddr),(sksize)");
150			}
151			printf("%s\n", result);
152			exit(0);
153			}
154