summaryrefslogtreecommitdiff
path: root/wince
diff options
context:
space:
mode:
authorVadim Konovalov <vkonovalov@lucent.com>2002-08-21 05:31:52 +0400
committerhv <hv@crypt.org>2002-08-25 14:16:50 +0000
commitaebd5ec7dc06344c5afdd73f107cf8809e9e60e1 (patch)
treeac26818d4cf9f01182349cff6da121d978e00a1a /wince
parent57797241ccfef1581e6f5bbaa0c50d7faa89b290 (diff)
downloadperl-aebd5ec7dc06344c5afdd73f107cf8809e9e60e1.tar.gz
bit more for WinCE
Message-ID: <000f01c24891$045c4990$2b5ec3d9@vad> p4raw-id: //depot/perl@17769
Diffstat (limited to 'wince')
-rw-r--r--wince/Makefile.ce4
-rw-r--r--wince/compile.bat4
-rw-r--r--wince/win32io.c4
-rw-r--r--wince/wince.c8
4 files changed, 10 insertions, 10 deletions
diff --git a/wince/Makefile.ce b/wince/Makefile.ce
index 6339c10b3c..f31ed989b7 100644
--- 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 582d422e81..851c68fb06 100644
--- 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 3683490ac4..22a142749b 100644
--- 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 8aefe6ca17..16bf2d2990 100644
--- 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