From ddcc6fdc2c2811c8014d35126e40f07b13b87e32 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 19 May 2003 04:40:11 +0000 Subject: [PATCH] Slightly wrong panic messages. p4raw-id: //depot/perl@19562 --- ext/threads/threads.xs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index 580f699..4e34a40 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 -- 1.8.3.1