[svn:parrot] r35662 - trunk/include/parrot

[email protected]
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: jkeenan
Date: Fri Jan 16 20:36:49 2009
New Revision: 35662

Modified:
   trunk/include/parrot/sub.h

Log:
Make file pass t/codingstd/c_macro_args.t.


Modified: trunk/include/parrot/sub.h
==============================================================================
--- trunk/include/parrot/sub.h	(original)
+++ trunk/include/parrot/sub.h	Fri Jan 16 20:36:49 2009
@@ -171,12 +171,12 @@
     struct Parrot_Context *outer_ctx;   /* outer context, if a closure */
 } Parrot_sub;
 
-#define PMC_sub(pmc) (pmc->vtable->base_type == enum_class_Sub || \
-                      pmc->vtable->base_type == enum_class_Coroutine || \
-                      pmc->vtable->base_type == enum_class_Eval || \
-                      pmc->vtable->base_type == enum_class_Closure ? \
+#define PMC_sub(pmc) ((pmc)->vtable->base_type == enum_class_Sub || \
+                      (pmc)->vtable->base_type == enum_class_Coroutine || \
+                      (pmc)->vtable->base_type == enum_class_Eval || \
+                      (pmc)->vtable->base_type == enum_class_Closure ? \
     (Parrot_sub *)PMC_struct_val(pmc) : \
-    Parrot_get_sub_pmc_from_subclass(interp, pmc))
+    Parrot_get_sub_pmc_from_subclass(interp, (pmc)))
 
 /* the first entries must match Parrot_sub, so we can cast
  * these two to the other type
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.