diff options
Diffstat (limited to 'src/lib/libcrypto/cryptlib.c')
-rw-r--r-- | src/lib/libcrypto/cryptlib.c | 508 |
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 @@ | |||
121 | static double SSLeay_MSVC5_hack=0.0; /* and for VC1.5 */ | 121 | static double SSLeay_MSVC5_hack=0.0; /* and for VC1.5 */ |
122 | #endif | 122 | #endif |
123 | 123 | ||
124 | DECLARE_STACK_OF(CRYPTO_dynlock) | ||
125 | |||
126 | /* real #defines in crypto.h, keep these upto date */ | ||
127 | static 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. */ | ||
177 | static 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. */ | ||
182 | static STACK_OF(CRYPTO_dynlock) *dyn_locks=NULL; | ||
183 | |||
184 | |||
185 | static void (MS_FAR *locking_callback)(int mode,int type, | 124 | static void (MS_FAR *locking_callback)(int mode,int type, |
186 | const char *file,int line)=0; | 125 | const char *file,int line)=NULL; |
187 | static int (MS_FAR *add_lock_callback)(int *pointer,int amount, | 126 | static 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 | 128 | static unsigned long (MS_FAR *id_callback)(void)=NULL; |
190 | static unsigned long (MS_FAR *id_callback)(void)=0; | ||
191 | #endif | ||
192 | static void (MS_FAR *threadid_callback)(CRYPTO_THREADID *)=0; | ||
193 | static struct CRYPTO_dynlock_value *(MS_FAR *dynlock_create_callback) | ||
194 | (const char *file,int line)=0; | ||
195 | static void (MS_FAR *dynlock_lock_callback)(int mode, | ||
196 | struct CRYPTO_dynlock_value *l, const char *file,int line)=0; | ||
197 | static void (MS_FAR *dynlock_destroy_callback)(struct CRYPTO_dynlock_value *l, | ||
198 | const char *file,int line)=0; | ||
199 | |||
200 | int 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 | ||
231 | int CRYPTO_num_locks(void) | 130 | int CRYPTO_num_locks(void) |
232 | { | 131 | { |
233 | return CRYPTO_NUM_LOCKS; | 132 | return CRYPTO_NUM_LOCKS; |
234 | } | 133 | } |
235 | 134 | ||
236 | int 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 | |||
297 | void 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 | |||
340 | struct 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 | |||
360 | struct CRYPTO_dynlock_value *(*CRYPTO_get_dynlock_create_callback(void)) | ||
361 | (const char *file,int line) | ||
362 | { | ||
363 | return(dynlock_create_callback); | ||
364 | } | ||
365 | |||
366 | void (*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 | |||
372 | void (*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 | |||
378 | void CRYPTO_set_dynlock_create_callback(struct CRYPTO_dynlock_value *(*func) | ||
379 | (const char *file, int line)) | ||
380 | { | ||
381 | dynlock_create_callback=func; | ||
382 | } | ||
383 | |||
384 | void 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 | |||
390 | void 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 | |||
397 | void (*CRYPTO_get_locking_callback(void))(int mode,int type,const char *file, | 135 | void (*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. */ | ||
424 | void CRYPTO_THREADID_set_numeric(CRYPTO_THREADID *id, unsigned long val) | ||
425 | { | ||
426 | memset(id, 0, sizeof(*id)); | ||
427 | id->val = val; | ||
428 | } | ||
429 | |||
430 | static const unsigned char hash_coeffs[] = { 3, 5, 7, 11, 13, 17, 19, 23 }; | ||
431 | void 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 | |||
466 | int 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 | |||
474 | void (*CRYPTO_THREADID_get_callback(void))(CRYPTO_THREADID *) | ||
475 | { | ||
476 | return threadid_callback; | ||
477 | } | ||
478 | |||
479 | void 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 | |||
507 | int CRYPTO_THREADID_cmp(const CRYPTO_THREADID *a, const CRYPTO_THREADID *b) | ||
508 | { | ||
509 | return memcmp(a, b, sizeof(*a)); | ||
510 | } | ||
511 | |||
512 | void CRYPTO_THREADID_cpy(CRYPTO_THREADID *dest, const CRYPTO_THREADID *src) | ||
513 | { | ||
514 | memcpy(dest, src, sizeof(*src)); | ||
515 | } | ||
516 | |||
517 | unsigned long CRYPTO_THREADID_hash(const CRYPTO_THREADID *id) | ||
518 | { | ||
519 | return id->val; | ||
520 | } | ||
521 | |||
522 | #ifndef OPENSSL_NO_DEPRECATED | ||
523 | unsigned long (*CRYPTO_get_id_callback(void))(void) | 159 | unsigned 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 | |
190 | static void (*do_dynlock_cb)(int mode, int type, const char *file, int line); | ||
191 | |||
192 | void 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 | ||
557 | void CRYPTO_lock(int mode, int type, const char *file, int line) | 198 | void 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 | ||
648 | const 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) | |||
690 | unsigned long *OPENSSL_ia32cap_loc(void) { return NULL; } | 301 | unsigned long *OPENSSL_ia32cap_loc(void) { return NULL; } |
691 | #endif | 302 | #endif |
692 | int OPENSSL_NONPIC_relocated = 0; | 303 | int OPENSSL_NONPIC_relocated = 0; |
693 | #if !defined(OPENSSL_CPUID_SETUP) && !defined(OPENSSL_CPUID_OBJ) | 304 | #if !defined(OPENSSL_CPUID_SETUP) |
694 | void OPENSSL_cpuid_setup(void) {} | 305 | void 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 | ||
314 | static int DllInit(void) __attribute__((constructor)); | ||
315 | #elif defined(_MSC_VER) | ||
316 | static 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 | |||
327 | static 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 |
748 | int OPENSSL_isservice(void) | 414 | int 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 | ||
897 | void *OPENSSL_stderr(void) { return stderr; } | 545 | void *OPENSSL_stderr(void) { return stderr; } |