cvs commit: ponie/perl sv.c

cvsuser     05/05/03 08:36:03

  Modified:    perl     sv.c
  Log:
  Make the "Attempt to free non-arena SV" check mandatory and fatal.
  
  Revision  Changes    Path
  1.80      +4 -19     ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.79
  retrieving revision 1.80
  diff -u -r1.79 -r1.80
  --- sv.c	2 May 2005 20:27:07 -0000	1.79
  +++ sv.c	3 May 2005 15:36:03 -0000	1.80
  @@ -215,25 +215,10 @@
   STATIC void
   S_del_SV(pTHX_ SV *p)
   {
  -    if (DEBUG_D_TEST) {
  -	/*SV* sva;
  -	SV* sv;
  -	SV* svend;
  -	int ok = 0;
  -	for (sva = PL_sv_arenaroot; sva; sva = (SV *) SvANY(sva)) {
  -	    sv = sva + 1;
  -	    svend = &sva[SvREFCNT(sva)];
  -	    if (p >= sv && p < svend)
  -		ok = 1;
  -	}
  -	*/
  -	if (!ptr_table_fetch(PL_sv_arenatable, p)) {
  -	    if (ckWARN_d(WARN_INTERNAL))	
  -	        Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
  -			    "Attempt to free non-arena SV: 0x%"UVxf
  -                            pTHX__FORMAT, PTR2UV(p) pTHX__VALUE);
  -	    return;
  -	}
  +    if (!ptr_table_fetch(PL_sv_arenatable, p)) {
  +	Perl_croak("Attempt to free non-arena SV: 0x%"UVxf
  +		   pTHX__FORMAT, PTR2UV(p) pTHX__VALUE);
  +	return;
       }
       LOCK_SV_MUTEX;
       --PL_sv_count;