cvs commit: ponie/perl sv.c

cvsuser     04/03/02 03:15:20

  Modified:    perl     sv.c
  Log:
  Fix the "random" segfault bug by actually telling parrot that we use these PMCs
  
  Revision  Changes    Path
  1.13      +3 -1      ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -w -r1.12 -r1.13
  --- sv.c	29 Feb 2004 22:06:18 -0000	1.12
  +++ sv.c	2 Mar 2004 11:15:20 -0000	1.13
  @@ -990,6 +990,7 @@
           
     
     hv = Parrot_PMC_new(PL_Parrot, type);
  +  Parrot_register_pmc(PL_Parrot, hv);
     return hv;
   }
   
  @@ -1084,6 +1085,7 @@
           
       
       av = Parrot_PMC_new(PL_Parrot, type);
  +    Parrot_register_pmc(PL_Parrot, av);
       return av;
   }
   
  @@ -1106,7 +1108,7 @@
   		  "Create a new PMC %p\n",lval);
       */
   
  -
  +    Parrot_register_pmc(PL_Parrot, lval);
       return lval;
   }