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

cvsuser     04/03/02 03:31:50

  Modified:    perl     embed.fnc proto.h sv.c sv.h
  Log:
  Fix LvTYPE to be a char not a char*
  
  Revision  Changes    Path
  1.11      +1 -1      ponie/perl/embed.fnc
  
  Index: embed.fnc
  ===================================================================
  RCS file: /cvs/public/ponie/perl/embed.fnc,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -w -r1.10 -r1.11
  --- embed.fnc	29 Feb 2004 18:02:19 -0000	1.10
  +++ embed.fnc	2 Mar 2004 11:31:50 -0000	1.11
  @@ -993,7 +993,7 @@
   Ap	|UV*	|macro_SvUVX	|SV *
   Ap	|MAGIC**	|macro_SvMAGIC	|SV *
   Ap	|HV**	|macro_SvSTASH	|SV *
  -Ap	|char**	|macro_LvTYPE	|SV *
  +Ap	|char*	|macro_LvTYPE	|SV *
   Ap	|SV**	|macro_LvTARG	|SV *
   Ap	|STRLEN*	|macro_LvTARGLEN	|SV *
   Ap	|STRLEN*	|macro_LvTARGOFF	|SV *
  
  
  
  1.11      +1 -1      ponie/perl/proto.h
  
  Index: proto.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/proto.h,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -w -r1.10 -r1.11
  --- proto.h	29 Feb 2004 18:02:19 -0000	1.10
  +++ proto.h	2 Mar 2004 11:31:50 -0000	1.11
  @@ -951,7 +951,7 @@
   PERL_CALLCONV UV*	Perl_macro_SvUVX(pTHX_ SV *);
   PERL_CALLCONV MAGIC**	Perl_macro_SvMAGIC(pTHX_ SV *);
   PERL_CALLCONV HV**	Perl_macro_SvSTASH(pTHX_ SV *);
  -PERL_CALLCONV char**	Perl_macro_LvTYPE(pTHX_ SV *);
  +PERL_CALLCONV char*	Perl_macro_LvTYPE(pTHX_ SV *);
   PERL_CALLCONV SV**	Perl_macro_LvTARG(pTHX_ SV *);
   PERL_CALLCONV STRLEN*	Perl_macro_LvTARGLEN(pTHX_ SV *);
   PERL_CALLCONV STRLEN*	Perl_macro_LvTARGOFF(pTHX_ SV *);
  
  
  
  1.14      +2 -2      ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -w -r1.13 -r1.14
  --- sv.c	2 Mar 2004 11:15:20 -0000	1.13
  +++ sv.c	2 Mar 2004 11:31:50 -0000	1.14
  @@ -1349,12 +1349,12 @@
     
   }
   
  -char** Perl_macro_LvTYPE (pTHX_ SV* sv) {
  +char* Perl_macro_LvTYPE (pTHX_ SV* sv) {
     XPVLV* data;
     if(!SvPMC(sv))
       abort();
     data = (XPVLV*) Parrot_PMC_get_pointer(PL_Parrot, SvANY(sv));  
  -  return (char**) &(data->xlv_type);
  +  return &(data->xlv_type);
   }
   
   SV** Perl_macro_LvTARG (pTHX_ SV* sv) {
  
  
  
  1.10      +1 -1      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- sv.h	29 Feb 2004 22:05:42 -0000	1.9
  +++ sv.h	2 Mar 2004 11:31:50 -0000	1.10
  @@ -786,7 +786,7 @@
   
   #define FmLINES(sv)	((XPVFM*)  SvANY(sv))->xfm_lines
   
  -#define LvTYPE(sv)      ((char*)*Perl_macro_LvTYPE(aTHX_ (SV*)sv))
  +#define LvTYPE(sv)      (*Perl_macro_LvTYPE(aTHX_ (SV*)sv))
   #define LvTARG(sv)      ((SV*)*Perl_macro_LvTARG(aTHX_ (SV*)sv))
   #define LvTARGOFF(sv)   ( * Perl_macro_LvTARGOFF(aTHX_ (SV*)sv))
   #define LvTARGLEN(sv)   ( * Perl_macro_LvTARGLEN(aTHX_ (SV*)sv))