cvsuser 04/05/03 05:29:02
Modified: . CREDITS
src extend.c
Log:
anchor overflow array immediately
Revision Changes Path
1.22 +6 -0 parrot/CREDITS
Index: CREDITS
===================================================================
RCS file: /cvs/public/parrot/CREDITS,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- CREDITS 28 Apr 2004 21:39:56 -0000 1.21
+++ CREDITS 3 May 2004 12:28:58 -0000 1.22
@@ -184,6 +184,9 @@
N: Peter Gibbs
D: String subsystem
+N: Philip Taylor
+D: Win32 ICC support
+
N: Piers Cawley
D: The Second Perl 6 Summarizer after Bryan C. Warnock
E: [EMAIL PROTECTED]
@@ -196,6 +199,9 @@
N: Sean O'Rourke
D: Original Perl6 compiler
+
+N: Ron Blaschke
+D: Win32 patches
N: Simon Cozens
D: Release pumpking for 0.0.1-0.0.4
1.26 +3 -4 parrot/src/extend.c
Index: extend.c
===================================================================
RCS file: /cvs/public/parrot/src/extend.c,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -w -r1.25 -r1.26
--- extend.c 9 Apr 2004 20:32:43 -0000 1.25
+++ extend.c 3 May 2004 12:29:02 -0000 1.26
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: extend.c,v 1.25 2004/04/09 20:32:43 dan Exp $
+$Id: extend.c,v 1.26 2004/05/03 12:29:02 leo Exp $
=head1 NAME
@@ -537,13 +537,12 @@
/* Nope, so we need an overflow array */
Parrot_PMC overflow;
Parrot_Int ocount;
- overflow = Parrot_PMC_new(interpreter,
+ REG_PMC(3) = overflow = Parrot_PMC_new(interpreter,
Parrot_PMC_typenum(interpreter, "Array"));
Parrot_PMC_set_intval(interpreter, overflow, argcount - 11);
for (inreg = 0; inreg < 11; inreg++) {
REG_PMC(inreg + 5) = va_arg(ap, Parrot_PMC);
}
- REG_PMC(3) = overflow;
for (ocount = 0; ocount < argcount - 11; ocount++) {
VTABLE_set_pmc_keyed_int(interpreter, overflow, ocount,
(Parrot_PMC)va_arg(ap, Parrot_PMC));
