cvs commit: ponie/src/pmc perl5pining.pmc

cvsuser     05/05/09 10:06:15

  Modified:    src/pmc  perl5pining.pmc
  Log:
  It's useful to know the name of the PMC type
  
  Revision  Changes    Path
  1.3       +12 -1     ponie/src/pmc/perl5pining.pmc
  
  Index: perl5pining.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5pining.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- perl5pining.pmc	7 May 2005 12:45:27 -0000	1.2
  +++ perl5pining.pmc	9 May 2005 17:06:15 -0000	1.3
  @@ -55,6 +55,17 @@
   	}
   	return 0;
       }
  +
  +    Parrot_STRING get_string_keyed_int(INTVAL key) {
  +	switch (key) {
  +	case Ponie_S_WHOAMI:
  +	    return SELF->vtable->whoami;
  +        default:
  +	    croak ("Out of range or illegal key %d (max is %d)"
  +		   " get_string_keyed_int", key, Ponie_S_MAX - 1);
  +	}
  +	return 0;
  +    }
   }
   
   /*