develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
infinoid
Date:
January 5, 2009 16:00
Subject:
[svn:parrot] r35010 - trunk/compilers/imcc
Message ID:
20090106000026.C3185CB9F9@x12.develooper.com
Author: infinoid
Date: Mon Jan  5 16:00:25 2009
New Revision: 35010

Modified:
   trunk/compilers/imcc/imcc.y
   trunk/compilers/imcc/imcparser.c

Log:
[cage] Remove trailing semicolons from ASSERT_ARGS tags in imcc.y.
Also, tag the untagged IMCC_itcall_sub() function with ASSERT_ARGS.

Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y	(original)
+++ trunk/compilers/imcc/imcc.y	Mon Jan  5 16:00:25 2009
@@ -343,7 +343,7 @@
 static Instruction *
 MK_I(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGIN(const char *fmt), int n, ...)
 {
-    ASSERT_ARGS(MK_I);
+    ASSERT_ARGS(MK_I)
     char opname[64];
     char *p;
     const char *q;
@@ -377,7 +377,7 @@
 mk_pmc_const(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGIN(const char *type),
         ARGMOD(SymReg *left), ARGIN(const char *constant))
 {
-    ASSERT_ARGS(mk_pmc_const);
+    ASSERT_ARGS(mk_pmc_const)
     const int type_enum = atoi(type);
     const int ascii = (*constant == '\'' || *constant == '"');
     SymReg *rhs;
@@ -432,7 +432,7 @@
 mk_pmc_const_named(PARROT_INTERP, ARGMOD(IMC_Unit *unit),
     ARGIN(const char *name), ARGMOD(SymReg *left), ARGIN(const char *constant))
 {
-    ASSERT_ARGS(mk_pmc_const_named);
+    ASSERT_ARGS(mk_pmc_const_named)
     SymReg *rhs;
     SymReg *r[3];
     char   *const_name;
@@ -490,7 +490,7 @@
 func_ins(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGIN(SymReg *lhs), ARGIN(const char *op),
          ARGMOD(SymReg **r), int n, int keyv, int emit)
 {
-    ASSERT_ARGS(func_ins);
+    ASSERT_ARGS(func_ins)
     int i;
     /* shift regs up by 1 */
     for (i = n - 1; i >= 0; --i)
@@ -509,7 +509,7 @@
 static void
 clear_state(PARROT_INTERP)
 {
-    ASSERT_ARGS(clear_state);
+    ASSERT_ARGS(clear_state)
     IMCC_INFO(interp) -> nargs = 0;
     IMCC_INFO(interp) -> keyvec = 0;
 }
@@ -518,7 +518,7 @@
 Instruction *
 INS_LABEL(PARROT_INTERP, ARGMOD_NULLOK(IMC_Unit *unit), ARGMOD(SymReg *r0), int emit)
 {
-    ASSERT_ARGS(INS_LABEL);
+    ASSERT_ARGS(INS_LABEL)
 
     Instruction * const ins = _mk_instruction("", "%s:", 1, &r0, 0);
     ins->type               = ITLABEL;
@@ -534,7 +534,7 @@
 static Instruction *
 iLABEL(PARROT_INTERP, ARGMOD_NULLOK(IMC_Unit *unit), ARGMOD(SymReg *r0))
 {
-    ASSERT_ARGS(iLABEL);
+    ASSERT_ARGS(iLABEL)
     Instruction * const i = INS_LABEL(interp, unit, r0, 1);
     i->line               = IMCC_INFO(interp)->line;
 
@@ -546,7 +546,7 @@
 static Instruction *
 iSUBROUTINE(PARROT_INTERP, ARGMOD_NULLOK(IMC_Unit *unit), ARGMOD(SymReg *r))
 {
-    ASSERT_ARGS(iSUBROUTINE);
+    ASSERT_ARGS(iSUBROUTINE)
     Instruction * const i = iLABEL(interp, unit, r);
 
     r->type    = (r->type & VT_ENCODED) ? VT_PCC_SUB|VT_ENCODED : VT_PCC_SUB;
@@ -567,7 +567,7 @@
 iINDEXFETCH(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGIN(SymReg *r0), ARGIN(SymReg *r1),
         ARGIN(SymReg *r2))
 {
-    ASSERT_ARGS(iINDEXFETCH);
+    ASSERT_ARGS(iINDEXFETCH)
     IMCC_INFO(interp) -> keyvec |= KEY_BIT(2);
     return MK_I(interp, unit, "set %s, %s[%s]", 3, r0, r1, r2);
 }
@@ -581,7 +581,7 @@
 iINDEXSET(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGIN(SymReg *r0), ARGIN(SymReg *r1),
         ARGIN(SymReg *r2))
 {
-    ASSERT_ARGS(iINDEXSET);
+    ASSERT_ARGS(iINDEXSET)
     if (r0->set == 'P') {
         IMCC_INFO(interp)->keyvec |= KEY_BIT(1);
         MK_I(interp, unit, "set %s[%s], %s", 3, r0, r1, r2);
@@ -598,7 +598,7 @@
 static const char *
 inv_op(ARGIN(const char *op))
 {
-    ASSERT_ARGS(inv_op);
+    ASSERT_ARGS(inv_op)
     int n;
     return get_neg_op(op, &n);
 }
@@ -607,7 +607,7 @@
 Instruction *
 IMCC_create_itcall_label(PARROT_INTERP)
 {
-    ASSERT_ARGS(IMCC_create_itcall_label);
+    ASSERT_ARGS(IMCC_create_itcall_label)
     char         name[128];
     SymReg      *r;
     Instruction *i;
@@ -628,7 +628,7 @@
 static SymReg *
 mk_sub_address_fromc(PARROT_INTERP, ARGIN(const char *name))
 {
-    ASSERT_ARGS(mk_sub_address_fromc);
+    ASSERT_ARGS(mk_sub_address_fromc)
     /* name is a quoted sub name */
     SymReg *r;
     char *name_copy                  = str_dup(name + 1);
@@ -644,7 +644,7 @@
 static SymReg *
 mk_sub_address_u(PARROT_INTERP, ARGIN(const char *name))
 {
-    ASSERT_ARGS(mk_sub_address_u);
+    ASSERT_ARGS(mk_sub_address_u)
     SymReg * const r = mk_sub_address(interp, name);
     r->type         |= VT_ENCODED;
 
@@ -654,6 +654,7 @@
 void
 IMCC_itcall_sub(PARROT_INTERP, ARGIN(SymReg *sub))
 {
+    ASSERT_ARGS(IMCC_itcall_sub)
     IMCC_INFO(interp)->cur_call->pcc_sub->sub = sub;
     if (IMCC_INFO(interp)->cur_obj) {
         if (IMCC_INFO(interp)->cur_obj->set != 'P')
@@ -670,7 +671,7 @@
 static void
 begin_return_or_yield(PARROT_INTERP, int yield)
 {
-    ASSERT_ARGS(begin_return_or_yield);
+    ASSERT_ARGS(begin_return_or_yield)
     Instruction *i;
     Instruction * const ins = IMCC_INFO(interp)->cur_unit->instructions;
     char                name[128];
@@ -691,7 +692,7 @@
 static void
 set_lexical(PARROT_INTERP, ARGMOD(SymReg *r), ARGIN(const char *name))
 {
-    ASSERT_ARGS(set_lexical);
+    ASSERT_ARGS(set_lexical)
     SymReg * const n = mk_const(interp, name, 'S');
 
     r->usage |= U_LEXICAL;
@@ -710,7 +711,7 @@
 add_pcc_named_arg(PARROT_INTERP, ARGMOD(SymReg *cur_call), ARGIN(const char *name),
         ARGIN(SymReg *value))
 {
-    ASSERT_ARGS(add_pcc_named_arg);
+    ASSERT_ARGS(add_pcc_named_arg)
     SymReg * const r = mk_const(interp, name, 'S');
 
     r->type  |= VT_NAMED;
@@ -723,7 +724,7 @@
 add_pcc_named_result(PARROT_INTERP, ARGMOD(SymReg *cur_call), ARGIN(const char *name),
         ARGIN(SymReg *value))
 {
-    ASSERT_ARGS(add_pcc_named_result);
+    ASSERT_ARGS(add_pcc_named_result)
     SymReg * const r = mk_const(interp, name, 'S');
     r->type         |= VT_NAMED;
 
@@ -735,7 +736,7 @@
 add_pcc_named_param(PARROT_INTERP, ARGMOD(SymReg *cur_call), ARGIN(const char *name),
         ARGIN(SymReg *value))
 {
-    ASSERT_ARGS(add_pcc_named_param);
+    ASSERT_ARGS(add_pcc_named_param)
     SymReg * const r = mk_const(interp, name, 'S');
     r->type         |= VT_NAMED;
 
@@ -747,7 +748,7 @@
 add_pcc_named_return(PARROT_INTERP, ARGMOD(SymReg *cur_call), ARGIN(const char *name),
         ARGIN(SymReg *value))
 {
-    ASSERT_ARGS(add_pcc_named_return);
+    ASSERT_ARGS(add_pcc_named_return)
     SymReg * const r = mk_const(interp, name, 'S');
     r->type         |= VT_NAMED;
 
@@ -759,7 +760,7 @@
 static void
 adv_named_set(PARROT_INTERP, ARGIN(char *name))
 {
-    ASSERT_ARGS(adv_named_set);
+    ASSERT_ARGS(adv_named_set)
     if (IMCC_INFO(interp)->adv_named_id) {
         IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR,
                     "Named parameter with more than one name.\n");
@@ -770,7 +771,7 @@
 static void
 do_loadlib(PARROT_INTERP, ARGIN(const char *lib))
 {
-    ASSERT_ARGS(do_loadlib);
+    ASSERT_ARGS(do_loadlib)
     STRING * const s = string_unescape_cstring(interp, lib + 1, '"', NULL);
     PMC    *ignored  = Parrot_load_lib(interp, s, NULL);
     UNUSED(ignored);

Modified: trunk/compilers/imcc/imcparser.c
==============================================================================
--- trunk/compilers/imcc/imcparser.c	(original)
+++ trunk/compilers/imcc/imcparser.c	Mon Jan  5 16:00:25 2009
@@ -978,6 +978,7 @@
 void
 IMCC_itcall_sub(PARROT_INTERP, ARGIN(SymReg *sub))
 {
+    ASSERT_ARGS(IMCC_itcall_sub)
     IMCC_INFO(interp)->cur_call->pcc_sub->sub = sub;
     if (IMCC_INFO(interp)->cur_obj) {
         if (IMCC_INFO(interp)->cur_obj->set != 'P')



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