Change 27478 by [EMAIL PROTECTED] on 2006/03/11 22:29:56
NNs and NULLOKs for MAD's new functions.
Affected files ...
... //depot/perl/embed.fnc#331 edit
... //depot/perl/proto.h#678 edit
Differences ...
==== //depot/perl/embed.fnc#331 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#330~27470~ 2006-03-11 02:16:04.000000000 -0800
+++ perl/embed.fnc 2006-03-11 14:29:56.000000000 -0800
@@ -1689,17 +1689,19 @@
Mp |void |do_op_xmldump |I32 level|NN PerlIO *file|NULLOK const OP *o
Mp |void |op_xmldump |NN const OP* arg
-Mp |TOKEN* |newTOKEN |I32 optype|YYSTYPE lval|MADPROP* madprop
-Mp |void |token_free |TOKEN* arg
-Mp |void |token_getmad |TOKEN* arg|OP* o|char slot
-Mp |void |op_getmad_weak |OP* from|OP* o|char slot
-Mp |void |op_getmad |OP* from|OP* o|char slot
-Mp |void |prepend_madprops|MADPROP* mp|OP* o|char slot
-Mp |void |append_madprops|MADPROP* tm|OP* o|char slot
-Mp |void |addmad |MADPROP* tm|MADPROP** root|char slot
-Mp |MADPROP*|newMADsv |char key|SV* sv
-Mp |MADPROP*|newMADPROP |char key|char type|void* val|I32 vlen
-Mp |void |mad_free |MADPROP* mp
+Mp |TOKEN* |newTOKEN |I32 optype|YYSTYPE lval \
+ |NULLOK MADPROP* madprop
+Mp |void |token_free |NN TOKEN* arg
+Mp |void |token_getmad |NN TOKEN* arg|NULLOK OP* o|char slot
+Mp |void |op_getmad_weak |NULLOK OP* from|NULLOK OP* o|char slot
+Mp |void |op_getmad |NULLOK OP* from|NULLOK OP* o|char slot
+Mp |void |prepend_madprops|NULLOK MADPROP* mp|NULLOK OP* o|char slot
+Mp |void |append_madprops|NULLOK MADPROP* tm|NULLOK OP* o|char slot
+Mp |void |addmad |NULLOK MADPROP* tm|NULLOK MADPROP** root \
+ |char slot
+Mp |MADPROP*|newMADsv |char key|NN SV* sv
+Mp |MADPROP*|newMADPROP |char key|char type|NULLOK void* val|I32 vlen
+Mp |void |mad_free |NULLOK MADPROP* mp
# if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
s |char* |skipspace0 |NN char *s
==== //depot/perl/proto.h#678 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#677~27470~ 2006-03-11 02:16:04.000000000 -0800
+++ perl/proto.h 2006-03-11 14:29:56.000000000 -0800
@@ -4344,14 +4344,20 @@
PERL_CALLCONV TOKEN* Perl_newTOKEN(pTHX_ I32 optype, YYSTYPE lval, MADPROP*
madprop);
-PERL_CALLCONV void Perl_token_free(pTHX_ TOKEN* arg);
-PERL_CALLCONV void Perl_token_getmad(pTHX_ TOKEN* arg, OP* o, char slot);
+PERL_CALLCONV void Perl_token_free(pTHX_ TOKEN* arg)
+ __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void Perl_token_getmad(pTHX_ TOKEN* arg, OP* o, char slot)
+ __attribute__nonnull__(pTHX_1);
+
PERL_CALLCONV void Perl_op_getmad_weak(pTHX_ OP* from, OP* o, char slot);
PERL_CALLCONV void Perl_op_getmad(pTHX_ OP* from, OP* o, char slot);
PERL_CALLCONV void Perl_prepend_madprops(pTHX_ MADPROP* mp, OP* o, char
slot);
PERL_CALLCONV void Perl_append_madprops(pTHX_ MADPROP* tm, OP* o, char
slot);
PERL_CALLCONV void Perl_addmad(pTHX_ MADPROP* tm, MADPROP** root, char
slot);
-PERL_CALLCONV MADPROP* Perl_newMADsv(pTHX_ char key, SV* sv);
+PERL_CALLCONV MADPROP* Perl_newMADsv(pTHX_ char key, SV* sv)
+ __attribute__nonnull__(pTHX_2);
+
PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, void* val,
I32 vlen);
PERL_CALLCONV void Perl_mad_free(pTHX_ MADPROP* mp);
End of Patch.
