Author: particle
Date: Mon Dec 8 19:54:22 2008
New Revision: 33691
Modified:
branches/pdd22io_part2/compilers/imcc/parser_util.c
branches/pdd22io_part2/languages/perl6/src/classes/Object.pir
branches/pdd22io_part2/src/embed.c
branches/pdd22io_part2/src/ops/io.ops
Log:
[CAGE] codingstd fixups
Modified: branches/pdd22io_part2/compilers/imcc/parser_util.c
==============================================================================
--- branches/pdd22io_part2/compilers/imcc/parser_util.c (original)
+++ branches/pdd22io_part2/compilers/imcc/parser_util.c Mon Dec 8 19:54:22 2008
@@ -225,13 +225,15 @@
if (args[i]->type & (VTCONST|VT_CONSTP)) {
#if IMC_TRACE_HIGH
- Parrot_io_eprintf(NULL, " (%cc)%s", tolower((unsigned
char)args[i]->set), args[i]->name);
+ Parrot_io_eprintf(NULL, " (%cc)%s",
+ tolower((unsigned char)args[i]->set), args[i]->name);
#endif
*dest++ = 'c';
}
#if IMC_TRACE_HIGH
else
- Parrot_io_eprintf(NULL, " (%c)%s", tolower((unsigned
char)args[i]->set), args[i]->name);
+ Parrot_io_eprintf(NULL, " (%c)%s",
+ tolower((unsigned char)args[i]->set), args[i]->name);
#endif
}
*dest = '\0';
Modified: branches/pdd22io_part2/languages/perl6/src/classes/Object.pir
==============================================================================
--- branches/pdd22io_part2/languages/perl6/src/classes/Object.pir
(original)
+++ branches/pdd22io_part2/languages/perl6/src/classes/Object.pir Mon Dec
8 19:54:22 2008
@@ -509,7 +509,7 @@
# Get all possible methods.
.local pmc methods
methods = self.'!MANY_DISPATCH_HELPER'(method_name, pos_args, named_args)
-
+
# Do we have any?
$I0 = elements methods
if $I0 goto invoke
@@ -619,7 +619,7 @@
# If we're here, found a method. But is it a multi?
$I0 = isa cur_meth, "Perl6MultiSub"
if $I0 goto multi_dispatch
-
+
# Single dispatch - add to the result list.
push result_list, cur_meth
goto mro_loop
Modified: branches/pdd22io_part2/src/embed.c
==============================================================================
--- branches/pdd22io_part2/src/embed.c (original)
+++ branches/pdd22io_part2/src/embed.c Mon Dec 8 19:54:22 2008
@@ -1059,10 +1059,12 @@
}
}
- Parrot_io_printf(interp, "%012i-%012i", op_code_seq_num, line->opcode
- interp->code->base.data);
+ Parrot_io_printf(interp, "%012i-%012i",
+ op_code_seq_num, line->opcode - interp->code->base.data);
if (debugs)
- Parrot_io_printf(interp, " %06i: ",
interp->code->debugs->base.data[op_code_seq_num]);
+ Parrot_io_printf(interp, " %06i: ",
+ interp->code->debugs->base.data[op_code_seq_num]);
/* If it has a label print it */
if (line->label)
Modified: branches/pdd22io_part2/src/ops/io.ops
==============================================================================
--- branches/pdd22io_part2/src/ops/io.ops (original)
+++ branches/pdd22io_part2/src/ops/io.ops Mon Dec 8 19:54:22 2008
@@ -1,5 +1,6 @@
/*
* $Id$
+ * Copyright (C) 2002-2008, The Perl Foundation.
** io.ops
*/
