Make win32 tests pass

include/parrot/io.h

@@ -45,7 +45,7 @@
     Parrot_io_open((interp), (file), (flags))
 #define PIO_OPEN_PIPE(interp, file, flags, pid) \
     Parrot_io_open_pipe((interp), (file), (flags), (pid))
-#define PIO_DUP(interp, handle) (PIOHANDLE)dup((int)(handle))
+#define PIO_DUP(interp, handle) Parrot_io_dup((interp), (handle))
 #define PIO_CLOSE(interp, handle) Parrot_io_close((interp), (handle))
 #define PIO_CLOSE_PIOHANDLE(interp, handle) Parrot_io_close_piohandle((interp), (handle))
 #define PIO_PIPE_WAIT(interp, pid) Parrot_io_waitpid((interp), (pid))

include/parrot/platform_interface.h

@@ -62,7 +62,8 @@ typedef off_t PIOOFF_T;
 
 PIOHANDLE Parrot_io_std_os_handle(PARROT_INTERP, INTVAL fileno);
 PIOHANDLE Parrot_io_open(PARROT_INTERP, ARGIN(STRING *path), INTVAL flags);
-INTVAL Parrot_io_close(PARROT_INTERP, PIOHANDLE file_descriptor);
+PIOHANDLE Parrot_io_dup(PARROT_INTERP, PIOHANDLE handle);
+INTVAL Parrot_io_close(PARROT_INTERP, PIOHANDLE handle);
 INTVAL Parrot_io_close_piohandle(PARROT_INTERP, PIOHANDLE handle);
 INTVAL Parrot_io_waitpid(PARROT_INTERP, INTVAL pid);
 INTVAL Parrot_io_is_tty(PARROT_INTERP, PIOHANDLE fd);

src/platform/generic/io.c

@@ -175,6 +175,23 @@ Parrot_io_open(PARROT_INTERP, ARGIN(STRING *path), INTVAL flags)
     return fd;
 }
 
+/*
+
+=item C<PIOHANDLE Parrot_io_dup(PARROT_INTERP, PIOHANDLE handle)>
+
+Duplicates file handle C<handle>.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+PIOHANDLE
+Parrot_io_dup(PARROT_INTERP, PIOHANDLE handle)
+{
+    return dup(handle);
+}
+
 #if PARROT_ASYNC_DEVEL
 
 /*