[svn:parrot] r39868 - trunk/lib/Parrot/OpTrans

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Jul  2 19:32:17 2009
New Revision: 39868
URL: https://trac.parrot.org/parrot/changeset/39868

Log:
[ops2c] make the source of some #defines easier to trace - no functional changes

Modified:
   trunk/lib/Parrot/OpTrans/C.pm
   trunk/lib/Parrot/OpTrans/CGoto.pm

Modified: trunk/lib/Parrot/OpTrans/C.pm
==============================================================================
--- trunk/lib/Parrot/OpTrans/C.pm	Thu Jul  2 17:12:36 2009	(r39867)
+++ trunk/lib/Parrot/OpTrans/C.pm	Thu Jul  2 19:32:17 2009	(r39868)
@@ -50,7 +50,9 @@
 =cut
 
 sub defines {
+    my $type = __PACKAGE__;
     return <<END;
+/* defines - $0 -> $type */
 #undef CONST
 #define REL_PC     ((size_t)(cur_opcode - (opcode_t *)interp->code->base.data))
 #define CUR_OPCODE cur_opcode

Modified: trunk/lib/Parrot/OpTrans/CGoto.pm
==============================================================================
--- trunk/lib/Parrot/OpTrans/CGoto.pm	Thu Jul  2 17:12:36 2009	(r39867)
+++ trunk/lib/Parrot/OpTrans/CGoto.pm	Thu Jul  2 19:32:17 2009	(r39868)
@@ -62,7 +62,9 @@
 =cut
 
 sub defines {
+    my $type = __PACKAGE__;
     return <<END;
+/* defines - $0 -> $type */
 #undef CONST
 #define REL_PC     ((size_t)(cur_opcode - (opcode_t*)interp->code->base.data))
 #define CUR_OPCODE cur_opcode