d93ef8f3d0ce351204b5ee1f58adae6ae78ab1d3
[openafs.git] / src / lwp / process.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 /* process.c - manage lwp context switches be means of setjmp/longjmp. */
11
12 #include <afsconfig.h>
13 #include <afs/param.h>
14
15 RCSID
16     ("$Header$");
17
18 #include <stdio.h>
19 #include <assert.h>
20 #include "lwp.h"
21 #ifdef HAVE_STDLIB_H
22 #include <stdlib.h>
23 #endif
24
25 #if defined(AFS_OSF_ENV) || defined(AFS_S390_LINUX20_ENV)
26 extern int PRE_Block;           /* used in lwp.c and process.s */
27 #else
28 extern char PRE_Block;          /* used in lwp.c and process.s */
29 #endif
30
31 #if defined(USE_UCONTEXT) && defined(HAVE_UCONTEXT_H)
32
33 afs_int32
34 savecontext(char (*ep) (), struct lwp_context *savearea, char *newsp)
35 {
36 #if defined(AFS_LINUX20_ENV)
37     /* getcontext does not export stack info */
38     int stackvar;
39 #endif
40
41     PRE_Block = 1;
42
43     savearea->state = 0;
44     getcontext(&savearea->ucontext);
45 #if defined(AFS_LINUX20_ENV)
46     savearea->topstack = &stackvar;
47 #else
48     savearea->topstack = savearea->ucontext.uc_stack.ss_sp;
49 #endif
50     switch (savearea->state) {
51     case 0:
52         if (newsp) {
53             ucontext_t thread;
54
55             getcontext(&thread);
56             thread.uc_stack.ss_sp =
57                 newsp - AFS_LWP_MINSTACKSIZE + sizeof(void *) +
58                 sizeof(void *);
59             thread.uc_stack.ss_size = AFS_LWP_MINSTACKSIZE - sizeof(void *);
60             makecontext(&thread, ep, 0);
61             setcontext(&thread);
62         } else
63             (*ep) ();
64         break;
65     case 2:
66         break;
67     }
68     return 0;
69 }
70
71 void
72 returnto(savearea)
73      struct lwp_context *savearea;
74 {
75     PRE_Block = 0;
76
77     savearea->state = 2;
78     setcontext(&savearea->ucontext);
79 }
80
81 #else
82
83 /*
84  * Magic stack pointer
85  */
86 #if     defined(AFS_SGI64_ENV)
87 # ifdef _BSD_COMPAT
88 #  define LWP_SP 34
89 # else
90 #  define LWP_SP JB_SP
91 # endif
92 #elif   defined(AFS_HPUX_ENV) || defined(AFS_PARISC_LINUX24_ENV)
93 #define LWP_SP  1
94 #elif   defined(AFS_LINUX20_ENV)
95 #if defined(AFS_PPC_LINUX20_ENV) || defined(AFS_PPC64_LINUX20_ENV)
96 #define LWP_SP 0
97 #elif   defined(AFS_I386_LINUX20_ENV)
98 #define LWP_SP 4
99 #elif   defined(AFS_S390_LINUX20_ENV)
100 #define LWP_SP 9
101 #define LWP_FP 5
102 #elif   defined(AFS_SPARC_LINUX20_ENV)
103 #define LWP_SP 0
104 #define LWP_FP 1
105 #elif   defined(AFS_SPARC64_LINUX20_ENV) && defined(AFS_32BIT_USR_ENV)
106 #define LWP_SP 0
107 #define LWP_FP 1
108 #elif defined(AFS_ALPHA_LINUX20_ENV)
109 #define LWP_SP 8
110 #define LWP_FP 7
111 #elif defined(AFS_PARISC_LINUX24_ENV)
112 #define LWP_SP 19
113 #else
114 #error Unsupported linux LWP system type.
115 #endif
116 #elif   defined(AFS_X86_FBSD_ENV)
117 #define LWP_SP 4
118 #elif   defined(AFS_DARWIN_ENV)
119 #define LWP_SP 16
120 #else
121 Need offset to SP in jmp_buf for this platform.
122 #endif
123 /**
124   * On SGIs the type of the elements of the array passed to setjmp
125   * differs based on the ISA chosen. It is int for mips1 and mips2 and
126   * __uint64_t for mips3 and mips4
127   */
128 #ifdef AFS_SGI64_ENV
129 #if (_MIPS_ISA == _MIPS_ISA_MIPS3 || _MIPS_ISA == _MIPS_ISA_MIPS4)
130 typedef __uint64_t jmp_buf_type;
131 #endif
132 #else
133 #if defined(AFS_ALPHA_LINUX20_ENV) || defined(AFS_PPC64_LINUX20_ENV) 
134 typedef long jmp_buf_type;
135 #else
136 typedef int jmp_buf_type;
137 #endif /*AFS_ALPHA_LINUX20_ENV */
138 #endif /*SGI*/
139
140     static jmp_buf jmp_tmp;
141 static char (*EP) ();
142 static int rc;
143 static jmp_buf_type *jmpBuffer;
144
145 /** Starting with Glibc 2.4 pointers in jmp_buf are mangled (XOR) for "protection".
146   * On Sparc ucontext functions are not implemented.
147   */
148 #define ptr_mangle(x) (x)
149 #ifdef AFS_LINUX20_ENV
150
151 #ifdef __GLIBC__
152 #if (__GLIBC__ > 2) || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 3)
153
154 #ifdef AFS_SPARC64_LINUX24_ENV
155 #undef ptr_mangle
156 static int ptr_mangle(int p)
157 {   
158     register char *tls_ptr __asm__("%g7");
159     return p ^ *(int*)(tls_ptr + 0x18);
160 }
161 #else
162 #error need ptr_mangle support or use UCONTEXT
163 #endif
164
165 #endif
166 #endif
167 #endif
168
169
170 afs_int32
171 savecontext(ep, savearea, sp)
172      char (*ep) ();
173      struct lwp_context *savearea;
174      char *sp;
175 {
176     int code;
177
178     PRE_Block = 1;
179     EP = ep;
180
181     code = setjmp(savearea->setjmp_buffer);
182     jmpBuffer = (jmp_buf_type *) savearea->setjmp_buffer;
183     savearea->topstack = (char *) ptr_mangle(jmpBuffer[LWP_SP]);
184
185 #if     defined(DEBUG)
186     {
187         int i, *ptr = (int *)savearea->setjmp_buffer;
188         printf("savecontext\n");
189         for (i = 0; i < 5; i++)
190             printf("(%d) 0x%x   ", i, ptr[i]);
191         printf("\n");
192         for (i = 5; i < 10; i++)
193             printf("(%d) 0x%x   ", i, ptr[i]);
194         printf("\n");
195     }
196 #endif
197     switch (code) {
198     case 0:
199         if (!sp)
200             (*EP) ();
201         else {
202             rc = setjmp(jmp_tmp);
203             switch (rc) {
204             case 0:
205                 jmpBuffer = (jmp_buf_type *) jmp_tmp;
206                 jmpBuffer[LWP_SP] = ptr_mangle((jmp_buf_type) sp);
207 #if defined(AFS_S390_LINUX20_ENV) || defined(AFS_SPARC_LINUX20_ENV) || (defined(AFS_SPARC64_LINUX20_ENV) && defined(AFS_32BIT_USR_ENV))
208                 jmpBuffer[LWP_FP] = ptr_mangle((jmp_buf_type) sp);
209 #endif
210                 longjmp(jmp_tmp, 1);
211                 break;
212             case 1:
213                 (*EP) ();
214                 assert(0);      /* never returns */
215                 break;
216             default:
217                 perror("Error in setjmp1\n");
218                 exit(2);
219             }
220         }
221         break;
222     case 2:                     /* restoring frame */
223         break;
224
225     default:
226         perror("Error in setjmp2 : restoring\n");
227         exit(3);
228     }
229     return 0;
230 }
231
232 afs_int32
233 returnto(struct lwp_context * savearea)
234 {
235 #if     defined(DEBUG)
236     int i, *ptr = savearea->setjmp_buffer;
237
238     printf("Returning to \n");
239     for (i = 0; i < 5; i++)
240         printf("(%d) 0x%x   ", i, ptr[i]);
241     printf("\n");
242     for (i = 5; i < 10; i++)
243         printf("(%d) 0x%x   ", i, ptr[i]);
244     printf("\n");
245 #endif
246     PRE_Block = 0;
247     longjmp(savearea->setjmp_buffer, 2);
248     return 0;
249 }
250
251 #endif