diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-19 04:40:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-19 04:40:11 +0000 |
| commit | ddcc6fdc2c2811c8014d35126e40f07b13b87e32 (patch) | |
| tree | 097124bedcb8eb50a5ca4d4f52cb7d35a9de0a99 /ext/threads | |
| parent | 43db68287b2d8f6cdf86051fd386695ba8658389 (diff) | |
| download | perl-ddcc6fdc2c2811c8014d35126e40f07b13b87e32.tar.gz | |
Slightly wrong panic messages.
p4raw-id: //depot/perl@19562
Diffstat (limited to 'ext/threads')
| -rwxr-xr-x | ext/threads/threads.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index 580f699311..4e34a40f0b 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -13,7 +13,7 @@ #define PERL_THREAD_ALLOC_SPECIFIC(k) \ STMT_START {\ if((k = TlsAlloc()) == TLS_OUT_OF_INDEXES) {\ - PerlIO_printf(PerlIO_stderr(),"panic threads.h: TlsAlloc");\ + PerlIO_printf(PerlIO_stderr(),"panic threads.xs: TlsAlloc");\ exit(1);\ }\ } STMT_END @@ -31,7 +31,7 @@ typedef perl_os_thread pthread_t; #define PERL_THREAD_GETSPECIFIC(k,v) pthread_getspecific(k,&v) #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\ if(pthread_keycreate(&(k),0)) {\ - PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\ + PerlIO_printf(PerlIO_stderr(), "panic threads.xs: pthread_key_create");\ exit(1);\ }\ } STMT_END @@ -40,7 +40,7 @@ typedef perl_os_thread pthread_t; #define PERL_THREAD_GETSPECIFIC(k,v) v = pthread_getspecific(k) #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\ if(pthread_key_create(&(k),0)) {\ - PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\ + PerlIO_printf(PerlIO_stderr(), "panic threads.xs: pthread_key_create");\ exit(1);\ }\ } STMT_END |