Index: io/io_win32.c
===================================================================
RCS file: /cvs/public/parrot/io/io_win32.c,v
retrieving revision 1.24
diff -u -r1.24 io_win32.c
--- io/io_win32.c 21 Jul 2003 18:00:45 -0000 1.24
+++ io/io_win32.c 31 Jul 2003 11:06:04 -0000
@@ -97,23 +97,23 @@
{
HANDLE h;
if ((h = GetStdHandle(STD_INPUT_HANDLE)) != INVALID_HANDLE_VALUE) {
- PIO_STDIN(interpreter) =
- PIO_win32_fdopen(interpreter, layer, h, PIO_F_READ);
+ PIO_STDIN(interpreter) = new_io_pmc(interpreter,
+ PIO_win32_fdopen(interpreter, layer, h, PIO_F_READ));
}
else {
return -1;
}
if ((h = GetStdHandle(STD_OUTPUT_HANDLE))
!= INVALID_HANDLE_VALUE) {
- PIO_STDOUT(interpreter) =
- PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE);
+ PIO_STDOUT(interpreter) = new_io_pmc(interpreter,
+ PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE));
}
else {
return -2;
}
if ((h = GetStdHandle(STD_ERROR_HANDLE)) != INVALID_HANDLE_VALUE) {
- PIO_STDERR(interpreter) =
- PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE);
+ PIO_STDERR(interpreter) = new_io_pmc(interpreter,
+ PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE));
}
else {
return -3;