[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