Change 17769: bit more for WinCE

[hv]

Change 17769 by [EMAIL PROTECTED] on 2002/08/25 14:16:50

        Subject: bit more for WinCE
        From: "Vadim Konovalov" <[EMAIL PROTECTED]>
        Date: Wed, 21 Aug 2002 01:31:52 +0400
        Message-ID: <000f01c24891$045c4990$2b5ec3d9@vad>

Affected files ...

.... //depot/perl/wince/Makefile.ce#22 edit
.... //depot/perl/wince/compile.bat#2 edit
.... //depot/perl/wince/win32io.c#2 edit
.... //depot/perl/wince/wince.c#10 edit

Differences ...

==== //depot/perl/wince/Makefile.ce#22 (text) ====
Index: perl/wince/Makefile.ce
--- perl/wince/Makefile.ce#21~17671~    Sat Aug  3 18:11:32 2002
+++ perl/wince/Makefile.ce      Sun Aug 25 07:16:50 2002
@@ -55,8 +55,8 @@
 NULL      =
 
 
-CFG=DEBUG
-#CFG=RELEASE
+#CFG=DEBUG
+CFG=RELEASE
 
 !if "$(MACHINE)" == ""
 MACHINE=wince-arm-hpc-wce300

==== //depot/perl/wince/compile.bat#2 (text) ====
Index: perl/wince/compile.bat
--- perl/wince/compile.bat#1~16407~     Sat May  4 18:05:17 2002
+++ perl/wince/compile.bat      Sun Aug 25 07:16:50 2002
@@ -6,7 +6,7 @@
 
 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-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

==== //depot/perl/wince/win32io.c#2 (text) ====
Index: perl/wince/win32io.c
--- perl/wince/win32io.c#1~16407~       Sat May  4 18:05:17 2002
+++ perl/wince/win32io.c        Sun Aug 25 07:16:50 2002
@@ -53,9 +53,9 @@
 }
 
 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);

==== //depot/perl/wince/wince.c#10 (text) ====
Index: perl/wince/wince.c
--- perl/wince/wince.c#9~16549~ Sat May 11 14:41:11 2002
+++ perl/wince/wince.c  Sun Aug 25 07:16:50 2002
@@ -995,15 +995,15 @@
 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
End of Patch.