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

cvsuser     05/04/30 02:12:44

  Modified:    perl     embed.fnc embed.h global.sym proto.h sv.c
  Log:
  Move the new body zeroing functions back inline. (Now in the PMC code)
  Remove the public API for them.
  
  Revision  Changes    Path
  1.36      +0 -3      ponie/perl/embed.fnc
  
  Index: embed.fnc
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.fnc,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- embed.fnc	23 Apr 2005 16:52:41 -0000	1.35
  +++ embed.fnc	30 Apr 2005 09:12:44 -0000	1.36
  @@ -1267,9 +1267,6 @@
   Ap	|void	|del_xpvlv	|XPVLV* p
   Ap	|void	|del_xpvbm	|XPVBM* p
   Ap	|void	|del_xpvgv	|XPVGV* p
  -Ap	|void	|zero_xpvfm	|SV *fm
  -Ap	|void	|zero_xpvcv	|SV *cv
  -Ap	|void	|zero_xpvio	|SV *io
   
   #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
   s	|IV	|asIV		|SV* sv
  
  
  
  1.26      +0 -6      ponie/perl/embed.h
  
  Index: embed.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.h,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -r1.25 -r1.26
  --- embed.h	23 Apr 2005 16:52:41 -0000	1.25
  +++ embed.h	30 Apr 2005 09:12:44 -0000	1.26
  @@ -1792,9 +1792,6 @@
   #define del_xpvlv		Perl_del_xpvlv
   #define del_xpvbm		Perl_del_xpvbm
   #define del_xpvgv		Perl_del_xpvgv
  -#define zero_xpvfm		Perl_zero_xpvfm
  -#define zero_xpvcv		Perl_zero_xpvcv
  -#define zero_xpvio		Perl_zero_xpvio
   #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
   #ifdef PERL_CORE
   #define asIV			S_asIV
  @@ -4401,9 +4398,6 @@
   #define del_xpvlv(a)		Perl_del_xpvlv(aTHX_ a)
   #define del_xpvbm(a)		Perl_del_xpvbm(aTHX_ a)
   #define del_xpvgv(a)		Perl_del_xpvgv(aTHX_ a)
  -#define zero_xpvfm(a)		Perl_zero_xpvfm(aTHX_ a)
  -#define zero_xpvcv(a)		Perl_zero_xpvcv(aTHX_ a)
  -#define zero_xpvio(a)		Perl_zero_xpvio(aTHX_ a)
   #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
   #ifdef PERL_CORE
   #define asIV(a)			S_asIV(aTHX_ a)
  
  
  
  1.20      +0 -3      ponie/perl/global.sym
  
  Index: global.sym
  ===================================================================
  RCS file: /cvs/public/ponie/perl/global.sym,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- global.sym	23 Apr 2005 16:52:41 -0000	1.19
  +++ global.sym	30 Apr 2005 09:12:44 -0000	1.20
  @@ -730,9 +730,6 @@
   Perl_del_xpvlv
   Perl_del_xpvbm
   Perl_del_xpvgv
  -Perl_zero_xpvfm
  -Perl_zero_xpvcv
  -Perl_zero_xpvio
   Perl_sv_setsv_flags
   Perl_sv_catpvn_flags
   Perl_sv_catsv_flags
  
  
  
  1.36      +0 -3      ponie/perl/proto.h
  
  Index: proto.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/proto.h,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- proto.h	23 Apr 2005 16:52:41 -0000	1.35
  +++ proto.h	30 Apr 2005 09:12:44 -0000	1.36
  @@ -1219,9 +1219,6 @@
   PERL_CALLCONV void	Perl_del_xpvlv(pTHX_ XPVLV* p);
   PERL_CALLCONV void	Perl_del_xpvbm(pTHX_ XPVBM* p);
   PERL_CALLCONV void	Perl_del_xpvgv(pTHX_ XPVGV* p);
  -PERL_CALLCONV void	Perl_zero_xpvfm(pTHX_ SV *fm);
  -PERL_CALLCONV void	Perl_zero_xpvcv(pTHX_ SV *cv);
  -PERL_CALLCONV void	Perl_zero_xpvio(pTHX_ SV *io);
   
   #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
   STATIC IV	S_asIV(pTHX_ SV* sv);
  
  
  
  1.68      +0 -20     ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.67
  retrieving revision 1.68
  diff -u -r1.67 -r1.68
  --- sv.c	30 Apr 2005 08:11:43 -0000	1.67
  +++ sv.c	30 Apr 2005 09:12:44 -0000	1.68
  @@ -1791,26 +1791,6 @@
     return Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_CVOUTSIDE_SEQ);
   }
   
  -
  -void
  -Perl_zero_xpvfm(pTHX_ SV *fm)
  -{
  -  Zero(/**/ SvANY(fm), 1, XPVFM);
  -}
  -
  -void
  -Perl_zero_xpvio(pTHX_ SV *io)
  -{
  -  Zero(/**/ SvANY(io), 1, XPVIO);
  -}
  -
  -void
  -Perl_zero_xpvcv(pTHX_ SV *fm)
  -{
  -  Zero(/**/ SvANY(fm), 1, XPVCV);
  -}
  -
  -
   /*
   =for apidoc sv_upgrade