[svn:parrot] r41637 - branches/pcc_reapply/src/call
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Sat Oct 3 14:46:08 UTC 2009
Author: jkeenan
Date: Sat Oct 3 14:46:07 2009
New Revision: 41637
URL: https://trac.parrot.org/parrot/changeset/41637
Log:
Fix correction of line lengths.
Modified:
branches/pcc_reapply/src/call/pcc.c
Modified: branches/pcc_reapply/src/call/pcc.c
==============================================================================
--- branches/pcc_reapply/src/call/pcc.c Sat Oct 3 14:06:45 2009 (r41636)
+++ branches/pcc_reapply/src/call/pcc.c Sat Oct 3 14:46:07 2009 (r41637)
@@ -1234,8 +1234,8 @@
INTVAL * const int_pointer = va_arg(args, INTVAL*);
INTVAL int_value = 0;
if (_value_exists)
- int_value = VTABLE_get_integer_keyed_str(interp,
- call_object, param_name);
+ int_value = VTABLE_get_integer_keyed_str(
+ interp, call_object, param_name);
*int_pointer = int_value;
}
break;
@@ -1244,8 +1244,8 @@
FLOATVAL * const float_pointer = va_arg(args, FLOATVAL*);
FLOATVAL float_value = 0.0;
if (_value_exists)
- float_value = VTABLE_get_number_keyed_str(interp,
- call_object, param_name);
+ float_value = VTABLE_get_number_keyed_str(
+ interp, call_object, param_name);
*float_pointer = float_value;
}
break;
@@ -1254,8 +1254,8 @@
STRING ** const string_pointer = va_arg(args, STRING**);
STRING * str_value = NULL;
if (_value_exists)
- str_value = VTABLE_get_string_keyed_str(interp,
- call_object, param_name);
+ str_value = VTABLE_get_string_keyed_str(
+ interp, call_object, param_name);
*string_pointer = str_value;
}
break;
@@ -1356,7 +1356,7 @@
{
STRING ** const string_pointer = va_arg(args, STRING**);
STRING * const str_value =
- VTABLE_get_string_keyed_int(interp, call_object, positional_index);
+ VTABLE_get_string_keyed_int(interp, call_object, positional_index);
*string_pointer = str_value;
}
positional_index++;
@@ -1364,8 +1364,8 @@
case PARROT_ARG_PMC:
{
PMC ** const pmc_pointer = va_arg(args, PMC**);
- PMC * const pmc_value = VTABLE_get_pmc_keyed_int(interp,
- call_object, positional_index);
+ PMC * const pmc_value =
+ VTABLE_get_pmc_keyed_int(interp, call_object, positional_index);
*pmc_pointer = pmc_value;
}
positional_index++;
@@ -1435,8 +1435,7 @@
else
return_list_elements = VTABLE_elements(interp, return_list);
- caller_return_flags = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp,
- "return_flags"));
+ caller_return_flags = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp, "return_flags"));
if (raw_return_count > return_list_elements) {
@@ -1460,8 +1459,7 @@
if (PMC_IS_NULL(result_item))
continue; /* Go on to next return arg. */
- result_flags = VTABLE_get_integer_keyed_int(interp, caller_return_flags,
- return_list_index);
+ result_flags = VTABLE_get_integer_keyed_int(interp, caller_return_flags, return_list_index);
item_sig = VTABLE_get_string_keyed_str(interp, result_item, CONST_STRING(interp, ''));
switch (PARROT_ARG_TYPE_MASK_MASK(return_flags)) {
@@ -1543,8 +1541,7 @@
va_list args;
INTVAL return_list_elements;
PMC *ctx = CURRENT_CONTEXT(interp);
- PMC * const return_list = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp,
- "returns"));
+ PMC * const return_list = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp, "returns"));
INTVAL raw_return_count = 0;
INTVAL return_index = 0;
INTVAL return_list_index = 0;
More information about the parrot-commits
mailing list