cvsuser 04/08/22 02:00:47
Modified: . CREDITS
src utils.c
Log:
remove old and wrong TODO comment; update CREDITS
Revision Changes Path
1.28 +1 -1 parrot/CREDITS
Index: CREDITS
===================================================================
RCS file: /cvs/public/parrot/CREDITS,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -w -r1.27 -r1.28
--- CREDITS 7 Aug 2004 11:32:57 -0000 1.27
+++ CREDITS 22 Aug 2004 09:00:46 -0000 1.28
@@ -159,7 +159,7 @@
D: URM language, bugfixes
N: Mattia Barbon
-D: Win32 fixes
+D: Win32 fixes, dynamic PMC creation and loading
N: Melvin Smith
D: Parrot core, various ops, IO, subs, continuations, COW stacks
1.14 +1 -7 parrot/src/utils.c
Index: utils.c
===================================================================
RCS file: /cvs/public/parrot/src/utils.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- utils.c 23 Apr 2004 09:21:13 -0000 1.13
+++ utils.c 22 Aug 2004 09:00:47 -0000 1.14
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: utils.c,v 1.13 2004/04/23 09:21:13 jrieks Exp $
+$Id: utils.c,v 1.14 2004/08/22 09:00:47 leo Exp $
=head1 NAME
@@ -118,10 +118,6 @@
Take all the PMCs in register P3, starting at offset C<skip> and return
them in an C<Array> PMC.
-TODO - IMCC and PDD 3 aren't yet in conformance. This uses the current
-IMCC setup, but should be changed as soon as IMCC modified to the
-correct calling conventions.
-
=cut
*/
@@ -129,7 +125,6 @@
PMC*
foldup(Parrot_Interp interpreter, INTVAL skip)
{
- /* Should be I3 when we're done */
INTVAL max_used_reg = REG_INT(3) + 5;
INTVAL reg;
INTVAL elems_in_array = 0;
@@ -147,7 +142,6 @@
VTABLE_type(interpreter, overflow) != enum_class_Null) {
elems_in_array = VTABLE_get_integer(interpreter, overflow);
}
- /* XXX This needs fixing when IMCC does calling conventions right */
total_size = REG_INT(3) + elems_in_array - skip;
VTABLE_set_integer_native(interpreter, destination_pmc, total_size);
