cvs commit: ponie/perl embedvar.h intrpvar.h perlapi.h

cvsuser     03/12/19 06:38:57

  Modified:    perl     embedvar.h intrpvar.h perlapi.h
  Log:
  make the variable a I variable, for god knows that an I variable should be exported correctly, grr
  
  Revision  Changes    Path
  1.2       +2 -0      ponie/perl/embedvar.h
  
  Index: embedvar.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embedvar.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- embedvar.h	9 Sep 2003 11:58:49 -0000	1.1
  +++ embedvar.h	19 Dec 2003 14:38:57 -0000	1.2
  @@ -182,6 +182,7 @@
   #define PL_OpPtr		(vTHX->IOpPtr)
   #define PL_OpSlab		(vTHX->IOpSlab)
   #define PL_OpSpace		(vTHX->IOpSpace)
  +#define PL_Parrot		(vTHX->IParrot)
   #define PL_Proc			(vTHX->IProc)
   #define PL_Sock			(vTHX->ISock)
   #define PL_StdIO		(vTHX->IStdIO)
  @@ -486,6 +487,7 @@
   #define PL_IOpPtr		PL_OpPtr
   #define PL_IOpSlab		PL_OpSlab
   #define PL_IOpSpace		PL_OpSpace
  +#define PL_IParrot		PL_Parrot
   #define PL_IProc		PL_Proc
   #define PL_ISock		PL_Sock
   #define PL_IStdIO		PL_StdIO
  
  
  
  1.3       +2 -1      ponie/perl/intrpvar.h
  
  Index: intrpvar.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/intrpvar.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- intrpvar.h	9 Sep 2003 14:29:08 -0000	1.2
  +++ intrpvar.h	19 Dec 2003 14:38:57 -0000	1.3
  @@ -532,7 +532,8 @@
   PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
   
   
  -PERLVAR(Parrot, Parrot_Interp)
  +PERLVAR(IParrot, Parrot_Interp)
  +
   
   /* New variables must be added to the very end, before this comment,
    * for binary compatibility (the offsets of the old members must not change).
  
  
  
  1.2       +2 -0      ponie/perl/perlapi.h
  
  Index: perlapi.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/perlapi.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- perlapi.h	9 Sep 2003 11:58:52 -0000	1.1
  +++ perlapi.h	19 Dec 2003 14:38:57 -0000	1.2
  @@ -122,6 +122,8 @@
   #define PL_OpSlab		(*Perl_IOpSlab_ptr(aTHX))
   #undef  PL_OpSpace
   #define PL_OpSpace		(*Perl_IOpSpace_ptr(aTHX))
  +#undef  PL_Parrot
  +#define PL_Parrot		(*Perl_IParrot_ptr(aTHX))
   #undef  PL_Proc
   #define PL_Proc			(*Perl_IProc_ptr(aTHX))
   #undef  PL_Sock