[svn:parrot] r35727 - in trunk: include/parrot src
[email protected] Sun, 18 Jan 2009 14:33:50 -0800 (PST)
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;