Author: tewk
Date: Sun Mar 25 15:43:50 2007
New Revision: 17744
Modified:
trunk/include/parrot/inter_call.h
trunk/src/inter_call.c
trunk/src/pmc/class.pmc
trunk/src/pmc/role.pmc
Log:
Removed eol whitespace
Modified: trunk/include/parrot/inter_call.h
==============================================================================
--- trunk/include/parrot/inter_call.h (original)
+++ trunk/include/parrot/inter_call.h Sun Mar 25 15:43:50 2007
@@ -1,7 +1,7 @@
/* inter_call.h
* Copyright (C) 2001-2003, The Perl Foundation.
* SVN Info
- * $Id$
+ *Id: inter_call.h 17714 2007-03-24 17:04:39Z tewk
* Overview:
* Data Structure and Algorithms:
* Call argument handling.
@@ -144,7 +144,7 @@
PMC* set_retval_p(Interp*, int sig_ret, parrot_context_t *ctx);
/* PMC Method Invoke */
-PARROT_API void Parrot_PCCINVOKE(Interp* interp, PMC* pmc, STRING
*method_name,
+PARROT_API void Parrot_PCCINVOKE(Interp* interp, PMC* pmc, STRING *method_name,
const char *signature, ... );
#define ASSERT_SIG_PMC(sig) \
Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c (original)
+++ trunk/src/inter_call.c Sun Mar 25 15:43:50 2007
@@ -1321,7 +1321,7 @@
PMC* ret_cont = new_ret_continuation_pmc(interp, NULL);
parrot_context_t *ctx;
PMC* pccinvoke_meth;
-
+
opcode_t* save_current_args;
PMC* save_args_signature;
PMC* save_current_object;
@@ -1347,9 +1347,9 @@
seen_arrow = 1 ;
}
else if (isupper(*x)) {
- /* calculate needed length of arg and result sig FIAs */
+ /* calculate needed length of arg and result sig FIAs */
arg_ret_cnt[seen_arrow]++;
- /* calculate max reg types (INSP) needed in context */
+ /* calculate max reg types (INSP) needed in context */
switch (*x) {
case 'I': max_regs[seen_arrow * 4 + 0]++; break;
case 'N': max_regs[seen_arrow * 4 + 1]++; break;
@@ -1381,7 +1381,7 @@
n_regs_used[3] = 0;
- /* second loop through signature to build all index and arg_flag
+ /* second loop through signature to build all index and arg_flag
* loop also assigns args(up to the ->) to registers */
index = -1;
seen_arrow = 0;
@@ -1392,7 +1392,7 @@
ret_x = x; /* allows us to jump directly to the result signature
portion during
results assignment */
ret_x++; /* save off pointer to results */
-
+
if (index >= 0) {
commit_last_arg(interp, index, cur, n_regs_used, seen_arrow,
sigs, indexes, ctx,
&list);
@@ -1444,7 +1444,7 @@
commit_last_arg(interp, index, cur, n_regs_used, seen_arrow, sigs,
indexes, ctx,
&list);
}
-
+
/* code from PCCINVOKE impl in PCCMETHOD.pm */
save_current_args = interp->current_args;
save_args_signature = interp->args_signature;
@@ -1464,12 +1464,12 @@
pccinvoke_meth = VTABLE_find_method(interp, pmc, method_name);
if (!pccinvoke_meth) {
real_exception(interp, NULL, METH_NOT_FOUND, "Method '%Ss' not found",
method_name);
- }
+ }
else {
VTABLE_invoke(interp, pccinvoke_meth, NULL);
}
- /* result_accessors, perform the arg accessor function,
+ /* result_accessors, perform the arg accessor function,
* assigning the corresponding registers to the result variables */
index = 0;
seen_arrow = 1;
@@ -1480,11 +1480,11 @@
STRING **tmpSTRING;
PMC **tmpPMC;
switch (cur & PARROT_ARG_TYPE_MASK) {
- case 'I':
+ case 'I':
tmpINTVAL = va_arg(list, INTVAL*);
*tmpINTVAL = CTX_REG_INT(ctx, indexes[seen_arrow][index]);
break;
- case 'N':
+ case 'N':
tmpFLOATVAL = va_arg(list, FLOATVAL*);
*tmpFLOATVAL = CTX_REG_NUM(ctx,
indexes[seen_arrow][index]);
break;
@@ -1492,7 +1492,7 @@
tmpSTRING = va_arg(list, STRING**);
*tmpSTRING = CTX_REG_STR(ctx, indexes[seen_arrow][index]);
break;
- case 'P':
+ case 'P':
tmpPMC = va_arg(list, PMC**);
*tmpPMC = CTX_REG_PMC(ctx, indexes[seen_arrow][index]);
break;
Modified: trunk/src/pmc/class.pmc
==============================================================================
--- trunk/src/pmc/class.pmc (original)
+++ trunk/src/pmc/class.pmc Sun Mar 25 15:43:50 2007
@@ -260,10 +260,10 @@
}
/* Set name and type. */
- VTABLE_set_string_keyed_str(interp, new_attribute,
+ VTABLE_set_string_keyed_str(interp, new_attribute,
CONST_STRING(interp, "name"), attribute_name);
if (got_type) {
- VTABLE_set_string_keyed_str(interp, new_attribute,
+ VTABLE_set_string_keyed_str(interp, new_attribute,
CONST_STRING(interp, "type"), attribute_type);
}
@@ -486,7 +486,7 @@
if (VTABLE_get_pmc_keyed_int(interp, class->roles, i) == role)
return;
}
-
+
/* Get the methods from the role. */
(PMC *methods) = PCCINVOKE(interp, role, "methods");
if (PMC_IS_NULL(methods))
@@ -505,7 +505,7 @@
/* Need to find the name we'll check for a conflict on. */
STRING *check_name = method_name;
-
+
/* Ignore if it's in the exclude list. */
if (got_without) {
int without_count = VTABLE_elements(interp, without);
Modified: trunk/src/pmc/role.pmc
==============================================================================
--- trunk/src/pmc/role.pmc (original)
+++ trunk/src/pmc/role.pmc Sun Mar 25 15:43:50 2007
@@ -147,10 +147,10 @@
PMC *new_attribute = pmc_new(interp, enum_class_Hash);
/* Set name and type. */
- VTABLE_set_string_keyed_str(interp, new_attribute,
+ VTABLE_set_string_keyed_str(interp, new_attribute,
CONST_STRING(interp, "name"), attribute_name);
if (got_type) {
- VTABLE_set_string_keyed_str(interp, new_attribute,
+ VTABLE_set_string_keyed_str(interp, new_attribute,
CONST_STRING(interp, "type"), attribute_type);
}
