summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/cryptlib.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/cryptlib.c')
-rw-r--r--src/lib/libcrypto/cryptlib.c508
1 files changed, 78 insertions, 430 deletions
diff --git a/src/lib/libcrypto/cryptlib.c b/src/lib/libcrypto/cryptlib.c
index b4449b86d6..8f9e88e403 100644
--- a/src/lib/libcrypto/cryptlib.c
+++ b/src/lib/libcrypto/cryptlib.c
@@ -1,6 +1,6 @@
1/* crypto/cryptlib.c */ 1/* crypto/cryptlib.c */
2/* ==================================================================== 2/* ====================================================================
3 * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. 3 * Copyright (c) 1998-2003 The OpenSSL Project. All rights reserved.
4 * 4 *
5 * Redistribution and use in source and binary forms, with or without 5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions 6 * modification, are permitted provided that the following conditions
@@ -121,279 +121,17 @@
121static double SSLeay_MSVC5_hack=0.0; /* and for VC1.5 */ 121static double SSLeay_MSVC5_hack=0.0; /* and for VC1.5 */
122#endif 122#endif
123 123
124DECLARE_STACK_OF(CRYPTO_dynlock)
125
126/* real #defines in crypto.h, keep these upto date */
127static const char* const lock_names[CRYPTO_NUM_LOCKS] =
128 {
129 "<<ERROR>>",
130 "err",
131 "ex_data",
132 "x509",
133 "x509_info",
134 "x509_pkey",
135 "x509_crl",
136 "x509_req",
137 "dsa",
138 "rsa",
139 "evp_pkey",
140 "x509_store",
141 "ssl_ctx",
142 "ssl_cert",
143 "ssl_session",
144 "ssl_sess_cert",
145 "ssl",
146 "ssl_method",
147 "rand",
148 "rand2",
149 "debug_malloc",
150 "BIO",
151 "gethostbyname",
152 "getservbyname",
153 "readdir",
154 "RSA_blinding",
155 "dh",
156 "debug_malloc2",
157 "dso",
158 "dynlock",
159 "engine",
160 "ui",
161 "ecdsa",
162 "ec",
163 "ecdh",
164 "bn",
165 "ec_pre_comp",
166 "store",
167 "comp",
168 "fips",
169 "fips2",
170#if CRYPTO_NUM_LOCKS != 41
171# error "Inconsistency between crypto.h and cryptlib.c"
172#endif
173 };
174
175/* This is for applications to allocate new type names in the non-dynamic
176 array of lock names. These are numbered with positive numbers. */
177static STACK_OF(OPENSSL_STRING) *app_locks=NULL;
178
179/* For applications that want a more dynamic way of handling threads, the
180 following stack is used. These are externally numbered with negative
181 numbers. */
182static STACK_OF(CRYPTO_dynlock) *dyn_locks=NULL;
183
184
185static void (MS_FAR *locking_callback)(int mode,int type, 124static void (MS_FAR *locking_callback)(int mode,int type,
186 const char *file,int line)=0; 125 const char *file,int line)=NULL;
187static int (MS_FAR *add_lock_callback)(int *pointer,int amount, 126static int (MS_FAR *add_lock_callback)(int *pointer,int amount,
188 int type,const char *file,int line)=0; 127 int type,const char *file,int line)=NULL;
189#ifndef OPENSSL_NO_DEPRECATED 128static unsigned long (MS_FAR *id_callback)(void)=NULL;
190static unsigned long (MS_FAR *id_callback)(void)=0;
191#endif
192static void (MS_FAR *threadid_callback)(CRYPTO_THREADID *)=0;
193static struct CRYPTO_dynlock_value *(MS_FAR *dynlock_create_callback)
194 (const char *file,int line)=0;
195static void (MS_FAR *dynlock_lock_callback)(int mode,
196 struct CRYPTO_dynlock_value *l, const char *file,int line)=0;
197static void (MS_FAR *dynlock_destroy_callback)(struct CRYPTO_dynlock_value *l,
198 const char *file,int line)=0;
199
200int CRYPTO_get_new_lockid(char *name)
201 {
202 char *str;
203 int i;
204
205#if defined(OPENSSL_SYS_WIN32) || defined(OPENSSL_SYS_WIN16)
206 /* A hack to make Visual C++ 5.0 work correctly when linking as
207 * a DLL using /MT. Without this, the application cannot use
208 * any floating point printf's.
209 * It also seems to be needed for Visual C 1.5 (win16) */
210 SSLeay_MSVC5_hack=(double)name[0]*(double)name[1];
211#endif
212
213 if ((app_locks == NULL) && ((app_locks=sk_OPENSSL_STRING_new_null()) == NULL))
214 {
215 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_LOCKID,ERR_R_MALLOC_FAILURE);
216 return(0);
217 }
218 if ((str=BUF_strdup(name)) == NULL)
219 {
220 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_LOCKID,ERR_R_MALLOC_FAILURE);
221 return(0);
222 }
223 i=sk_OPENSSL_STRING_push(app_locks,str);
224 if (!i)
225 OPENSSL_free(str);
226 else
227 i+=CRYPTO_NUM_LOCKS; /* gap of one :-) */
228 return(i);
229 }
230 129
231int CRYPTO_num_locks(void) 130int CRYPTO_num_locks(void)
232 { 131 {
233 return CRYPTO_NUM_LOCKS; 132 return CRYPTO_NUM_LOCKS;
234 } 133 }
235 134
236int CRYPTO_get_new_dynlockid(void)
237 {
238 int i = 0;
239 CRYPTO_dynlock *pointer = NULL;
240
241 if (dynlock_create_callback == NULL)
242 {
243 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID,CRYPTO_R_NO_DYNLOCK_CREATE_CALLBACK);
244 return(0);
245 }
246 CRYPTO_w_lock(CRYPTO_LOCK_DYNLOCK);
247 if ((dyn_locks == NULL)
248 && ((dyn_locks=sk_CRYPTO_dynlock_new_null()) == NULL))
249 {
250 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
251 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID,ERR_R_MALLOC_FAILURE);
252 return(0);
253 }
254 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
255
256 pointer = (CRYPTO_dynlock *)OPENSSL_malloc(sizeof(CRYPTO_dynlock));
257 if (pointer == NULL)
258 {
259 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID,ERR_R_MALLOC_FAILURE);
260 return(0);
261 }
262 pointer->references = 1;
263 pointer->data = dynlock_create_callback(__FILE__,__LINE__);
264 if (pointer->data == NULL)
265 {
266 OPENSSL_free(pointer);
267 CRYPTOerr(CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID,ERR_R_MALLOC_FAILURE);
268 return(0);
269 }
270
271 CRYPTO_w_lock(CRYPTO_LOCK_DYNLOCK);
272 /* First, try to find an existing empty slot */
273 i=sk_CRYPTO_dynlock_find(dyn_locks,NULL);
274 /* If there was none, push, thereby creating a new one */
275 if (i == -1)
276 /* Since sk_push() returns the number of items on the
277 stack, not the location of the pushed item, we need
278 to transform the returned number into a position,
279 by decreasing it. */
280 i=sk_CRYPTO_dynlock_push(dyn_locks,pointer) - 1;
281 else
282 /* If we found a place with a NULL pointer, put our pointer
283 in it. */
284 (void)sk_CRYPTO_dynlock_set(dyn_locks,i,pointer);
285 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
286
287 if (i == -1)
288 {
289 dynlock_destroy_callback(pointer->data,__FILE__,__LINE__);
290 OPENSSL_free(pointer);
291 }
292 else
293 i += 1; /* to avoid 0 */
294 return -i;
295 }
296
297void CRYPTO_destroy_dynlockid(int i)
298 {
299 CRYPTO_dynlock *pointer = NULL;
300 if (i)
301 i = -i-1;
302 if (dynlock_destroy_callback == NULL)
303 return;
304
305 CRYPTO_w_lock(CRYPTO_LOCK_DYNLOCK);
306
307 if (dyn_locks == NULL || i >= sk_CRYPTO_dynlock_num(dyn_locks))
308 {
309 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
310 return;
311 }
312 pointer = sk_CRYPTO_dynlock_value(dyn_locks, i);
313 if (pointer != NULL)
314 {
315 --pointer->references;
316#ifdef REF_CHECK
317 if (pointer->references < 0)
318 {
319 fprintf(stderr,"CRYPTO_destroy_dynlockid, bad reference count\n");
320 abort();
321 }
322 else
323#endif
324 if (pointer->references <= 0)
325 {
326 (void)sk_CRYPTO_dynlock_set(dyn_locks, i, NULL);
327 }
328 else
329 pointer = NULL;
330 }
331 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
332
333 if (pointer)
334 {
335 dynlock_destroy_callback(pointer->data,__FILE__,__LINE__);
336 OPENSSL_free(pointer);
337 }
338 }
339
340struct CRYPTO_dynlock_value *CRYPTO_get_dynlock_value(int i)
341 {
342 CRYPTO_dynlock *pointer = NULL;
343 if (i)
344 i = -i-1;
345
346 CRYPTO_w_lock(CRYPTO_LOCK_DYNLOCK);
347
348 if (dyn_locks != NULL && i < sk_CRYPTO_dynlock_num(dyn_locks))
349 pointer = sk_CRYPTO_dynlock_value(dyn_locks, i);
350 if (pointer)
351 pointer->references++;
352
353 CRYPTO_w_unlock(CRYPTO_LOCK_DYNLOCK);
354
355 if (pointer)
356 return pointer->data;
357 return NULL;
358 }
359
360struct CRYPTO_dynlock_value *(*CRYPTO_get_dynlock_create_callback(void))
361 (const char *file,int line)
362 {
363 return(dynlock_create_callback);
364 }
365
366void (*CRYPTO_get_dynlock_lock_callback(void))(int mode,
367 struct CRYPTO_dynlock_value *l, const char *file,int line)
368 {
369 return(dynlock_lock_callback);
370 }
371
372void (*CRYPTO_get_dynlock_destroy_callback(void))
373 (struct CRYPTO_dynlock_value *l, const char *file,int line)
374 {
375 return(dynlock_destroy_callback);
376 }
377
378void CRYPTO_set_dynlock_create_callback(struct CRYPTO_dynlock_value *(*func)
379 (const char *file, int line))
380 {
381 dynlock_create_callback=func;
382 }
383
384void CRYPTO_set_dynlock_lock_callback(void (*func)(int mode,
385 struct CRYPTO_dynlock_value *l, const char *file, int line))
386 {
387 dynlock_lock_callback=func;
388 }
389
390void CRYPTO_set_dynlock_destroy_callback(void (*func)
391 (struct CRYPTO_dynlock_value *l, const char *file, int line))
392 {
393 dynlock_destroy_callback=func;
394 }
395
396
397void (*CRYPTO_get_locking_callback(void))(int mode,int type,const char *file, 135void (*CRYPTO_get_locking_callback(void))(int mode,int type,const char *file,
398 int line) 136 int line)
399 { 137 {
@@ -418,108 +156,6 @@ void CRYPTO_set_add_lock_callback(int (*func)(int *num,int mount,int type,
418 add_lock_callback=func; 156 add_lock_callback=func;
419 } 157 }
420 158
421/* the memset() here and in set_pointer() seem overkill, but for the sake of
422 * CRYPTO_THREADID_cmp() this avoids any platform silliness that might cause two
423 * "equal" THREADID structs to not be memcmp()-identical. */
424void CRYPTO_THREADID_set_numeric(CRYPTO_THREADID *id, unsigned long val)
425 {
426 memset(id, 0, sizeof(*id));
427 id->val = val;
428 }
429
430static const unsigned char hash_coeffs[] = { 3, 5, 7, 11, 13, 17, 19, 23 };
431void CRYPTO_THREADID_set_pointer(CRYPTO_THREADID *id, void *ptr)
432 {
433 unsigned char *dest = (void *)&id->val;
434 unsigned int accum = 0;
435 unsigned char dnum = sizeof(id->val);
436
437 memset(id, 0, sizeof(*id));
438 id->ptr = ptr;
439 if (sizeof(id->val) >= sizeof(id->ptr))
440 {
441 /* 'ptr' can be embedded in 'val' without loss of uniqueness */
442 id->val = (unsigned long)id->ptr;
443 return;
444 }
445 /* hash ptr ==> val. Each byte of 'val' gets the mod-256 total of a
446 * linear function over the bytes in 'ptr', the co-efficients of which
447 * are a sequence of low-primes (hash_coeffs is an 8-element cycle) -
448 * the starting prime for the sequence varies for each byte of 'val'
449 * (unique polynomials unless pointers are >64-bit). For added spice,
450 * the totals accumulate rather than restarting from zero, and the index
451 * of the 'val' byte is added each time (position dependence). If I was
452 * a black-belt, I'd scan big-endian pointers in reverse to give
453 * low-order bits more play, but this isn't crypto and I'd prefer nobody
454 * mistake it as such. Plus I'm lazy. */
455 while (dnum--)
456 {
457 const unsigned char *src = (void *)&id->ptr;
458 unsigned char snum = sizeof(id->ptr);
459 while (snum--)
460 accum += *(src++) * hash_coeffs[(snum + dnum) & 7];
461 accum += dnum;
462 *(dest++) = accum & 255;
463 }
464 }
465
466int CRYPTO_THREADID_set_callback(void (*func)(CRYPTO_THREADID *))
467 {
468 if (threadid_callback)
469 return 0;
470 threadid_callback = func;
471 return 1;
472 }
473
474void (*CRYPTO_THREADID_get_callback(void))(CRYPTO_THREADID *)
475 {
476 return threadid_callback;
477 }
478
479void CRYPTO_THREADID_current(CRYPTO_THREADID *id)
480 {
481 if (threadid_callback)
482 {
483 threadid_callback(id);
484 return;
485 }
486#ifndef OPENSSL_NO_DEPRECATED
487 /* If the deprecated callback was set, fall back to that */
488 if (id_callback)
489 {
490 CRYPTO_THREADID_set_numeric(id, id_callback());
491 return;
492 }
493#endif
494 /* Else pick a backup */
495#ifdef OPENSSL_SYS_WIN16
496 CRYPTO_THREADID_set_numeric(id, (unsigned long)GetCurrentTask());
497#elif defined(OPENSSL_SYS_WIN32)
498 CRYPTO_THREADID_set_numeric(id, (unsigned long)GetCurrentThreadId());
499#elif defined(OPENSSL_SYS_BEOS)
500 CRYPTO_THREADID_set_numeric(id, (unsigned long)find_thread(NULL));
501#else
502 /* For everything else, default to using the address of 'errno' */
503 CRYPTO_THREADID_set_pointer(id, &errno);
504#endif
505 }
506
507int CRYPTO_THREADID_cmp(const CRYPTO_THREADID *a, const CRYPTO_THREADID *b)
508 {
509 return memcmp(a, b, sizeof(*a));
510 }
511
512void CRYPTO_THREADID_cpy(CRYPTO_THREADID *dest, const CRYPTO_THREADID *src)
513 {
514 memcpy(dest, src, sizeof(*src));
515 }
516
517unsigned long CRYPTO_THREADID_hash(const CRYPTO_THREADID *id)
518 {
519 return id->val;
520 }
521
522#ifndef OPENSSL_NO_DEPRECATED
523unsigned long (*CRYPTO_get_id_callback(void))(void) 159unsigned long (*CRYPTO_get_id_callback(void))(void)
524 { 160 {
525 return(id_callback); 161 return(id_callback);
@@ -542,8 +178,6 @@ unsigned long CRYPTO_thread_id(void)
542 ret=(unsigned long)GetCurrentThreadId(); 178 ret=(unsigned long)GetCurrentThreadId();
543#elif defined(GETPID_IS_MEANINGLESS) 179#elif defined(GETPID_IS_MEANINGLESS)
544 ret=1L; 180 ret=1L;
545#elif defined(OPENSSL_SYS_BEOS)
546 ret=(unsigned long)find_thread(NULL);
547#else 181#else
548 ret=(unsigned long)getpid(); 182 ret=(unsigned long)getpid();
549#endif 183#endif
@@ -552,13 +186,19 @@ unsigned long CRYPTO_thread_id(void)
552 ret=id_callback(); 186 ret=id_callback();
553 return(ret); 187 return(ret);
554 } 188 }
555#endif 189
190static void (*do_dynlock_cb)(int mode, int type, const char *file, int line);
191
192void int_CRYPTO_set_do_dynlock_callback(
193 void (*dyn_cb)(int mode, int type, const char *file, int line))
194 {
195 do_dynlock_cb = dyn_cb;
196 }
556 197
557void CRYPTO_lock(int mode, int type, const char *file, int line) 198void CRYPTO_lock(int mode, int type, const char *file, int line)
558 { 199 {
559#ifdef LOCK_DEBUG 200#ifdef LOCK_DEBUG
560 { 201 {
561 CRYPTO_THREADID id;
562 char *rw_text,*operation_text; 202 char *rw_text,*operation_text;
563 203
564 if (mode & CRYPTO_LOCK) 204 if (mode & CRYPTO_LOCK)
@@ -575,25 +215,15 @@ void CRYPTO_lock(int mode, int type, const char *file, int line)
575 else 215 else
576 rw_text="ERROR"; 216 rw_text="ERROR";
577 217
578 CRYPTO_THREADID_current(&id);
579 fprintf(stderr,"lock:%08lx:(%s)%s %-18s %s:%d\n", 218 fprintf(stderr,"lock:%08lx:(%s)%s %-18s %s:%d\n",
580 CRYPTO_THREADID_hash(&id), rw_text, operation_text, 219 CRYPTO_thread_id(), rw_text, operation_text,
581 CRYPTO_get_lock_name(type), file, line); 220 CRYPTO_get_lock_name(type), file, line);
582 } 221 }
583#endif 222#endif
584 if (type < 0) 223 if (type < 0)
585 { 224 {
586 if (dynlock_lock_callback != NULL) 225 if (do_dynlock_cb)
587 { 226 do_dynlock_cb(mode, type, file, line);
588 struct CRYPTO_dynlock_value *pointer
589 = CRYPTO_get_dynlock_value(type);
590
591 OPENSSL_assert(pointer != NULL);
592
593 dynlock_lock_callback(mode, pointer, file, line);
594
595 CRYPTO_destroy_dynlockid(type);
596 }
597 } 227 }
598 else 228 else
599 if (locking_callback != NULL) 229 if (locking_callback != NULL)
@@ -613,14 +243,11 @@ int CRYPTO_add_lock(int *pointer, int amount, int type, const char *file,
613 243
614 ret=add_lock_callback(pointer,amount,type,file,line); 244 ret=add_lock_callback(pointer,amount,type,file,line);
615#ifdef LOCK_DEBUG 245#ifdef LOCK_DEBUG
616 {
617 CRYPTO_THREADID id;
618 CRYPTO_THREADID_current(&id);
619 fprintf(stderr,"ladd:%08lx:%2d+%2d->%2d %-18s %s:%d\n", 246 fprintf(stderr,"ladd:%08lx:%2d+%2d->%2d %-18s %s:%d\n",
620 CRYPTO_THREADID_hash(&id), before,amount,ret, 247 CRYPTO_thread_id(),
248 before,amount,ret,
621 CRYPTO_get_lock_name(type), 249 CRYPTO_get_lock_name(type),
622 file,line); 250 file,line);
623 }
624#endif 251#endif
625 } 252 }
626 else 253 else
@@ -629,15 +256,11 @@ int CRYPTO_add_lock(int *pointer, int amount, int type, const char *file,
629 256
630 ret= *pointer+amount; 257 ret= *pointer+amount;
631#ifdef LOCK_DEBUG 258#ifdef LOCK_DEBUG
632 {
633 CRYPTO_THREADID id;
634 CRYPTO_THREADID_current(&id);
635 fprintf(stderr,"ladd:%08lx:%2d+%2d->%2d %-18s %s:%d\n", 259 fprintf(stderr,"ladd:%08lx:%2d+%2d->%2d %-18s %s:%d\n",
636 CRYPTO_THREADID_hash(&id), 260 CRYPTO_thread_id(),
637 *pointer,amount,ret, 261 *pointer,amount,ret,
638 CRYPTO_get_lock_name(type), 262 CRYPTO_get_lock_name(type),
639 file,line); 263 file,line);
640 }
641#endif 264#endif
642 *pointer=ret; 265 *pointer=ret;
643 CRYPTO_lock(CRYPTO_UNLOCK|CRYPTO_WRITE,type,file,line); 266 CRYPTO_lock(CRYPTO_UNLOCK|CRYPTO_WRITE,type,file,line);
@@ -645,18 +268,6 @@ int CRYPTO_add_lock(int *pointer, int amount, int type, const char *file,
645 return(ret); 268 return(ret);
646 } 269 }
647 270
648const char *CRYPTO_get_lock_name(int type)
649 {
650 if (type < 0)
651 return("dynamic");
652 else if (type < CRYPTO_NUM_LOCKS)
653 return(lock_names[type]);
654 else if (type-CRYPTO_NUM_LOCKS > sk_OPENSSL_STRING_num(app_locks))
655 return("ERROR");
656 else
657 return(sk_OPENSSL_STRING_value(app_locks,type-CRYPTO_NUM_LOCKS));
658 }
659
660#if defined(__i386) || defined(__i386__) || defined(_M_IX86) || \ 271#if defined(__i386) || defined(__i386__) || defined(_M_IX86) || \
661 defined(__INTEL__) || \ 272 defined(__INTEL__) || \
662 defined(__x86_64) || defined(__x86_64__) || defined(_M_AMD64) || defined(_M_X64) 273 defined(__x86_64) || defined(__x86_64__) || defined(_M_AMD64) || defined(_M_X64)
@@ -690,16 +301,70 @@ void OPENSSL_cpuid_setup(void)
690unsigned long *OPENSSL_ia32cap_loc(void) { return NULL; } 301unsigned long *OPENSSL_ia32cap_loc(void) { return NULL; }
691#endif 302#endif
692int OPENSSL_NONPIC_relocated = 0; 303int OPENSSL_NONPIC_relocated = 0;
693#if !defined(OPENSSL_CPUID_SETUP) && !defined(OPENSSL_CPUID_OBJ) 304#if !defined(OPENSSL_CPUID_SETUP)
694void OPENSSL_cpuid_setup(void) {} 305void OPENSSL_cpuid_setup(void) {}
695#endif 306#endif
696 307
697#if (defined(_WIN32) || defined(__CYGWIN__)) && defined(_WINDLL) 308#if (defined(_WIN32) || defined(__CYGWIN__)) && defined(_WINDLL)
309
310#ifdef OPENSSL_FIPS
311
312#include <tlhelp32.h>
313#if defined(__GNUC__) && __GNUC__>=2
314static int DllInit(void) __attribute__((constructor));
315#elif defined(_MSC_VER)
316static int DllInit(void);
317# ifdef _WIN64
318# pragma section(".CRT$XCU",read)
319 __declspec(allocate(".CRT$XCU"))
320# else
321# pragma data_seg(".CRT$XCU")
322# endif
323 static int (*p)(void) = DllInit;
324# pragma data_seg()
325#endif
326
327static int DllInit(void)
328{
329#if defined(_WIN32_WINNT)
330 union { int(*f)(void); BYTE *p; } t = { DllInit };
331 HANDLE hModuleSnap = INVALID_HANDLE_VALUE;
332 IMAGE_DOS_HEADER *dos_header;
333 IMAGE_NT_HEADERS *nt_headers;
334 MODULEENTRY32 me32 = {sizeof(me32)};
335
336 hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,0);
337 if (hModuleSnap != INVALID_HANDLE_VALUE &&
338 Module32First(hModuleSnap,&me32)) do
339 {
340 if (t.p >= me32.modBaseAddr &&
341 t.p < me32.modBaseAddr+me32.modBaseSize)
342 {
343 dos_header=(IMAGE_DOS_HEADER *)me32.modBaseAddr;
344 if (dos_header->e_magic==IMAGE_DOS_SIGNATURE)
345 {
346 nt_headers=(IMAGE_NT_HEADERS *)
347 ((BYTE *)dos_header+dos_header->e_lfanew);
348 if (nt_headers->Signature==IMAGE_NT_SIGNATURE &&
349 me32.modBaseAddr!=(BYTE*)nt_headers->OptionalHeader.ImageBase)
350 OPENSSL_NONPIC_relocated=1;
351 }
352 break;
353 }
354 } while (Module32Next(hModuleSnap,&me32));
355
356 if (hModuleSnap != INVALID_HANDLE_VALUE)
357 CloseHandle(hModuleSnap);
358#endif
359 OPENSSL_cpuid_setup();
360 return 0;
361}
362
363#else
364
698#ifdef __CYGWIN__ 365#ifdef __CYGWIN__
699/* pick DLL_[PROCESS|THREAD]_[ATTACH|DETACH] definitions */ 366/* pick DLL_[PROCESS|THREAD]_[ATTACH|DETACH] definitions */
700#include <windows.h> 367#include <windows.h>
701/* this has side-effect of _WIN32 getting defined, which otherwise
702 * is mutually exclusive with __CYGWIN__... */
703#endif 368#endif
704 369
705/* All we really need to do is remove the 'error' state when a thread 370/* All we really need to do is remove the 'error' state when a thread
@@ -740,27 +405,16 @@ BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason,
740 } 405 }
741#endif 406#endif
742 407
408#endif
409
743#if defined(_WIN32) && !defined(__CYGWIN__) 410#if defined(_WIN32) && !defined(__CYGWIN__)
744#include <tchar.h> 411#include <tchar.h>
745#include <signal.h>
746 412
747#if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333 413#if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
748int OPENSSL_isservice(void) 414int OPENSSL_isservice(void)
749{ HWINSTA h; 415{ HWINSTA h;
750 DWORD len; 416 DWORD len;
751 WCHAR *name; 417 WCHAR *name;
752 static union { void *p; int (*f)(void); } _OPENSSL_isservice = { NULL };
753
754 if (_OPENSSL_isservice.p == NULL) {
755 HANDLE h = GetModuleHandle(NULL);
756 if (h != NULL)
757 _OPENSSL_isservice.p = GetProcAddress(h,"_OPENSSL_isservice");
758 if (_OPENSSL_isservice.p == NULL)
759 _OPENSSL_isservice.p = (void *)-1;
760 }
761
762 if (_OPENSSL_isservice.p != (void *)-1)
763 return (*_OPENSSL_isservice.f)();
764 418
765 (void)GetDesktopWindow(); /* return value is ignored */ 419 (void)GetDesktopWindow(); /* return value is ignored */
766 420
@@ -859,7 +513,7 @@ void OPENSSL_showfatal (const char *fmta,...)
859 513
860#if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333 514#if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
861 /* this -------------v--- guards NT-specific calls */ 515 /* this -------------v--- guards NT-specific calls */
862 if (GetVersion() < 0x80000000 && OPENSSL_isservice() > 0) 516 if (GetVersion() < 0x80000000 && OPENSSL_isservice())
863 { HANDLE h = RegisterEventSource(0,_T("OPENSSL")); 517 { HANDLE h = RegisterEventSource(0,_T("OPENSSL"));
864 const TCHAR *pmsg=buf; 518 const TCHAR *pmsg=buf;
865 ReportEvent(h,EVENTLOG_ERROR_TYPE,0,0,0,1,0,&pmsg,0); 519 ReportEvent(h,EVENTLOG_ERROR_TYPE,0,0,0,1,0,&pmsg,0);
@@ -885,13 +539,7 @@ void OpenSSLDie(const char *file,int line,const char *assertion)
885 OPENSSL_showfatal( 539 OPENSSL_showfatal(
886 "%s(%d): OpenSSL internal error, assertion failed: %s\n", 540 "%s(%d): OpenSSL internal error, assertion failed: %s\n",
887 file,line,assertion); 541 file,line,assertion);
888#if !defined(_WIN32) || defined(__CYGWIN__)
889 abort(); 542 abort();
890#else
891 /* Win32 abort() customarily shows a dialog, but we just did that... */
892 raise(SIGABRT);
893 _exit(3);
894#endif
895 } 543 }
896 544
897void *OPENSSL_stderr(void) { return stderr; } 545void *OPENSSL_stderr(void) { return stderr; }