develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35914 - trunk/src

From:
julianalbo
Date:
January 23, 2009 09:11
Subject:
[svn:parrot] r35914 - trunk/src
Message ID:
20090123171150.D5D7BCB9AE@x12.develooper.com
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:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About