Change 30042 by [EMAIL PROTECTED] on 2007/01/27 22:45:18

        Integrate:
        [ 28731]
        gcc-4.1.1 on Fedora optimized away NULL chacks in Perl_do_close(),
        which caused core dumps.
        
        [ 29753]
        do_gv_dump, do_gvgv_dump and do_hv_dump call all actually take a NULL
        parameter. Patch for do_hv_dump supplied by Brandon L Black, other
        two added after code inspection.
        
        [ 29758]
        Change 29753 messed up do_hv_dump() [my fault]

Affected files ...

... //depot/maint-5.8/perl/embed.fnc#201 integrate
... //depot/maint-5.8/perl/proto.h#192 integrate

Differences ...

==== //depot/maint-5.8/perl/embed.fnc#201 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#200~30033~   2007-01-27 08:40:35.000000000 -0800
+++ perl/embed.fnc      2007-01-27 14:45:18.000000000 -0800
@@ -197,7 +197,7 @@
 p      |bool   |do_aexec5      |NULLOK SV* really|NN SV** mark|NN SV** sp|int 
fd|int do_report
 Ap     |int    |do_binmode     |NN PerlIO *fp|int iotype|int mode
 p      |void   |do_chop        |NN SV* asv|NN SV* sv
-Ap     |bool   |do_close       |NN GV* gv|bool not_implicit
+Ap     |bool   |do_close       |NULLOK GV* gv|bool not_implicit
 p      |bool   |do_eof         |NN GV* gv
 
 #ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
@@ -981,9 +981,9 @@
 Afp    |void   |dump_indent    |I32 level|NN PerlIO *file|NN const char* 
pat|...
 Ap     |void   |dump_vindent   |I32 level|NN PerlIO *file|NN const char* pat \
                                |NULLOK va_list *args
-Ap     |void   |do_gv_dump     |I32 level|NN PerlIO *file|NN char *name|NN GV 
*sv
-Ap     |void   |do_gvgv_dump   |I32 level|NN PerlIO *file|NN char *name|NN GV 
*sv
-Ap     |void   |do_hv_dump     |I32 level|NN PerlIO *file|NN char *name|NN HV 
*sv
+Ap     |void   |do_gv_dump     |I32 level|NN PerlIO *file|NN char *name|NULLOK 
GV *sv
+Ap     |void   |do_gvgv_dump   |I32 level|NN PerlIO *file|NN char *name|NULLOK 
GV *sv
+Ap     |void   |do_hv_dump     |I32 level|NN PerlIO *file|NN char *name|NULLOK 
HV *sv
 Ap     |void   |do_magic_dump  |I32 level|NN PerlIO *file|NN MAGIC *mg|I32 
nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
 Ap     |void   |do_op_dump     |I32 level|NN PerlIO *file|NULLOK OP *o
End of Patch.

Reply via email to