[svn:parrot] r43784 - in branches/gc_encapsulate_part1: include/parrot src/gc
bacek at svn.parrot.org
bacek at svn.parrot.org
Mon Feb 8 13:53:35 UTC 2010
Author: bacek
Date: Mon Feb 8 13:53:34 2010
New Revision: 43784
URL: https://trac.parrot.org/parrot/changeset/43784
Log:
Remove unused, non-public Parrot_gc_ptr_is_pmc function
Modified:
branches/gc_encapsulate_part1/include/parrot/gc_api.h
branches/gc_encapsulate_part1/src/gc/api.c
Modified: branches/gc_encapsulate_part1/include/parrot/gc_api.h
==============================================================================
--- branches/gc_encapsulate_part1/include/parrot/gc_api.h Mon Feb 8 13:53:12 2010 (r43783)
+++ branches/gc_encapsulate_part1/include/parrot/gc_api.h Mon Feb 8 13:53:34 2010 (r43784)
@@ -280,10 +280,6 @@
__attribute__nonnull__(2)
FUNC_MODIFIES(*pmc);
-int Parrot_gc_ptr_is_pmc(PARROT_INTERP, ARGIN(void *ptr))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
void Parrot_gc_reallocate_buffer_storage(PARROT_INTERP,
ARGMOD(Buffer *buffer),
size_t newsize)
@@ -422,9 +418,6 @@
__attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc))
-#define ASSERT_ARGS_Parrot_gc_ptr_is_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(ptr))
#define ASSERT_ARGS_Parrot_gc_reallocate_buffer_storage \
__attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
Modified: branches/gc_encapsulate_part1/src/gc/api.c
==============================================================================
--- branches/gc_encapsulate_part1/src/gc/api.c Mon Feb 8 13:53:12 2010 (r43783)
+++ branches/gc_encapsulate_part1/src/gc/api.c Mon Feb 8 13:53:34 2010 (r43784)
@@ -1206,26 +1206,6 @@
}
}
-
-/*
-
-=item C<int Parrot_gc_ptr_is_pmc(PARROT_INTERP, void *ptr)>
-
-Determines if a given pointer is a PMC or not. It is a PMC if it is properly
-contained in one of this interpreters PMC pools.
-
-=cut
-
-*/
-
-int
-Parrot_gc_ptr_is_pmc(PARROT_INTERP, ARGIN(void *ptr))
-{
- ASSERT_ARGS(Parrot_gc_ptr_is_pmc)
- return contained_in_pool(interp, interp->mem_pools->pmc_pool, ptr) ||
- contained_in_pool(interp, interp->mem_pools->constant_pmc_pool, ptr);
-}
-
/*
=item C<int Parrot_gc_get_pmc_index(PARROT_INTERP, PMC* pmc)>
More information about the parrot-commits
mailing list