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:
cf8db57
)
add any_op field to the ANY savestack union
author
David Mitchell
<davem@iabyn.com>
Wed, 17 Aug 2016 06:52:57 +0000
(07:52 +0100)
committer
David Mitchell
<davem@iabyn.com>
Wed, 17 Aug 2016 06:54:05 +0000
(07:54 +0100)
This is an attempt to silence a (probably spurious) Coverity warning.
perl.h
patch
|
blob
|
blame
|
history
scope.c
patch
|
blob
|
blame
|
history
diff --git
a/perl.h
b/perl.h
index
43f1a53
..
23b6431
100644
(file)
--- a/
perl.h
+++ b/
perl.h
@@
-3801,6
+3801,7
@@
union any {
GV* any_gv;
AV* any_av;
HV* any_hv;
+ OP* any_op;
char* any_pv;
char** any_pvp;
I32 any_i32;
diff --git
a/scope.c
b/scope.c
index
ff84e64
..
ba0f263
100644
(file)
--- a/
scope.c
+++ b/
scope.c
@@
-1106,7
+1106,7
@@
Perl_leave_scope(pTHX_ I32 base)
case SAVEt_FREEOP:
a0 = ap[0];
ASSERT_CURPAD_LEGAL("SAVEt_FREEOP");
- op_free(
(OP*)a0.any_ptr
);
+ op_free(
a0.any_op
);
break;
case SAVEt_FREEPV: