[svn:parrot] r39838 - trunk/compilers/imcc
petdance at svn.parrot.org
petdance at svn.parrot.org
Tue Jun 30 04:43:21 UTC 2009
Author: petdance
Date: Tue Jun 30 04:43:21 2009
New Revision: 39838
URL: https://trac.parrot.org/parrot/changeset/39838
Log:
consting. Removed unused interp from add_pcc_named_return()
Modified:
trunk/compilers/imcc/imcc.y
trunk/compilers/imcc/imcparser.c
Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y Tue Jun 30 04:30:24 2009 (r39837)
+++ trunk/compilers/imcc/imcc.y Tue Jun 30 04:43:21 2009 (r39838)
@@ -86,15 +86,16 @@
FUNC_MODIFIES(*name)
FUNC_MODIFIES(*value);
-static void add_pcc_named_return(PARROT_INTERP,
+static void add_pcc_named_return(
ARGMOD(SymReg *cur_call),
- ARGIN(SymReg *name),
- ARGIN(SymReg *value))
+ ARGMOD(SymReg *name),
+ ARGMOD(SymReg *value))
__attribute__nonnull__(1)
__attribute__nonnull__(2)
__attribute__nonnull__(3)
- __attribute__nonnull__(4)
- FUNC_MODIFIES(*cur_call);
+ FUNC_MODIFIES(*cur_call)
+ FUNC_MODIFIES(*name)
+ FUNC_MODIFIES(*value);
static void adv_named_set(PARROT_INTERP, ARGIN(const char *name))
__attribute__nonnull__(1)
@@ -265,8 +266,7 @@
|| PARROT_ASSERT_ARG(name) \
|| PARROT_ASSERT_ARG(value)
#define ASSERT_ARGS_add_pcc_named_return __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(cur_call) \
+ PARROT_ASSERT_ARG(cur_call) \
|| PARROT_ASSERT_ARG(name) \
|| PARROT_ASSERT_ARG(value)
#define ASSERT_ARGS_adv_named_set __attribute__unused__ int _ASSERT_ARGS_CHECK = \
@@ -970,17 +970,17 @@
/*
-=item C<static void add_pcc_named_return(PARROT_INTERP, SymReg *cur_call, SymReg
-*name, SymReg *value)>
+=item C<static void add_pcc_named_return(SymReg *cur_call, SymReg *name, SymReg
+*value)>
=cut
*/
static void
-add_pcc_named_return(PARROT_INTERP, ARGMOD(SymReg *cur_call),
- ARGIN(SymReg *name),
- ARGIN(SymReg *value))
+add_pcc_named_return(ARGMOD(SymReg *cur_call),
+ ARGMOD(SymReg *name),
+ ARGMOD(SymReg *value))
{
ASSERT_ARGS(add_pcc_named_return)
name->type |= VT_NAMED;
@@ -1775,7 +1775,7 @@
| arg
{
if (IMCC_INFO(interp)->adv_named_id) {
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return,
IMCC_INFO(interp)->adv_named_id, $1);
IMCC_INFO(interp)->adv_named_id = NULL;
}
@@ -1785,12 +1785,12 @@
| STRINGC ADV_ARROW var
{
SymReg * const name = mk_const(interp, $1, 'S');
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, $3);
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return, name, $3);
}
| var_returns COMMA arg
{
if (IMCC_INFO(interp)->adv_named_id) {
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return,
IMCC_INFO(interp)->adv_named_id, $3);
IMCC_INFO(interp)->adv_named_id = NULL;
}
@@ -1799,8 +1799,8 @@
}
| var_returns COMMA STRINGC ADV_ARROW var
{
- SymReg *name = mk_const(interp, $3, 'S');
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, $5);
+ SymReg * const name = mk_const(interp, $3, 'S');
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return, name, $5);
}
;
Modified: trunk/compilers/imcc/imcparser.c
==============================================================================
--- trunk/compilers/imcc/imcparser.c Tue Jun 30 04:30:24 2009 (r39837)
+++ trunk/compilers/imcc/imcparser.c Tue Jun 30 04:43:21 2009 (r39838)
@@ -410,15 +410,16 @@
FUNC_MODIFIES(*name)
FUNC_MODIFIES(*value);
-static void add_pcc_named_return(PARROT_INTERP,
+static void add_pcc_named_return(
ARGMOD(SymReg *cur_call),
- ARGIN(SymReg *name),
- ARGIN(SymReg *value))
+ ARGMOD(SymReg *name),
+ ARGMOD(SymReg *value))
__attribute__nonnull__(1)
__attribute__nonnull__(2)
__attribute__nonnull__(3)
- __attribute__nonnull__(4)
- FUNC_MODIFIES(*cur_call);
+ FUNC_MODIFIES(*cur_call)
+ FUNC_MODIFIES(*name)
+ FUNC_MODIFIES(*value);
static void adv_named_set(PARROT_INTERP, ARGIN(const char *name))
__attribute__nonnull__(1)
@@ -589,8 +590,7 @@
|| PARROT_ASSERT_ARG(name) \
|| PARROT_ASSERT_ARG(value)
#define ASSERT_ARGS_add_pcc_named_return __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(cur_call) \
+ PARROT_ASSERT_ARG(cur_call) \
|| PARROT_ASSERT_ARG(name) \
|| PARROT_ASSERT_ARG(value)
#define ASSERT_ARGS_adv_named_set __attribute__unused__ int _ASSERT_ARGS_CHECK = \
@@ -1294,17 +1294,17 @@
/*
-=item C<static void add_pcc_named_return(PARROT_INTERP, SymReg *cur_call, SymReg
-*name, SymReg *value)>
+=item C<static void add_pcc_named_return(SymReg *cur_call, SymReg *name, SymReg
+*value)>
=cut
*/
static void
-add_pcc_named_return(PARROT_INTERP, ARGMOD(SymReg *cur_call),
- ARGIN(SymReg *name),
- ARGIN(SymReg *value))
+add_pcc_named_return(ARGMOD(SymReg *cur_call),
+ ARGMOD(SymReg *name),
+ ARGMOD(SymReg *value))
{
ASSERT_ARGS(add_pcc_named_return)
name->type |= VT_NAMED;
@@ -4121,7 +4121,7 @@
#line 1776 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return,
IMCC_INFO(interp)->adv_named_id, (yyvsp[(1) - (1)].sr));
IMCC_INFO(interp)->adv_named_id = NULL;
}
@@ -4134,7 +4134,7 @@
#line 1786 "compilers/imcc/imcc.y"
{
SymReg * const name = mk_const(interp, (yyvsp[(1) - (3)].s), 'S');
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, (yyvsp[(3) - (3)].sr));
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return, name, (yyvsp[(3) - (3)].sr));
;}
break;
@@ -4142,7 +4142,7 @@
#line 1791 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return,
IMCC_INFO(interp)->adv_named_id, (yyvsp[(3) - (3)].sr));
IMCC_INFO(interp)->adv_named_id = NULL;
}
@@ -4154,8 +4154,8 @@
case 154:
#line 1801 "compilers/imcc/imcc.y"
{
- SymReg *name = mk_const(interp, (yyvsp[(3) - (5)].s), 'S');
- add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, (yyvsp[(5) - (5)].sr));
+ SymReg * const name = mk_const(interp, (yyvsp[(3) - (5)].s), 'S');
+ add_pcc_named_return(IMCC_INFO(interp)->sr_return, name, (yyvsp[(5) - (5)].sr));
;}
break;
More information about the parrot-commits
mailing list