dougm 00/04/24 22:57:49 Modified: lib/ModPerl Code.pm src/modules/perl mod_perl.h modperl_callback.c modperl_gtop.c Log: rid -Wall warnings Revision Changes Path 1.17 +4 -0 modperl-2.0/lib/ModPerl/Code.pm Index: Code.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -u -r1.16 -r1.17 --- Code.pm 2000/04/25 04:38:54 1.16 +++ Code.pm 2000/04/25 05:57:47 1.17 @@ -262,6 +262,8 @@ $i += $i || 1; } } + + (); } my %trace = ( @@ -324,6 +326,8 @@ '#define MP_TRACE_dump_flags()', qq{fprintf(stderr, "mod_perl trace flags dump:\\n");}, @dumper; + + (); } sub ins_underscore { 1.12 +3 -0 modperl-2.0/src/modules/perl/mod_perl.h Index: mod_perl.h =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.h,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- mod_perl.h 2000/04/25 03:59:02 1.11 +++ mod_perl.h 2000/04/25 05:57:48 1.12 @@ -9,6 +9,9 @@ #include "perl.h" #include "XSUB.h" +#undef dNOOP +#define dNOOP extern int __attribute__ ((unused)) Perl___notused + /*XXX*/ #undef TRUE #undef FALSE 1.5 +5 -3 modperl-2.0/src/modules/perl/modperl_callback.c Index: modperl_callback.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- modperl_callback.c 2000/04/25 03:48:27 1.4 +++ modperl_callback.c 2000/04/25 05:57:48 1.5 @@ -282,12 +282,14 @@ int modperl_run_handlers(int idx, request_rec *r, server_rec *s, int type) { +#ifdef USE_ITHREADS pTHX; +#endif MP_dSCFG(s); modperl_handler_t **handlers; MpAV *av; - int i, status; - const char *desc; + int i, status = OK; + const char *desc = NULL; if (type == MP_HANDLER_TYPE_DIR) { MP_dDCFG; @@ -316,7 +318,7 @@ #endif } #ifdef USE_ITHREADS - else if (s) { + else { /* Child{Init,Exit} */ aTHX = scfg->mip->parent->perl; } 1.2 +1 -1 modperl-2.0/src/modules/perl/modperl_gtop.c Index: modperl_gtop.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_gtop.c,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- modperl_gtop.c 2000/04/17 07:10:35 1.1 +++ modperl_gtop.c 2000/04/25 05:57:48 1.2 @@ -74,7 +74,7 @@ void modperl_gtop_proc_mem_size_string(modperl_gtop_t *gtop, int type) { int is_diff = (type == SS_TYPE_DIFF); - glibtop_proc_mem *pm; + glibtop_proc_mem *pm = NULL; if (!is_diff) { pm = (type == SS_TYPE_BEFORE) ?