Change 27980 by [EMAIL PROTECTED] on 2006/04/27 15:30:40

        Fix up a couple more errors in 2 static functions' prototypes, and
        add NN to 3 other functions.

Affected files ...

... //depot/maint-5.8/perl/embed.fnc#141 edit
... //depot/maint-5.8/perl/proto.h#130 edit

Differences ...

==== //depot/maint-5.8/perl/embed.fnc#141 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#140~27978~   2006-04-27 07:37:43.000000000 -0700
+++ perl/embed.fnc      2006-04-27 08:30:40.000000000 -0700
@@ -1139,14 +1139,14 @@
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-s      |I32    |unpack_rec     |NN struct tempsym_t* symptr|NN const char *s \
+s      |I32    |unpack_rec     |NN struct tempsym* symptr|NN const char *s \
                                |NN const char *strbeg|NN const char *strend \
                                |NULLOK const char **new_s
-s      |SV **  |pack_rec       |NN SV *cat|NN struct tempsym_t* symptr \
+s      |SV **  |pack_rec       |NN SV *cat|NN struct tempsym* symptr \
                                |NN SV **beglist|NN SV **endlist
 s      |SV*    |mul128         |NN SV *sv|U8 m
-s      |I32    |measure_struct |struct tempsym* symptr
-s      |bool   |next_symbol    |struct tempsym* symptr
+s      |I32    |measure_struct |NN struct tempsym* symptr
+s      |bool   |next_symbol    |NN struct tempsym* symptr
 sR     |SV*    |is_an_int      |NN const char *s|STRLEN l
 s      |int    |div128         |NN SV *pnum|NN bool *done
 s      |const char *|group_end |NN const char *pat|NN const char *patend \
@@ -1580,7 +1580,7 @@
 p      |void   |dump_sv_child  |NN SV *sv
 #endif
 
-Apod   |void   |hv_assert      |HV* tb
+Apod   |void   |hv_assert      |NN HV* tb
 
 #ifdef PERL_DONT_CREATE_GVSV
 Ap     |GV*    |gv_SVadd       |NN GV* gv

==== //depot/maint-5.8/perl/proto.h#130 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#129~27978~     2006-04-27 07:37:43.000000000 -0700
+++ perl/proto.h        2006-04-27 08:30:40.000000000 -0700
@@ -1683,8 +1683,8 @@
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-STATIC I32     S_unpack_rec(pTHX_ struct tempsym_t* symptr, const char *s, 
const char *strbeg, const char *strend, const char **new_s);
-STATIC SV **   S_pack_rec(pTHX_ SV *cat, struct tempsym_t* symptr, SV 
**beglist, SV **endlist);
+STATIC I32     S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const 
char *strbeg, const char *strend, const char **new_s);
+STATIC SV **   S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, 
SV **endlist);
 STATIC SV*     S_mul128(pTHX_ SV *sv, U8 m);
 STATIC I32     S_measure_struct(pTHX_ struct tempsym* symptr);
 STATIC bool    S_next_symbol(pTHX_ struct tempsym* symptr);
End of Patch.

Reply via email to