Change 33106 by [EMAIL PROTECTED] on 2008/01/29 15:06:55
Fix Win32 compiler warnings introduced by #33081 and #33085
Affected files ...
... //depot/perl/embed.fnc#566 edit
... //depot/perl/pod/perlapi.pod#316 edit
... //depot/perl/pp_ctl.c#681 edit
... //depot/perl/proto.h#900 edit
Differences ...
==== //depot/perl/embed.fnc#566 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#565~33103~ 2008-01-29 02:53:24.000000000 -0800
+++ perl/embed.fnc 2008-01-29 07:06:55.000000000 -0800
@@ -646,7 +646,7 @@
Apd |I32 |call_argv |NN const char* sub_name|I32 flags|NN char**
argv
Apd |I32 |call_method |NN const char* methname|I32 flags
Apd |I32 |call_pv |NN const char* sub_name|I32 flags
-Apd |I32 |call_sv |NN SV* sv|I32 flags
+Apd |I32 |call_sv |NN SV* sv|VOL I32 flags
Ap |void |despatch_signals
Ap |OP * |doref |NN OP *o|I32 type|bool set_op_ref
Apd |SV* |eval_pv |NN const char* p|I32 croak_on_error
==== //depot/perl/pod/perlapi.pod#316 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod#315~33103~ 2008-01-29 02:53:24.000000000 -0800
+++ perl/pod/perlapi.pod 2008-01-29 07:06:55.000000000 -0800
@@ -428,7 +428,7 @@
NOTE: the perl_ form of this function is deprecated.
- I32 call_sv(SV* sv, I32 flags)
+ I32 call_sv(SV* sv, VOL I32 flags)
=for hackers
Found in file perl.c
==== //depot/perl/pp_ctl.c#681 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#680~33086~ 2008-01-28 02:23:21.000000000 -0800
+++ perl/pp_ctl.c 2008-01-29 07:06:55.000000000 -0800
@@ -1838,6 +1838,8 @@
U8 cxtype = CXt_LOOP_FOR;
#ifdef USE_ITHREADS
PAD *iterdata;
+#else
+ PADOFFSET op;
#endif
ENTER;
@@ -1875,7 +1877,8 @@
#ifdef USE_ITHREADS
PUSHLOOP_FOR(cx, iterdata, MARK, PL_op->op_targ);
#else
- PUSHLOOP_FOR(cx, svp, MARK, /*Not used*/);
+ PERL_UNUSED_VAR(op);
+ PUSHLOOP_FOR(cx, svp, MARK, op/*Not used*/);
#endif
if (PL_op->op_flags & OPf_STACKED) {
SV *maybe_ary = POPs;
==== //depot/perl/proto.h#900 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#899~33103~ 2008-01-29 02:53:24.000000000 -0800
+++ perl/proto.h 2008-01-29 07:06:55.000000000 -0800
@@ -1763,7 +1763,7 @@
PERL_CALLCONV I32 Perl_call_pv(pTHX_ const char* sub_name, I32 flags)
__attribute__nonnull__(pTHX_1);
-PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, I32 flags)
+PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, VOL I32 flags)
__attribute__nonnull__(pTHX_1);
PERL_CALLCONV void Perl_despatch_signals(pTHX);
End of Patch.
