cvs commit: parrot/classes slice.pmc

[Leopold Toetsch]

cvsuser     04/07/15 08:36:50

  Modified:    classes  slice.pmc
  Log:
  Pie-thon 70 - minor optimization
  
  Revision  Changes    Path
  1.15      +3 -2      parrot/classes/slice.pmc
  
  Index: slice.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/classes/slice.pmc,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -w -r1.14 -r1.15
  --- slice.pmc 15 Jul 2004 11:25:53 -0000      1.14
  +++ slice.pmc 15 Jul 2004 15:36:50 -0000      1.15
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2004 The Perl Foundation.  All Rights Reserved.
  -$Id: slice.pmc,v 1.14 2004/07/15 11:25:53 leo Exp $
  +$Id: slice.pmc,v 1.15 2004/07/15 15:36:50 leo Exp $
   
   =head1 NAME
   
  @@ -227,6 +227,7 @@
               RVal_int(range->end)--;
           else
               RVal_int(range->end)++;
  +        PMC_pmc_val(xro) = pmc_new_noinit(INTERP, enum_class_PerlInt);
           REG_PMC(5) = xro;
           PObj_active_destroy_SET(SELF);
           return next;
  @@ -340,7 +341,7 @@
   
       PMC* get_pmc_keyed(PMC* key) {
           parrot_range_t *r = PMC_struct_val(key);
  -        PMC *res = pmc_new_noinit(INTERP, enum_class_PerlInt);
  +        PMC *res = PMC_pmc_val(SELF);
           PMC_int_val(res) = RVal_int(r->cur);
           return res;
       }