Author: tewk
Date: Mon Jan 8 13:04:25 2007
New Revision: 16499
Modified:
trunk/src/inter_call.c
Log:
inter_call.c more ws fixes
Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c (original)
+++ trunk/src/inter_call.c Mon Jan 8 13:04:25 2007
@@ -309,6 +309,7 @@
}
}
+
static void
fetch_arg_op(Interp *interp, struct call_state *st)
{
@@ -370,8 +371,7 @@
*/
if ((st->dest.mode & CALL_STATE_NAMED_x) && !(st->src.sig &
PARROT_ARG_NAME))
- real_exception(interp, NULL, E_ValueError,
- "positional inside named args");
+ real_exception(interp, NULL, E_ValueError, "positional inside named
args");
#endif
if (st->src.mode & CALL_STATE_FLATTEN) {
@@ -397,6 +397,7 @@
/* advance src - get next arg */
return Parrot_fetch_arg(interp, st);
}
+
if ((st->src.sig & PARROT_ARG_NAME) && !(st->src.sig &
PARROT_ARG_FLATTEN)) {
fetch_arg_op(interp, st);
st->name = UVal_str(st->val);
@@ -882,8 +883,7 @@
case CALL_STATE_NAMED_NAMED_OPT:
if (!locate_named_named(interp, st))
real_exception(interp, NULL, E_ValueError,
- "too many named arguments - '%Ss' not expected",
- st->name);
+ "too many named arguments - '%Ss' not expected",
st->name);
if (st->dest.mode & CALL_STATE_SLURP)
state |= CALL_STATE_SLURP;
break;
@@ -1204,7 +1204,6 @@
return 0;
}
-
/*
* handle void, and pointer (PMC*, STRING*) return values
*/
