cvsuser 03/07/03 05:21:35
Modified: io io.c
. testyamd
Log:
avoid crash with --leak-test & run-yamd
Revision Changes Path
1.42 +11 -5 parrot/io/io.c
Index: io.c
===================================================================
RCS file: /cvs/public/parrot/io/io.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -w -r1.41 -r1.42
--- io.c 3 Jul 2003 07:21:42 -0000 1.41
+++ io.c 3 Jul 2003 12:21:32 -0000 1.42
@@ -1,7 +1,7 @@
/* io.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: io.c,v 1.41 2003/07/03 07:21:42 leo Exp $
+ * $Id: io.c,v 1.42 2003/07/03 12:21:32 leo Exp $
* Overview:
* This is the Parrot IO subsystem API. Generic IO stuff
* goes here, each specific layer goes in its own file...
@@ -154,11 +154,17 @@
fflush(stdout);
fflush(stderr);
+#if 0
+ /* new_io_pmc isn't possible aynmore - mem subsystem is down already */
+
+ /* TODO: close std descriptors */
+
for (i = 0 ; i < PIO_NR_OPEN; i++) {
if ( (io = GET_INTERP_IOD(interpreter)->table[i]) ) {
PIO_close(interpreter, new_io_pmc(interpreter, io));
}
}
+#endif
for (p = GET_INTERP_IO(interpreter); p; ) {
down = p->down;
if (p->api->Delete)
1.3 +1 -1 parrot/testyamd
Index: testyamd
===================================================================
RCS file: /cvs/public/parrot/testyamd,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- testyamd 29 Nov 2002 16:00:57 -0000 1.2
+++ testyamd 3 Jul 2003 12:21:35 -0000 1.3
@@ -16,5 +16,5 @@
print \$1 if (/((?:WARNI|ERROR).*)/);
1;'" > parrot
chmod 755 parrot
-perl t/harness --gc-debug --running-make-test -j quick $@
+perl t/harness --gc-debug --running-make-test -j --leak-test $@
cleanup
