Changeset 14549 for lang/perl/Acme-PerlVMGolf

Timestamp:

06/24/08 23:29:23 (5 months ago)

Author:

tokuhirom

Message:

display op info

Files:

• lang/perl/Acme-PerlVMGolf/trunk/PerlVMGolf.xs (modified) (1 diff)

lang/perl/Acme-PerlVMGolf/trunk/PerlVMGolf.xs

@@ -12 +12 @@
 
 OP * count_score(pTHX) {
-    PerlIO_printf(PerlIO_stderr(), "hit: %dop\n", PL_op->op_type);
+    PerlIO_printf(PerlIO_stderr(), "hit: %dop(%s, %s)\n", PL_op->op_type, OP_NAME(PL_op), OP_DESC(PL_op));
     op_score += PL_op->op_type;