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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3f39ca9
)
Variables possibly clobbered by longjmp/vfork.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 6 Dec 2014 14:04:49 +0000
(09:04 -0500)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 6 Dec 2014 19:30:55 +0000
(14:30 -0500)
(my_perl in the line 480 has the same problem, but messier to fix.)
dist/threads/threads.xs
patch
|
blob
|
blame
|
history
diff --git
a/dist/threads/threads.xs
b/dist/threads/threads.xs
index
5b44a38
..
3bbca65
100644
(file)
--- a/
dist/threads/threads.xs
+++ b/
dist/threads/threads.xs
@@
-470,10
+470,10
@@
S_ithread_run(void * arg)
{
ithread *thread = (ithread *)arg;
int jmp_rc = 0;
- I32 oldscope;
+
volatile
I32 oldscope;
volatile int exit_app = 0; /* Thread terminated using 'exit' */
volatile int exit_code = 0;
- int died = 0; /* Thread terminated abnormally */
+
volatile
int died = 0; /* Thread terminated abnormally */
dJMPENV;