Change 19020 by [EMAIL PROTECTED] on 2003/03/18 05:45:50 Minor updates of Wolfgang's pack patch Subject: Re: pack changes and related fixes From: Philip Newton <[EMAIL PROTECTED]> Date: Tue, 18 Mar 2003 06:19:30 +0100 Message-ID: <[EMAIL PROTECTED]>
Affected files ... ... //depot/perl/embed.fnc#74 edit ... //depot/perl/pod/perldiag.pod#333 edit Differences ... ==== //depot/perl/embed.fnc#74 (text) ==== Index: perl/embed.fnc --- perl/embed.fnc#73~19010~ Mon Mar 17 09:16:44 2003 +++ perl/embed.fnc Mon Mar 17 21:45:50 2003 @@ -15,12 +15,12 @@ : p function has a Perl_ prefix : f function takes printf style format string, varargs : r function never returns -: o has no compatibility macro (#define foo Perl_foo) -: x not exported -: X explicitly exported -: M may change -: E visible to Perl core extensions -: b binary backward compatibility; function is a macro +: o has no compatibility macro (#define foo Perl_foo) +: x not exported +: X explicitly exported +: M may change +: E visible to Perl core extensions +: b binary backward compatibility; function is a macro : but has also Perl_ implementation (which is exported) : : Individual flags may be separated by whitespace. @@ -947,8 +947,8 @@ Ap |void |sys_intern_init #endif -Ap |char * |custom_op_name|OP* op -Ap |char * |custom_op_desc|OP* op +Ap |char * |custom_op_name |OP* op +Ap |char * |custom_op_desc |OP* op #if defined(PERL_COPY_ON_WRITE) pMX |int |sv_release_IVX |SV *sv @@ -1019,7 +1019,7 @@ s |void |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp # if defined(PL_OP_SLAB_ALLOC) s |void* |Slab_Alloc |int m|size_t sz -s |void |Slab_Free |void *op +s |void |Slab_Free |void *op # endif #endif @@ -1060,12 +1060,12 @@ #endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) -s |I32 |unpack_rec |tempsym_t* symptr|char *s|char *strbeg|char *strend|char **new_s -s |SV ** |pack_rec |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist +s |I32 |unpack_rec |tempsym_t* symptr|char *s|char *strbeg|char *strend|char **new_s +s |SV ** |pack_rec |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist s |SV* |mul128 |SV *sv|U8 m s |I32 |measure_struct |tempsym_t* symptr s |char * |group_end |char *pat|char *patend|char ender -s |char * |get_num |char *ppat|I32 * +s |char * |get_num |char *ppat|I32 * s |bool |next_symbol |tempsym_t* symptr s |void |doencodes |SV* sv|char* s|I32 len s |SV* |is_an_int |char *s|STRLEN l @@ -1220,7 +1220,7 @@ s |void |del_sv |SV *p # endif # if !defined(NV_PRESERVES_UV) -s |int |sv_2iuv_non_preserve |SV *sv|I32 numtype +s |int |sv_2iuv_non_preserve |SV *sv|I32 numtype # endif s |I32 |expect_number |char** pattern # ==== //depot/perl/pod/perldiag.pod#333 (text) ==== Index: perl/pod/perldiag.pod --- perl/pod/perldiag.pod#332~19010~ Mon Mar 17 09:16:44 2003 +++ perl/pod/perldiag.pod Mon Mar 17 21:45:50 2003 @@ -64,7 +64,7 @@ =item '!' allowed only after types %s -(F) The '!' is allowed in pack() or unpack(9 only after certain types. +(F) The '!' is allowed in pack() or unpack() only after certain types. See L<perlfunc/pack>. =item Ambiguous call resolved as CORE::%s(), qualify as such or use & End of Patch.