cvs commit: ponie/perl embed.fnc embed.h global.sym gv.c proto.h

cvsuser     05/05/01 11:34:08

  Modified:    perl     embed.fnc embed.h global.sym gv.c proto.h
  Log:
  Remove the last macro functions. (GV related)
  
  Revision  Changes    Path
  1.43      +0 -6      ponie/perl/embed.fnc
  
  Index: embed.fnc
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.fnc,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -r1.42 -r1.43
  --- embed.fnc	1 May 2005 17:35:10 -0000	1.42
  +++ embed.fnc	1 May 2005 18:34:07 -0000	1.43
  @@ -963,12 +963,6 @@
   Adp	|void	|sv_nounlocking	|SV *
   Adp	|int	|nothreadhook
   
  -Ap	|GP**	|macro_GvGP	|GV *
  -Ap	|char**	|macro_GvNAME	|GV *
  -Ap	|STRLEN*	|macro_GvNAMELEN	|GV *
  -Ap	|HV**	|macro_GvSTASH	|GV *
  -Ap	|U8*	|macro_GvFLAGS	|GV *
  -
   END_EXTERN_C
   
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
  
  
  
  1.33      +0 -10     ponie/perl/embed.h
  
  Index: embed.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.h,v
  retrieving revision 1.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- embed.h	1 May 2005 17:35:10 -0000	1.32
  +++ embed.h	1 May 2005 18:34:07 -0000	1.33
  @@ -1243,11 +1243,6 @@
   #define sv_nolocking		Perl_sv_nolocking
   #define sv_nounlocking		Perl_sv_nounlocking
   #define nothreadhook		Perl_nothreadhook
  -#define macro_GvGP		Perl_macro_GvGP
  -#define macro_GvNAME		Perl_macro_GvNAME
  -#define macro_GvNAMELEN		Perl_macro_GvNAMELEN
  -#define macro_GvSTASH		Perl_macro_GvSTASH
  -#define macro_GvFLAGS		Perl_macro_GvFLAGS
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
   #ifdef PERL_CORE
   #define do_trans_simple		S_do_trans_simple
  @@ -3733,11 +3728,6 @@
   #define sv_nolocking(a)		Perl_sv_nolocking(aTHX_ a)
   #define sv_nounlocking(a)	Perl_sv_nounlocking(aTHX_ a)
   #define nothreadhook()		Perl_nothreadhook(aTHX)
  -#define macro_GvGP(a)		Perl_macro_GvGP(aTHX_ a)
  -#define macro_GvNAME(a)		Perl_macro_GvNAME(aTHX_ a)
  -#define macro_GvNAMELEN(a)	Perl_macro_GvNAMELEN(aTHX_ a)
  -#define macro_GvSTASH(a)	Perl_macro_GvSTASH(aTHX_ a)
  -#define macro_GvFLAGS(a)	Perl_macro_GvFLAGS(aTHX_ a)
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
   #ifdef PERL_CORE
   #define do_trans_simple(a)	S_do_trans_simple(aTHX_ a)
  
  
  
  1.26      +0 -5      ponie/perl/global.sym
  
  Index: global.sym
  ===================================================================
  RCS file: /cvs/public/ponie/perl/global.sym,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -r1.25 -r1.26
  --- global.sym	1 May 2005 17:35:10 -0000	1.25
  +++ global.sym	1 May 2005 18:34:07 -0000	1.26
  @@ -633,11 +633,6 @@
   Perl_sv_nolocking
   Perl_sv_nounlocking
   Perl_nothreadhook
  -Perl_macro_GvGP
  -Perl_macro_GvNAME
  -Perl_macro_GvNAMELEN
  -Perl_macro_GvSTASH
  -Perl_macro_GvFLAGS
   Perl_Slab_Alloc
   Perl_Slab_Free
   Perl_sv_setsv_flags
  
  
  
  1.10      +0 -25     ponie/perl/gv.c
  
  Index: gv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/gv.c,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- gv.c	30 Apr 2005 08:11:43 -0000	1.9
  +++ gv.c	1 May 2005 18:34:07 -0000	1.10
  @@ -35,31 +35,6 @@
   #include "perl.h"
   #include "parrot/extend.h"
   
  -GP** Perl_macro_GvGP (pTHX_ GV *sv) {
  -  XPVGV* data = (XPVGV*) /**/ SvANY(sv);
  -  return &(data->xgv_gp);
  -}
  -
  -char** Perl_macro_GvNAME (pTHX_ GV *sv) {
  -  XPVGV* data = (XPVGV*) /**/ SvANY(sv);
  -  return &(data->xgv_name);
  -}
  -
  -STRLEN* Perl_macro_GvNAMELEN (pTHX_ GV *sv) {
  -  XPVGV* data = (XPVGV*) /**/ SvANY(sv);
  -  return &(data->xgv_namelen);
  -}
  -
  -HV** Perl_macro_GvSTASH (pTHX_ GV *sv) {
  -  XPVGV* data = (XPVGV*) /**/ SvANY(sv);
  -  return &(data->xgv_stash);
  -}
  -
  -U8* Perl_macro_GvFLAGS (pTHX_ GV *sv) {
  -  XPVGV* data = (XPVGV*) /**/ SvANY(sv);
  -  return &(data->xgv_flags);
  -}
  -
   GV *
   Perl_gv_AVadd(pTHX_ register GV *gv)
   {
  
  
  
  1.43      +0 -6      ponie/perl/proto.h
  
  Index: proto.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/proto.h,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -r1.42 -r1.43
  --- proto.h	1 May 2005 17:35:10 -0000	1.42
  +++ proto.h	1 May 2005 18:34:08 -0000	1.43
  @@ -923,12 +923,6 @@
   PERL_CALLCONV void	Perl_sv_nounlocking(pTHX_ SV *);
   PERL_CALLCONV int	Perl_nothreadhook(pTHX);
   
  -PERL_CALLCONV GP**	Perl_macro_GvGP(pTHX_ GV *);
  -PERL_CALLCONV char**	Perl_macro_GvNAME(pTHX_ GV *);
  -PERL_CALLCONV STRLEN*	Perl_macro_GvNAMELEN(pTHX_ GV *);
  -PERL_CALLCONV HV**	Perl_macro_GvSTASH(pTHX_ GV *);
  -PERL_CALLCONV U8*	Perl_macro_GvFLAGS(pTHX_ GV *);
  -
   END_EXTERN_C
   
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)