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

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

From:
julianalbo
Date:
January 18, 2009 14:34
Subject:
[svn:parrot] r35727 - in trunk: include/parrot src
Message ID:
20090118223350.B678BCB9AE@x12.develooper.com
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;



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