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

plobsing at svn.parrot.org plobsing at svn.parrot.org
Thu Mar 25 21:48:17 UTC 2010


Author: plobsing
Date: Thu Mar 25 21:48:16 2010
New Revision: 45187
URL: https://trac.parrot.org/parrot/changeset/45187

Log:
revert r45186
Parrot_PMC_push_string was already provided. plobsing--

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

Modified: trunk/include/parrot/extend.h
==============================================================================
--- trunk/include/parrot/extend.h	Thu Mar 25 21:29:30 2010	(r45186)
+++ trunk/include/parrot/extend.h	Thu Mar 25 21:48:16 2010	(r45187)
@@ -244,12 +244,6 @@
         __attribute__nonnull__(1);
 
 PARROT_EXPORT
-void Parrot_PMC_push_string(PARROT_INTERP,
-    Parrot_PMC pmc,
-    Parrot_String value)
-        __attribute__nonnull__(1);
-
-PARROT_EXPORT
 void Parrot_PMC_set_cstring(PARROT_INTERP,
     Parrot_PMC pmc,
     ARGIN_NULLOK(const char *value))
@@ -470,8 +464,6 @@
        PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_Parrot_PMC_push_pmcval __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp))
-#define ASSERT_ARGS_Parrot_PMC_push_string __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_Parrot_PMC_set_cstring __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_Parrot_PMC_set_cstring_intkey __attribute__unused__ int _ASSERT_ARGS_CHECK = (\

Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c	Thu Mar 25 21:29:30 2010	(r45186)
+++ trunk/src/extend.c	Thu Mar 25 21:48:16 2010	(r45187)
@@ -864,27 +864,6 @@
 
 /*
 
-=item C<void Parrot_PMC_push_string(PARROT_INTERP, Parrot_PMC pmc, Parrot_String
-value)>
-
-Push the passed-in Parrot string onto the passed in PMC
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-Parrot_PMC_push_string(PARROT_INTERP, Parrot_PMC pmc, Parrot_String value)
-{
-    ASSERT_ARGS(Parrot_PMC_push_string)
-    PARROT_CALLIN_START(interp);
-    VTABLE_push_string(interp, pmc, value);
-    PARROT_CALLIN_END(interp);
-}
-
-/*
-
 =item C<void Parrot_PMC_push_pmcval(PARROT_INTERP, Parrot_PMC pmc, Parrot_PMC
 value)>
 


More information about the parrot-commits mailing list