develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
infinoid
Date:
December 31, 2008 11:52
Subject:
[svn:parrot] r34723 - in trunk: include/parrot src
Message ID:
20081231195159.EA4BBCB9FA@x12.develooper.com
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



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