This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix up .gitignore files some more
[perl5.git]
/
thread.h
diff --git
a/thread.h
b/thread.h
index
955be24
..
7718d4b
100644
(file)
--- a/
thread.h
+++ b/
thread.h
@@
-1,6
+1,7
@@
/* thread.h
*
/* thread.h
*
- * Copyright (C) 1999, 2000, 2001, 2002, by Larry Wall and others
+ * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ * by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-97,6
+98,11
@@
# define THREAD_CREATE_NEEDS_STACK (32*1024)
#endif
# define THREAD_CREATE_NEEDS_STACK (32*1024)
#endif
+#ifdef __VMS
+ /* Default is 1024 on VAX, 8192 otherwise */
+# define THREAD_CREATE_NEEDS_STACK (32*1024)
+#endif
+
#ifdef I_MACH_CTHREADS
/* cthreads interface */
#ifdef I_MACH_CTHREADS
/* cthreads interface */
@@
-150,7
+156,7
@@
#define THREAD_RET_CAST(x) ((any_t) x)
#define DETACH(t) cthread_detach(t->self)
#define THREAD_RET_CAST(x) ((any_t) x)
#define DETACH(t) cthread_detach(t->self)
-#define JOIN(t, avp) (*(avp) =
(AV *)cthread_join(t->self
))
+#define JOIN(t, avp) (*(avp) =
MUTABLE_AV(cthread_join(t->self)
))
#define PERL_SET_CONTEXT(t) cthread_set_data(cthread_self(), t)
#define PERL_GET_CONTEXT cthread_data(cthread_self())
#define PERL_SET_CONTEXT(t) cthread_set_data(cthread_self(), t)
#define PERL_GET_CONTEXT cthread_data(cthread_self())
@@
-332,10
+338,8
@@
#ifndef ALLOC_THREAD_KEY
# define ALLOC_THREAD_KEY \
STMT_START { \
#ifndef ALLOC_THREAD_KEY
# define ALLOC_THREAD_KEY \
STMT_START { \
- int _eC_; \
- if ((_eC_ = pthread_key_create(&PL_thr_key, 0))) { \
- PerlIO_printf(PerlIO_stderr(), "panic: pthread_key_create (%d) [%s:%d]", \
- _eC_, __FILE__, __LINE__); \
+ if (pthread_key_create(&PL_thr_key, 0)) { \
+ write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
exit(1); \
} \
} STMT_END
exit(1); \
} \
} STMT_END
@@
-468,3
+472,13
@@
#ifndef INIT_THREADS
# define INIT_THREADS NOOP
#endif
#ifndef INIT_THREADS
# define INIT_THREADS NOOP
#endif
+
+/*
+ * Local variables:
+ * c-indentation-style: bsd
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ *
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */