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

NotFound at svn.parrot.org NotFound at svn.parrot.org
Mon Feb 23 20:56:38 UTC 2009


Author: NotFound
Date: Mon Feb 23 20:56:37 2009
New Revision: 36946
URL: https://trac.parrot.org/parrot/changeset/36946

Log:
[core] add function Parrot_PMC_set_pmc_strkey to extend.h

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

Modified: trunk/include/parrot/extend.h
==============================================================================
--- trunk/include/parrot/extend.h	Mon Feb 23 19:35:13 2009	(r36945)
+++ trunk/include/parrot/extend.h	Mon Feb 23 20:56:37 2009	(r36946)
@@ -346,6 +346,13 @@
         __attribute__nonnull__(1);
 
 PARROT_EXPORT
+void Parrot_PMC_set_pmc_strkey(PARROT_INTERP,
+    Parrot_PMC pmc,
+    Parrot_String key,
+    Parrot_PMC value)
+        __attribute__nonnull__(1);
+
+PARROT_EXPORT
 void Parrot_PMC_set_pointer_intkey(PARROT_INTERP,
     ARGIN(Parrot_PMC pmc),
     Parrot_Int key,
@@ -522,6 +529,8 @@
        PARROT_ASSERT_ARG(interp)
 #define ASSERT_ARGS_Parrot_PMC_set_pmc_pmckey __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp)
+#define ASSERT_ARGS_Parrot_PMC_set_pmc_strkey __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+       PARROT_ASSERT_ARG(interp)
 #define ASSERT_ARGS_Parrot_PMC_set_pointer_intkey __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp) \
     || PARROT_ASSERT_ARG(pmc)

Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c	Mon Feb 23 19:35:13 2009	(r36945)
+++ trunk/src/extend.c	Mon Feb 23 20:56:37 2009	(r36946)
@@ -585,6 +585,27 @@
 
 /*
 
+=item C<void Parrot_PMC_set_pmc_strkey>
+
+Assign the passed-in pmc to the passed-in slot of the passed-in PMC.
+
+=cut
+
+*/
+
+PARROT_EXPORT
+void
+Parrot_PMC_set_pmc_strkey(PARROT_INTERP,
+        Parrot_PMC pmc, Parrot_String key, Parrot_PMC value)
+{
+    ASSERT_ARGS(Parrot_PMC_set_pmc_strkey)
+    PARROT_CALLIN_START(interp);
+    VTABLE_set_pmc_keyed_str(interp, pmc, key, value);
+    PARROT_CALLIN_END(interp);
+}
+
+/*
+
 =item C<void Parrot_PMC_set_pmc_pmckey>
 
 Assign the passed-in pmc to the passed-in slot of the passed-in PMC.


More information about the parrot-commits mailing list