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

[svn:parrot] r33594 - trunk/compilers/imcc

From:
chromatic
Date:
December 6, 2008 23:48
Subject:
[svn:parrot] r33594 - trunk/compilers/imcc
Message ID:
20081207074809.E3748CB9AF@x12.develooper.com
Author: chromatic
Date: Sat Dec  6 23:48:09 2008
New Revision: 33594

Modified:
   trunk/compilers/imcc/parser_util.c
   trunk/compilers/imcc/pbc.c
   trunk/compilers/imcc/pbc.h
   trunk/compilers/imcc/symreg.c

Log:
[IMCC] Re-headerized IMCC, decorating function arguments appropriately.

Modified: trunk/compilers/imcc/parser_util.c
==============================================================================
--- trunk/compilers/imcc/parser_util.c	(original)
+++ trunk/compilers/imcc/parser_util.c	Sat Dec  6 23:48:09 2008
@@ -65,6 +65,10 @@
         __attribute__nonnull__(3)
         FUNC_MODIFIES(*error_message);
 
+static void imcc_destroy_macro_values(ARGMOD(void *value))
+        __attribute__nonnull__(1)
+        FUNC_MODIFIES(*value);
+
 PARROT_WARN_UNUSED_RESULT
 PARROT_CAN_RETURN_NULL
 static const char * try_rev_cmp(ARGIN(const char *name), ARGMOD(SymReg **r))
@@ -88,10 +92,6 @@
         FUNC_MODIFIES(*unit)
         FUNC_MODIFIES(*r);
 
-static void imcc_destroy_macro_values(ARGIN(void *value))
-        __attribute__nonnull__(1)
-        FUNC_MODIFIES(*value);
-
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: static */
 
@@ -1485,7 +1485,7 @@
 */
 
 static void
-imcc_destroy_macro_values(void *value)
+imcc_destroy_macro_values(ARGMOD(void *value))
 {
     macro_t *m = (macro_t *)value;
     int      i;

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Sat Dec  6 23:48:09 2008
@@ -81,8 +81,9 @@
 static int add_const_table(PARROT_INTERP)
         __attribute__nonnull__(1);
 
-static int add_const_table_key(PARROT_INTERP, PMC *key)
-        __attribute__nonnull__(1);
+static int add_const_table_key(PARROT_INTERP, ARGIN(PMC *key))
+        __attribute__nonnull__(1)
+        __attribute__nonnull__(2);
 
 static int add_const_table_pmc(PARROT_INTERP, PMC *pmc)
         __attribute__nonnull__(1);
@@ -306,7 +307,7 @@
 */
 
 static int
-add_const_table_key(PARROT_INTERP, PMC *key)
+add_const_table_key(PARROT_INTERP, ARGIN(PMC *key))
 {
     int newitem = add_const_table(interp);
 

Modified: trunk/compilers/imcc/pbc.h
==============================================================================
--- trunk/compilers/imcc/pbc.h	(original)
+++ trunk/compilers/imcc/pbc.h	Sat Dec  6 23:48:09 2008
@@ -37,13 +37,13 @@
 
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
-STRING * IMCC_string_from_reg(PARROT_INTERP, ARGIN(const SymReg *r))
+STRING * IMCC_string_from__STRINGC(PARROT_INTERP, ARGIN(const char *buf))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
-STRING * IMCC_string_from__STRINGC(PARROT_INTERP, ARGIN(const char *buf))
+STRING * IMCC_string_from_reg(PARROT_INTERP, ARGIN(const SymReg *r))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 

Modified: trunk/compilers/imcc/symreg.c
==============================================================================
--- trunk/compilers/imcc/symreg.c	(original)
+++ trunk/compilers/imcc/symreg.c	Sat Dec  6 23:48:09 2008
@@ -71,7 +71,9 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
-static int int_overflows(const SymReg *r);
+static int int_overflows(ARGIN(const SymReg *r))
+        __attribute__nonnull__(1);
+
 PARROT_CANNOT_RETURN_NULL
 PARROT_WARN_UNUSED_RESULT
 static SymReg * mk_pmc_const_2(PARROT_INTERP,
@@ -735,7 +737,7 @@
 }
 
 static int
-int_overflows(const SymReg *r)
+int_overflows(ARGIN(const SymReg *r))
 {
     INTVAL i;
     errno = 0;



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