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

cvsuser     03/12/10 07:26:26

  Modified:    perl     embed.fnc embed.h global.sym proto.h perl.h
  Log:
  added misc functions for the time being
  
  Revision  Changes    Path
  1.2       +6 -2      ponie/perl/embed.fnc
  
  Index: embed.fnc
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.fnc,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- embed.fnc	9 Sep 2003 11:58:48 -0000	1.1
  +++ embed.fnc	10 Dec 2003 15:26:25 -0000	1.2
  @@ -967,6 +967,10 @@
   Adp	|void	|sv_nounlocking	|SV *
   Adp	|int	|nothreadhook
   
  +
  +Ap	|char*	|macro_SvPVX	|SV *
  +
  +
   END_EXTERN_C
   
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
  @@ -1203,7 +1207,7 @@
   s	|XPVAV*	|new_xpvav
   s	|XPVHV*	|new_xpvhv
   s	|XPVMG*	|new_xpvmg
  -s	|XPVLV*	|new_xpvlv
  +s	|Parrot_PMC	|new_xpvlv
   s	|XPVBM*	|new_xpvbm
   s	|XRV*	|new_xrv
   s	|void	|del_xiv	|XPVIV* p
  @@ -1215,7 +1219,7 @@
   s	|void	|del_xpvav	|XPVAV* p
   s	|void	|del_xpvhv	|XPVHV* p
   s	|void	|del_xpvmg	|XPVMG* p
  -s	|void	|del_xpvlv	|XPVLV* p
  +s	|void	|del_xpvlv	|Parrot_PMC p
   s	|void	|del_xpvbm	|XPVBM* p
   s	|void	|del_xrv	|XRV* p
   s	|void	|sv_unglob	|SV* sv
  
  
  
  1.2       +2 -0      ponie/perl/embed.h
  
  Index: embed.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- embed.h	9 Sep 2003 11:58:49 -0000	1.1
  +++ embed.h	10 Dec 2003 15:26:25 -0000	1.2
  @@ -1255,6 +1255,7 @@
   #define sv_nolocking		Perl_sv_nolocking
   #define sv_nounlocking		Perl_sv_nounlocking
   #define nothreadhook		Perl_nothreadhook
  +#define macro_SvPVX		Perl_macro_SvPVX
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
   #ifdef PERL_CORE
   #define do_trans_simple		S_do_trans_simple
  @@ -3737,6 +3738,7 @@
   #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_SvPVX(a)		Perl_macro_SvPVX(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.2       +1 -0      ponie/perl/global.sym
  
  Index: global.sym
  ===================================================================
  RCS file: /cvs/public/ponie/perl/global.sym,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- global.sym	9 Sep 2003 11:58:49 -0000	1.1
  +++ global.sym	10 Dec 2003 15:26:25 -0000	1.2
  @@ -628,6 +628,7 @@
   Perl_sv_nolocking
   Perl_sv_nounlocking
   Perl_nothreadhook
  +Perl_macro_SvPVX
   Perl_Slab_Alloc
   Perl_Slab_Free
   Perl_sv_setsv_flags
  
  
  
  1.2       +6 -2      ponie/perl/proto.h
  
  Index: proto.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/proto.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- proto.h	9 Sep 2003 11:58:53 -0000	1.1
  +++ proto.h	10 Dec 2003 15:26:26 -0000	1.2
  @@ -925,6 +925,10 @@
   PERL_CALLCONV void	Perl_sv_nounlocking(pTHX_ SV *);
   PERL_CALLCONV int	Perl_nothreadhook(pTHX);
   
  +
  +PERL_CALLCONV char**	Perl_macro_SvPVX(pTHX_ SV *);
  +
  +
   END_EXTERN_C
   
   #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
  @@ -1154,7 +1158,7 @@
   STATIC XPVAV*	S_new_xpvav(pTHX);
   STATIC XPVHV*	S_new_xpvhv(pTHX);
   STATIC XPVMG*	S_new_xpvmg(pTHX);
  -STATIC XPVLV*	S_new_xpvlv(pTHX);
  +STATIC Parrot_PMC	S_new_xpvlv(pTHX);
   STATIC XPVBM*	S_new_xpvbm(pTHX);
   STATIC XRV*	S_new_xrv(pTHX);
   STATIC void	S_del_xiv(pTHX_ XPVIV* p);
  @@ -1166,7 +1170,7 @@
   STATIC void	S_del_xpvav(pTHX_ XPVAV* p);
   STATIC void	S_del_xpvhv(pTHX_ XPVHV* p);
   STATIC void	S_del_xpvmg(pTHX_ XPVMG* p);
  -STATIC void	S_del_xpvlv(pTHX_ XPVLV* p);
  +STATIC void	S_del_xpvlv(pTHX_ Parrot_PMC p);
   STATIC void	S_del_xpvbm(pTHX_ XPVBM* p);
   STATIC void	S_del_xrv(pTHX_ XRV* p);
   STATIC void	S_sv_unglob(pTHX_ SV* sv);
  
  
  
  1.3       +4 -0      ponie/perl/perl.h
  
  Index: perl.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/perl.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- perl.h	9 Sep 2003 14:39:16 -0000	1.2
  +++ perl.h	10 Dec 2003 15:26:26 -0000	1.3
  @@ -11,6 +11,10 @@
   #ifndef H_PERL
   #define H_PERL 1
   
  +
  +/* Here for Ponie to mark things that need to be done */
  +#define FIXME(x) ( (char*) 1)
  +
   #ifdef PERL_FOR_X2P
   /*
    * This file is being used for x2p stuff.