[svn:parrot] r43999 - trunk/compilers/pirc/src

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Feb 16 09:43:11 2010
New Revision: 43999
URL: https://trac.parrot.org/parrot/changeset/43999

Log:
Add ASSERT_ARGS

Modified:
   trunk/compilers/pirc/src/pirregalloc.c

Modified: trunk/compilers/pirc/src/pirregalloc.c
==============================================================================
--- trunk/compilers/pirc/src/pirregalloc.c	Tue Feb 16 09:42:52 2010	(r43998)
+++ trunk/compilers/pirc/src/pirregalloc.c	Tue Feb 16 09:43:11 2010	(r43999)
@@ -58,6 +58,7 @@
 static void
 reset_register_count(ARGIN(lsr_allocator * const lsr))
 {
+    ASSERT_ARGS(reset_register_count)
     int i;
     /* the "r" field keeps track of the number of registers that must be allocated by
      * parrot. In the original implementation, "r" is constant, and indicates the number
@@ -232,6 +233,7 @@
 static unsigned
 lengthi(ARGIN_NULLOK(live_interval *list))
 {
+    ASSERT_ARGS(lengthi)
     unsigned len = 0;
 
     while (list) {
@@ -256,6 +258,7 @@
 add_live_interval(ARGIN(lsr_allocator * const lsr),
     ARGIN(live_interval * const i), pir_type type)
 {
+    ASSERT_ARGS(add_live_interval)
     live_interval *iter = lsr->intervals[type];
 
     /* if there's no interval for the specified type, insert i as the first one and return */
@@ -384,6 +387,7 @@
 add_interval_to_active(ARGIN(lsr_allocator *lsr),
         ARGIN(live_interval * const i), pir_type type)
 {
+    ASSERT_ARGS(add_interval_to_active)
     live_interval *iter = lsr->active[type];
 
     /* if there's no active intervals, set i as first */
@@ -452,6 +456,7 @@
 static unsigned
 get_free_reg(ARGIN(lsr_allocator * const lsr), pir_type type)
 {
+    ASSERT_ARGS(get_free_reg)
     /* if there's any second hand register for the requested type, return that. */
     if (lsr->free_regs[type]) {
         free_reg *available  = lsr->free_regs[type];
@@ -525,6 +530,7 @@
 static void
 remove_from_active(ARGMOD(live_interval *i))
 {
+    ASSERT_ARGS(remove_from_active)
     /* if it has a previous node, that previous node's next is set
      * to i's next.
      */
@@ -590,6 +596,7 @@
 cache_interval_object(ARGIN(lsr_allocator * const lsr),
         ARGIN(live_interval * interval))
 {
+    ASSERT_ARGS(cache_interval_object)
     interval->nextc = lsr->cached_intervals;
     lsr->cached_intervals = interval;
 }