cvsuser 02/10/11 02:54:17
Modified: classes csub.pmc
t/pmc intlist.t
Log:
test failure fix
Revision Changes Path
1.2 +5 -2 parrot/classes/csub.pmc
Index: csub.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/csub.pmc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- csub.pmc 4 Aug 2002 22:55:03 -0000 1.1
+++ csub.pmc 11 Oct 2002 09:54:16 -0000 1.2
@@ -1,7 +1,7 @@
/* CSub.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: csub.pmc,v 1.1 2002/08/04 22:55:03 educated_foo Exp $
+ * $Id: csub.pmc,v 1.2 2002/10/11 09:54:16 leo Exp $
* Overview:
* These are the vtable functions for the CSub base class
* Data Structure and Algorithms:
@@ -15,6 +15,9 @@
#include "parrot/method_util.h"
pmclass CSub {
+
+ void init () {
+ }
INTVAL type () {
return enum_class_CSub;
1.5 +2 -1 parrot/t/pmc/intlist.t
Index: intlist.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/intlist.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- intlist.t 11 Oct 2002 07:45:32 -0000 1.4
+++ intlist.t 11 Oct 2002 09:54:17 -0000 1.5
@@ -198,7 +198,8 @@
mod I9, I0, 100
ne I9, 0, lp1
# force GC => 124 DOD + 124 collects / 10^5 accesses
- new P1, .IntList
+ # need .PerlArray here - it auto extends - intlist doesnt
+ new P1, .PerlArray
set P1[I0], I0
concat S0, S1, S1
set S2, S0
