develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34733 - in trunk: compilers/imcc src

From:
petdance
Date:
December 31, 2008 20:00
Subject:
[svn:parrot] r34733 - in trunk: compilers/imcc src
Message ID:
20090101040029.76936CB9FA@x12.develooper.com
Author: petdance
Date: Wed Dec 31 20:00:27 2008
New Revision: 34733

Modified:
   trunk/compilers/imcc/sets.c
   trunk/src/embed.c

Log:
throwing in some ASSERT_ARGS

Modified: trunk/compilers/imcc/sets.c
==============================================================================
--- trunk/compilers/imcc/sets.c	(original)
+++ trunk/compilers/imcc/sets.c	Wed Dec 31 20:00:27 2008
@@ -225,6 +225,8 @@
 {
     unsigned int i;
 
+    ASSERT_ARGS(set_first_zero);
+
     for (i = 0; i < NUM_BYTES(s->length); ++i) {
         const int set_byte = s->bmp[i];
         int j;
@@ -260,6 +262,8 @@
 int
 set_contains(ARGIN(const Set *s), unsigned int element)
 {
+    ASSERT_ARGS(set_contains);
+
     if (element > s->length)
         return 0;
     else {

Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c	(original)
+++ trunk/src/embed.c	Wed Dec 31 20:00:27 2008
@@ -587,6 +587,8 @@
     INTVAL i;
     PMC   *userargv;
 
+    ASSERT_ARGS(setup_argv);
+
     if (Interp_debug_TEST(interp, PARROT_START_DEBUG_FLAG)) {
         Parrot_io_eprintf(interp,
             "*** Parrot VM: Setting up ARGV array.  Current argc: %d ***\n",



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About