cvs commit: modperl-2.0/src/modules/perl mod_perl.h modperl_callback.c modperl_gtop.c

[dougm]

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) ?