[svn:parrot] r45294 - trunk/src/pmc

mikehh at svn.parrot.org mikehh at svn.parrot.org
Tue Mar 30 01:17:47 UTC 2010


Author: mikehh
Date: Tue Mar 30 01:17:47 2010
New Revision: 45294
URL: https://trac.parrot.org/parrot/changeset/45294

Log:
fix codetest failure - assert args - src/pmc/orderedhash.pmc

Modified:
   trunk/src/pmc/orderedhash.pmc

Modified: trunk/src/pmc/orderedhash.pmc
==============================================================================
--- trunk/src/pmc/orderedhash.pmc	Tue Mar 30 01:13:30 2010	(r45293)
+++ trunk/src/pmc/orderedhash.pmc	Tue Mar 30 01:17:47 2010	(r45294)
@@ -139,6 +139,8 @@
 static PMC*
 get_list_item(PARROT_INTERP, ARGIN(PMC *self), INTVAL idx)
 {
+    ASSERT_ARGS(get_list_item)
+
     const Parrot_OrderedHash_attributes * const attrs = PARROT_ORDEREDHASH(self);
     const INTVAL n = VTABLE_elements(interp, attrs->hash);
     INTVAL                         pos;
@@ -161,6 +163,8 @@
 static void
 find_bounds(PARROT_INTERP, ARGIN(PMC *pmc_hash), ARGMOD(PMC **first), ARGMOD(PMC **last))
 {
+    ASSERT_ARGS(find_bounds)
+
     PMC * const iter = VTABLE_get_iter(interp, pmc_hash);
 
     while (VTABLE_get_bool(interp, iter)) {
@@ -183,6 +187,8 @@
 static PMC*
 box_string(PARROT_INTERP, ARGIN(STRING *str))
 {
+    ASSERT_ARGS(box_string)
+
     PMC * const ret = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp,
                 enum_class_String));
     VTABLE_set_string_native(interp, ret, str);
@@ -194,6 +200,8 @@
 static PMC*
 box_integer(PARROT_INTERP, INTVAL val)
 {
+    ASSERT_ARGS(box_integer)
+
     PMC * const ret = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp,
                 enum_class_Integer));
     VTABLE_set_integer_native(interp, ret, val);
@@ -205,6 +213,8 @@
 static PMC*
 box_number(PARROT_INTERP, FLOATVAL val)
 {
+    ASSERT_ARGS(box_number)
+
     PMC * const ret = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp,
                 enum_class_Float));
     VTABLE_set_number_native(interp, ret, val);


More information about the parrot-commits mailing list