[svn:parrot] r35914 - trunk/src

[email protected] Fri, 23 Jan 2009 09:11:50 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: julianalbo
Date: Fri Jan 23 09:11:48 2009
New Revision: 35914

Modified:
   trunk/src/embed.c

Log:
Don't use an opcode function as a regular C function

Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c	(original)
+++ trunk/src/embed.c	Fri Jan 23 09:11:48 2009
@@ -1086,7 +1086,10 @@
                     case enum_class_Key:
                     case enum_class_ResizableStringArray:
                         {
-                            Parrot_print_p(interp, c->u.key);
+                            /*Parrot_print_p(interp, c->u.key);*/
+                            STRING * const s = VTABLE_get_string(interp, c->u.key);
+                            if (s)
+                                Parrot_io_printf(interp, "%Ss",s);
                             break;
                         }
                     case enum_class_Sub: