bit more for WinCE

Message-ID: <000f01c24891$045c4990$2b5ec3d9@vad>

p4raw-id: //depot/perl@17769

diff --git a/wince/Makefile.ce b/wince/Makefile.ce
index 6339c10..f31ed98 100644 (file)
--- a/wince/Makefile.ce
+++ b/wince/Makefile.ce
@@ -55,8 +55,8 @@ NOOP     = @echo
 NULL      =
 
 
-CFG=DEBUG
-#CFG=RELEASE
+#CFG=DEBUG
+CFG=RELEASE
 
 !if "$(MACHINE)" == ""
 MACHINE=wince-arm-hpc-wce300

diff --git a/wince/compile.bat b/wince/compile.bat
index 582d422..851c68f 100644 (file)
--- a/wince/compile.bat
+++ b/wince/compile.bat
@@ -6,7 +6,7 @@ rem
 
 set ARG-1=PV=
 set ARG-2=INST_VER=
-set ARG-3=INSTALL_ROOT=\Storage Card\perl-tests\perl@16376
+set ARG-3=INSTALL_ROOT=\Storage Card\perl58
 set ARG-4=WCEROOT=%SDKROOT%
 set ARG-5=CEPATH=%WCEROOT%
 set ARG-6=CELIBDLLDIR=d:\personal\pocketPC\celib-palm-3.0
@@ -20,6 +20,6 @@ set ARG-10=MACHINE=wince-mips-pocket-wce300
 set ARG-11=PERLCEDIR=$(MAKEDIR)
 set ARG-12=MSVCDIR=D:\MSVStudio\VC98
 set ARG-13=CECOPY=$(HPERL) -I$(PERLCEDIR)\lib $(PERLCEDIR)\comp.pl --copy
-set ARG-14=USE_PERLIO=undef
+set ARG-14=
 
 nmake -f Makefile.ce "%ARG-1%" "%ARG-2%" "%ARG-3%" "%ARG-4%" "%ARG-5%" "%ARG-6%" "%ARG-7%" "%ARG-8%" "%ARG-9%" "%ARG-10%" "%ARG-11%" "%ARG-12%" "%ARG-13%" "%ARG-14%" %1 %2 %3 %4 %5 %6 %7 %8 %9

diff --git a/wince/win32io.c b/wince/win32io.c
index 3683490..22a1427 100644 (file)
--- a/wince/win32io.c
+++ b/wince/win32io.c
@@ -53,9 +53,9 @@ PerlIOWin32_fileno(pTHX_ PerlIO *f)
 }
 
 IV
-PerlIOWin32_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg)
+PerlIOWin32_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
 {
- IV code = PerlIOBase_pushed(aTHX_ f,mode,arg);
+ IV code = PerlIOBase_pushed(aTHX_ f,mode,arg,tab);
  if (*PerlIONext(f))
   {
    PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32);

diff --git a/wince/wince.c b/wince/wince.c
index 8aefe6c..16bf2d2 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -995,15 +995,15 @@ win32_eof(int fd)
 DllExport int
 win32_dup(int fd)
 {
-  Perl_croak(aTHX_ PL_no_func, "dup");
-  return -1;
+  //vv Perl_croak(aTHX_ PL_no_func, "dup");
+  return xcedup(fd); // from celib/ceio.c; requires some more work on it.
 }
 
 DllExport int
 win32_dup2(int fd1,int fd2)
 {
-  Perl_croak(aTHX_ PL_no_func, "dup2");
-  return -1;
+  //Perl_croak(aTHX_ PL_no_func, "dup2");
+  return xcedup2(fd1,fd2);
 }
 
 DllExport int