[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