summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorAbhijit Menon-Sen <ams@wiw.org>2001-05-31 13:57:55 +0530
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-31 11:53:31 +0000
commit13689cfe324c4b1548f53eda346b78570974f93e (patch)
tree7bc2ade781aa92ea23017511eff44bc701ed67ed /perl.c
parent498da23314c054dd8ab00be8b23dc0d93c7c7bbb (diff)
downloadperl-13689cfe324c4b1548f53eda346b78570974f93e.tar.gz
-Wall cleanups: perl.c, gv.c, Storable.xs
Message-ID: <20010531082755.A10018@lustre.linux.in> p4raw-id: //depot/perl@10352
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index d3c8a953bd..9920a0f857 100644
--- a/perl.c
+++ b/perl.c
@@ -1681,7 +1681,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
LOGOP myop; /* fake syntax tree node */
UNOP method_op;
I32 oldmark;
- I32 retval = 0;
+ volatile I32 retval = 0;
I32 oldscope;
bool oldcatch = CATCH_GET;
int ret;
@@ -1869,7 +1869,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
dSP;
UNOP myop; /* fake syntax tree node */
I32 oldmark = SP - PL_stack_base;
- I32 retval = 0;
+ volatile I32 retval = 0;
I32 oldscope;
int ret;
OP* oldop = PL_op;