[svn:parrot] r41805 - branches/pcc_reapply/src/call

mikehh at svn.parrot.org mikehh at svn.parrot.org
Sat Oct 10 21:10:33 UTC 2009


Author: mikehh
Date: Sat Oct 10 21:10:32 2009
New Revision: 41805
URL: https://trac.parrot.org/parrot/changeset/41805

Log:
fix a bunch of line length errors in src/call/args.c

Modified:
   branches/pcc_reapply/src/call/args.c

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Sat Oct 10 20:52:36 2009	(r41804)
+++ branches/pcc_reapply/src/call/args.c	Sat Oct 10 21:10:32 2009	(r41805)
@@ -644,7 +644,8 @@
                 }
                 else {
                     string_sig = Parrot_str_append(interp, string_sig, CONST_STRING(interp, "S"));
-                    VTABLE_set_pointer(interp, val_pointer, (void *) &(CTX_REG_STR(ctx, raw_index)));
+                    VTABLE_set_pointer(interp, val_pointer,
+                                       (void *) &(CTX_REG_STR(ctx, raw_index)));
                     VTABLE_set_string_keyed_str(interp, val_pointer, signature, CONST_STRING(interp, "S"));
                     VTABLE_push_pmc(interp, returns, val_pointer);
                 }
@@ -1413,7 +1414,7 @@
 
     /*
     Parrot_io_eprintf(interp,
-         "return_count: %d\nresult_count: %d\npositional_returns: %d\nreturn_sig: %S\nresult_sig: %S\n",
+     "return_count: %d\nresult_count: %d\npositional_returns: %d\nreturn_sig: %S\nresult_sig: %S\n",
          return_count, result_count, positional_returns, VTABLE_get_repr(interp, raw_sig),
          VTABLE_get_repr(interp, result_sig));
     */
@@ -1494,7 +1495,8 @@
                     case PARROT_ARG_PMC:
                         if (return_flags & PARROT_ARG_FLATTEN) {
                             Parrot_ex_throw_from_c_args(interp, NULL,
-                                    EXCEPTION_INVALID_OPERATION, "We don't handle :flat returns into a :slurpy result yet\n");
+                                    EXCEPTION_INVALID_OPERATION,
+                                    "We don't handle :flat returns into a :slurpy result yet\n");
                         }
                         VTABLE_push_pmc(interp, collect_positional, constant?
                                 accessor->pmc_constant(interp, return_info, return_index)
@@ -1571,18 +1573,21 @@
                     break;
                 case PARROT_ARG_PMC:
                     {
-                        PMC *return_item = (constant) ? accessor->pmc_constant(interp, return_info, return_index)
-                                                    : *accessor->pmc(interp, return_info, return_index);
+                        PMC *return_item = (constant)
+                                         ? accessor->pmc_constant(interp, return_info, return_index)
+                                         : *accessor->pmc(interp, return_info, return_index);
                         if (return_flags & PARROT_ARG_FLATTEN) {
                             INTVAL flat_elems;
                             if (!VTABLE_does(interp, return_item, CONST_STRING(interp, "array"))) {
                                 Parrot_ex_throw_from_c_args(interp, NULL,
-                                        EXCEPTION_INVALID_OPERATION, "flattened return on a non-array");
+                                                            EXCEPTION_INVALID_OPERATION,
+                                                            "flattened return on a non-array");
                             }
                             flat_elems = VTABLE_elements(interp, return_item);
                             if (return_subindex < flat_elems) {
                                 /* fetch an item out of the aggregate */
-                                return_item = VTABLE_get_pmc_keyed_int(interp, return_item, return_subindex);
+                                return_item = VTABLE_get_pmc_keyed_int(interp, return_item,
+                                                                       return_subindex);
                                 return_subindex++;
                             }
                             if (return_subindex >= flat_elems) {


More information about the parrot-commits mailing list