[svn:parrot] r36538 - in trunk: include/parrot src src/ops src/pmc t/src
cotto at svn.parrot.org
cotto at svn.parrot.org
Tue Feb 10 15:42:29 UTC 2009
Author: cotto
Date: Tue Feb 10 15:42:28 2009
New Revision: 36538
URL: https://trac.parrot.org/parrot/changeset/36538
Log:
[gc] update names of dod_register_pmc and dod_unregister_pmc
Modified:
trunk/include/parrot/pmc.h
trunk/src/extend.c
trunk/src/inter_call.c
trunk/src/inter_cb.c
trunk/src/ops/pmc.ops
trunk/src/pmc.c
trunk/src/pmc/addrregistry.pmc
trunk/src/thread.c
trunk/t/src/compiler.t
Modified: trunk/include/parrot/pmc.h
==============================================================================
--- trunk/include/parrot/pmc.h Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/include/parrot/pmc.h Tue Feb 10 15:42:28 2009 (r36538)
@@ -40,7 +40,7 @@
__attribute__nonnull__(1);
PARROT_EXPORT
-void dod_register_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
+void gc_register_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
__attribute__nonnull__(1)
__attribute__nonnull__(2);
@@ -93,7 +93,7 @@
__attribute__nonnull__(1)
__attribute__nonnull__(2);
-void dod_unregister_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
+void gc_unregister_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
__attribute__nonnull__(1)
__attribute__nonnull__(2);
@@ -115,7 +115,7 @@
PARROT_ASSERT_ARG(interp)
#define ASSERT_ARGS_constant_pmc_new_noinit __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_dod_register_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+#define ASSERT_ARGS_gc_register_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp) \
|| PARROT_ASSERT_ARG(pmc)
#define ASSERT_ARGS_Parrot_create_mro __attribute__unused__ int _ASSERT_ARGS_CHECK = \
@@ -139,7 +139,7 @@
#define ASSERT_ARGS_pmc_type_p __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp) \
|| PARROT_ASSERT_ARG(name)
-#define ASSERT_ARGS_dod_unregister_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+#define ASSERT_ARGS_gc_unregister_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp) \
|| PARROT_ASSERT_ARG(pmc)
#define ASSERT_ARGS_get_new_vtable_index __attribute__unused__ int _ASSERT_ARGS_CHECK = \
Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/extend.c Tue Feb 10 15:42:28 2009 (r36538)
@@ -1311,7 +1311,7 @@
{
ASSERT_ARGS(Parrot_register_pmc)
PARROT_CALLIN_START(interp);
- dod_register_pmc(interp, pmc);
+ gc_register_pmc(interp, pmc);
PARROT_CALLIN_END(interp);
}
@@ -1333,7 +1333,7 @@
{
ASSERT_ARGS(Parrot_unregister_pmc)
PARROT_CALLIN_START(interp);
- dod_unregister_pmc(interp, pmc);
+ gc_unregister_pmc(interp, pmc);
PARROT_CALLIN_END(interp);
}
Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/inter_call.c Tue Feb 10 15:42:28 2009 (r36538)
@@ -2778,7 +2778,7 @@
/* Invoke the subroutine object with the given CallSignature object */
Parrot_pcc_invoke_from_sig_object(interp, sub_obj, sig_obj);
- dod_unregister_pmc(interp, sig_obj);
+ gc_unregister_pmc(interp, sig_obj);
}
Modified: trunk/src/inter_cb.c
==============================================================================
--- trunk/src/inter_cb.c Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/inter_cb.c Tue Feb 10 15:42:28 2009 (r36538)
@@ -125,7 +125,7 @@
* we need to anchor it.
*
*/
- dod_register_pmc(interp, user_data);
+ gc_register_pmc(interp, user_data);
/*
* Finally, the external lib awaits a function pointer.
@@ -142,7 +142,7 @@
PMC_data(cb) = F2DPTR(Parrot_callback_C);
else
PMC_data(cb) = F2DPTR(Parrot_callback_D);
- dod_register_pmc(interp, cb);
+ gc_register_pmc(interp, cb);
return cb;
}
Modified: trunk/src/ops/pmc.ops
==============================================================================
--- trunk/src/ops/pmc.ops Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/ops/pmc.ops Tue Feb 10 15:42:28 2009 (r36538)
@@ -562,11 +562,11 @@
=cut
op register(invar PMC) {
- dod_register_pmc(interp, $1);
+ gc_register_pmc(interp, $1);
}
op unregister(invar PMC) {
- dod_unregister_pmc(interp, $1);
+ gc_unregister_pmc(interp, $1);
}
Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/pmc.c Tue Feb 10 15:42:28 2009 (r36538)
@@ -749,11 +749,11 @@
=back
-=head2 DOD registry interface
+=head2 GC registry interface
=over 4
-=item C<void dod_register_pmc>
+=item C<void gc_register_pmc>
Registers the PMC with the interpreter's DOD registry.
@@ -763,9 +763,9 @@
PARROT_EXPORT
void
-dod_register_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
+gc_register_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
{
- ASSERT_ARGS(dod_register_pmc)
+ ASSERT_ARGS(gc_register_pmc)
/* Better not trigger a DOD run with a potentially unanchored PMC */
Parrot_block_GC_mark(interp);
@@ -778,7 +778,7 @@
/*
-=item C<void dod_unregister_pmc>
+=item C<void gc_unregister_pmc>
Unregisters the PMC from the interpreter's DOD registry.
@@ -787,9 +787,9 @@
*/
void
-dod_unregister_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
+gc_unregister_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
{
- ASSERT_ARGS(dod_unregister_pmc)
+ ASSERT_ARGS(gc_unregister_pmc)
PARROT_ASSERT(interp->DOD_registry);
VTABLE_delete_keyed(interp, interp->DOD_registry, pmc);
Modified: trunk/src/pmc/addrregistry.pmc
==============================================================================
--- trunk/src/pmc/addrregistry.pmc Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/pmc/addrregistry.pmc Tue Feb 10 15:42:28 2009 (r36538)
@@ -213,7 +213,7 @@
=head1 SEE ALSO
-F<src/pmc.c:dod_register_pmc()>
+F<src/pmc.c:gc_register_pmc()>
=cut
Modified: trunk/src/thread.c
==============================================================================
--- trunk/src/thread.c Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/src/thread.c Tue Feb 10 15:42:28 2009 (r36538)
@@ -1344,7 +1344,7 @@
* dying interpreter, so register it in parent's DOD registry
* XXX is this still needed?
*/
- dod_register_pmc(parent, parent_ret);
+ gc_register_pmc(parent, parent_ret);
Parrot_unblock_GC_mark(parent);
retval = parent_ret;
}
@@ -1368,7 +1368,7 @@
* value, caller gets it now
*/
if (retval)
- dod_unregister_pmc(parent, retval);
+ gc_unregister_pmc(parent, retval);
return retval;
}
Modified: trunk/t/src/compiler.t
==============================================================================
--- trunk/t/src/compiler.t Tue Feb 10 15:38:25 2009 (r36537)
+++ trunk/t/src/compiler.t Tue Feb 10 15:42:28 2009 (r36538)
@@ -61,7 +61,7 @@
}
/* keep eval PMC alive */
- dod_register_pmc(interp, prog);
+ gc_register_pmc(interp, prog);
/* locate function to run */
smain = Parrot_str_new_constant(interp, "main");
@@ -128,7 +128,7 @@
}
/* keep eval PMC alive */
- dod_register_pmc(interp, prog);
+ gc_register_pmc(interp, prog);
/* locate function to run */
smain = Parrot_str_new_constant(interp, "main");
@@ -221,7 +221,7 @@
}
/* keep eval PMC alive */
- dod_register_pmc(interp, prog);
+ gc_register_pmc(interp, prog);
/* locate function to run */
smain = Parrot_str_new_constant(interp, "main");
@@ -314,7 +314,7 @@
}
/* keep eval PMC alive */
- dod_register_pmc(interp, prog);
+ gc_register_pmc(interp, prog);
/* locate function to run */
smain = Parrot_str_new_constant(interp, "main");
@@ -406,7 +406,7 @@
}
/* keep eval PMC alive */
- dod_register_pmc(interp, prog);
+ gc_register_pmc(interp, prog);
/* locate function to run */
smain = Parrot_str_new_constant(interp, "main");
More information about the parrot-commits
mailing list