Change 27784 by [EMAIL PROTECTED] on 2006/04/13 10:09:20
Subject: Re: [PATCH] add pTHX_ parameter to new_warnings_bitfield()
From: Steve Hay <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 13 Apr 2006 10:27:52 +0100
Affected files ...
... //depot/perl/embed.fnc#352 edit
... //depot/perl/mg.c#432 edit
... //depot/perl/perl.c#755 edit
... //depot/perl/pp_ctl.c#544 edit
... //depot/perl/proto.h#699 edit
... //depot/perl/util.c#552 edit
Differences ...
==== //depot/perl/embed.fnc#352 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#351~27783~ 2006-04-12 19:20:33.000000000 -0700
+++ perl/embed.fnc 2006-04-13 03:09:20.000000000 -0700
@@ -1666,7 +1666,7 @@
#endif
Apo |bool |ckwarn |U32 w
Apo |bool |ckwarn_d |U32 w
-nopMa |STRLEN *|new_warnings_bitfield|NULLOK STRLEN *buffer \
+opMa |STRLEN *|new_warnings_bitfield|NULLOK STRLEN *buffer \
|NN const char *const bits|STRLEN size
p |void |offer_nice_chunk |NN void *chunk|U32 chunk_size
==== //depot/perl/mg.c#432 (text) ====
Index: perl/mg.c
--- perl/mg.c#431~27779~ 2006-04-12 15:45:12.000000000 -0700
+++ perl/mg.c 2006-04-13 03:09:20.000000000 -0700
@@ -2286,7 +2286,7 @@
const char *const p = SvPV_const(sv, len);
PL_compiling.cop_warnings
- =
Perl_new_warnings_bitfield(PL_compiling.cop_warnings,
+ = Perl_new_warnings_bitfield(aTHX_
PL_compiling.cop_warnings,
p, len);
if (isWARN_on(PL_compiling.cop_warnings, WARN_ONCE))
==== //depot/perl/perl.c#755 (text) ====
Index: perl/perl.c
--- perl/perl.c#754~27779~ 2006-04-12 15:45:12.000000000 -0700
+++ perl/perl.c 2006-04-13 03:09:20.000000000 -0700
@@ -2038,7 +2038,7 @@
if (PL_taint_warn && PL_dowarn != G_WARN_ALL_OFF) {
PL_compiling.cop_warnings
- = Perl_new_warnings_bitfield(NULL, WARN_TAINTstring, WARNsize);
+ = Perl_new_warnings_bitfield(aTHX_ NULL, WARN_TAINTstring,
WARNsize);
}
if (!scriptname)
==== //depot/perl/pp_ctl.c#544 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#543~27779~ 2006-04-12 15:45:12.000000000 -0700
+++ perl/pp_ctl.c 2006-04-13 03:09:20.000000000 -0700
@@ -3370,7 +3370,7 @@
PL_compiling.cop_warnings = pWARN_NONE ;
else if (PL_taint_warn) {
PL_compiling.cop_warnings
- = Perl_new_warnings_bitfield(NULL, WARN_TAINTstring, WARNsize);
+ = Perl_new_warnings_bitfield(aTHX_ NULL, WARN_TAINTstring,
WARNsize);
}
else
PL_compiling.cop_warnings = pWARN_STD ;
==== //depot/perl/proto.h#699 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#698~27783~ 2006-04-12 19:20:33.000000000 -0700
+++ perl/proto.h 2006-04-13 03:09:20.000000000 -0700
@@ -4294,10 +4294,10 @@
#endif
PERL_CALLCONV bool Perl_ckwarn(pTHX_ U32 w);
PERL_CALLCONV bool Perl_ckwarn_d(pTHX_ U32 w);
-PERL_CALLCONV STRLEN * Perl_new_warnings_bitfield(STRLEN *buffer, const char
*const bits, STRLEN size)
+PERL_CALLCONV STRLEN * Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const
char *const bits, STRLEN size)
__attribute__malloc__
__attribute__warn_unused_result__
- __attribute__nonnull__(2);
+ __attribute__nonnull__(pTHX_2);
PERL_CALLCONV void Perl_offer_nice_chunk(pTHX_ void *chunk, U32 chunk_size)
==== //depot/perl/util.c#552 (text) ====
Index: perl/util.c
--- perl/util.c#551~27779~ 2006-04-12 15:45:12.000000000 -0700
+++ perl/util.c 2006-04-13 03:09:20.000000000 -0700
@@ -1533,7 +1533,7 @@
/* Set buffer=NULL to get a new one. */
STRLEN *
-Perl_new_warnings_bitfield(STRLEN *buffer, const char *const bits,
+Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits,
STRLEN size) {
const MEM_SIZE len_wanted = sizeof(STRLEN) + size;
End of Patch.
