cvs commit: modperl-2.0/src/modules/perl modperl_perl_pp.c modperl_perl_pp.h

[dougm]

dougm       2002/06/15 18:20:50

  Modified:    src/modules/perl modperl_perl_pp.c modperl_perl_pp.h
  Log:
  stub modperl_pp_require
  
  Revision  Changes    Path
  1.2       +8 -0      modperl-2.0/src/modules/perl/modperl_perl_pp.c
  
  Index: modperl_perl_pp.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_pp.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_perl_pp.c 16 Jun 2002 01:07:21 -0000      1.1
  +++ modperl_perl_pp.c 16 Jun 2002 01:20:50 -0000      1.2
  @@ -4,6 +4,7 @@
   #ifdef MP_REFGEN_FIXUP
       OP_SREFGEN,
   #endif
  +    OP_REQUIRE
   };
   
   typedef OP * MP_FUNC_T(modperl_pp_t)(pTHX);
  @@ -47,10 +48,17 @@
   
   #endif /* MP_REFGEN_FIXUP */
   
  +static OP *modperl_pp_require(pTHX)
  +{
  +    /* nothing yet */
  +    return MP_PERL_ppaddr[MP_OP_REQUIRE](aTHX);
  +}
  +
   static modperl_pp_t MP_ppaddr[] = {
   #ifdef MP_REFGEN_FIXUP
       MEMBER_TO_FPTR(modperl_pp_srefgen),
   #endif
  +    MEMBER_TO_FPTR(modperl_pp_require)
   };
   
   void modperl_perl_pp_set(modperl_perl_opcode_e idx)
  
  
  
  1.2       +1 -0      modperl-2.0/src/modules/perl/modperl_perl_pp.h
  
  Index: modperl_perl_pp.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_pp.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_perl_pp.h 16 Jun 2002 01:07:21 -0000      1.1
  +++ modperl_perl_pp.h 16 Jun 2002 01:20:50 -0000      1.2
  @@ -9,6 +9,7 @@
   #ifdef MP_REFGEN_FIXUP
       MP_OP_SREFGEN,
   #endif
  +    MP_OP_REQUIRE,
       MP_OP_max
   } modperl_perl_opcode_e;