[svn:parrot] r35727 - in trunk: include/parrot src

[email protected]
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: julianalbo
Date: Sun Jan 18 14:33:50 2009
New Revision: 35727

Modified:
   trunk/include/parrot/sub.h
   trunk/src/embed.c

Log:
revert accidental changes in r35276

Modified: trunk/include/parrot/sub.h
==============================================================================
--- trunk/include/parrot/sub.h	(original)
+++ trunk/include/parrot/sub.h	Sun Jan 18 14:33:50 2009
@@ -100,9 +100,7 @@
 #undef SUB_FLAG
 
 #define Sub_comp_get_FLAGS(o) ((PMC_sub(o))->comp_flags)
-
-#define Sub_comp_flag_TEST(flag, o) (Sub_comp_get_FLAGS((PMC *)o) & SUB_COMP_FLAG_ ## flag)
-
+#define Sub_comp_flag_TEST(flag, o) (Sub_comp_get_FLAGS(o) & SUB_COMP_FLAG_ ## flag)
 #define Sub_comp_flag_SET(flag, o) (Sub_comp_get_FLAGS(o) |= SUB_COMP_FLAG_ ## flag)
 #define Sub_comp_flag_CLEAR(flag, o) (Sub_comp_get_FLAGS(o) &= ~(UINTVAL)(SUB_COMP_FLAG_ ## flag))
 

Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c	(original)
+++ trunk/src/embed.c	Sun Jan 18 14:33:50 2009
@@ -863,7 +863,7 @@
         if (ft->fixups[i]->type == enum_fixup_sub) {
             const opcode_t ci      = ft->fixups[i]->offset;
             PMC           *sub_pmc = ct->constants[ci]->u.key;
-            Parrot_sub *sub        = PMC_sub(sub_pmc);
+            Parrot_sub    *sub     = PMC_sub(sub_pmc);
 
             if (sub->seg == cur_cs) {
                 const size_t offs = sub->start_offs;
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.