perl.cvs.parrot
[Top] [All Lists]

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

Subject: [svn:parrot] r34723 - in trunk: include/parrot src
From:
Date: Wed, 31 Dec 2008 11:51:59 -0800 PST
Newsgroups: perl.cvs.parrot

Author: infinoid
Date: Wed Dec 31 11:51:59 2008
New Revision: 34723

Modified:
   trunk/include/parrot/pmc.h
   trunk/src/pmc.c

Log:
[core] Headerizer didn't like get_new_vtable_index because the curly
brace was on the same line.  Fix that and rerun headerizer.
Also, moved the function up slightly so pmc_register() and its
documentation can stay together.


Modified: trunk/include/parrot/pmc.h
==============================================================================
--- trunk/include/parrot/pmc.h  (original)
+++ trunk/include/parrot/pmc.h  Wed Dec 31 11:51:59 2008
@@ -97,6 +97,9 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
+INTVAL get_new_vtable_index(PARROT_INTERP)
+        __attribute__nonnull__(1);
+
 void temporary_pmc_free(PARROT_INTERP, ARGMOD(PMC *pmc))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
@@ -126,6 +129,7 @@
                                assert(name);
 #define ASSERT_ARGS_dod_unregister_pmc assert(interp); \
                                        assert(pmc);
+#define ASSERT_ARGS_get_new_vtable_index assert(interp);
 #define ASSERT_ARGS_temporary_pmc_free assert(interp); \
                                        assert(pmc);
 #define ASSERT_ARGS_temporary_pmc_new assert(interp);

Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c     (original)
+++ trunk/src/pmc.c     Wed Dec 31 11:51:59 2008
@@ -502,6 +502,18 @@
 }
 
 
+INTVAL
+get_new_vtable_index(PARROT_INTERP)
+{
+    const INTVAL typeid = interp->n_vtable_max++;
+
+    /* Have we overflowed the table? */
+    if (typeid >= interp->n_vtable_alloced)
+        parrot_realloc_vtables(interp);
+
+    return typeid;
+}
+
 /*
 
 =item C<INTVAL pmc_register>
@@ -512,16 +524,6 @@
 =cut
 
 */
-INTVAL
-get_new_vtable_index(PARROT_INTERP) {
-    const INTVAL typeid = interp->n_vtable_max++;
-
-    /* Have we overflowed the table? */
-    if (typeid >= interp->n_vtable_alloced)
-        parrot_realloc_vtables(interp);
-
-    return typeid;
-}
 
 PARROT_EXPORT
 INTVAL

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r34723 - in trunk: include/parrot src, infinoid <=