WinCE tweaks from Vadim Konovalov.

p4raw-id: //depot/perl@18935

diff --git a/perl.c b/perl.c
index b8598f5..3536850 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2504,8 +2504,8 @@ Perl_moreswitches(pTHX_ char *s)
                      "EPOC port by Olaf Flebbe, 1999-2002\n");
 #endif
 #ifdef UNDER_CE
-       printf("WINCE port by Rainer Keuchel, 2001-2002\n");
-       printf("Built on " __DATE__ " " __TIME__ "\n\n");
+       PerlIO_printf(PerlIO_stdout(),"WINCE port by Rainer Keuchel, 2001-2002\n");
+       PerlIO_printf(PerlIO_stdout(),"Built on " __DATE__ " " __TIME__ "\n\n");
        wce_hitreturn();
 #endif
 #ifdef BINARY_BUILD_NOTICE

diff --git a/perlio.c b/perlio.c
index 9cb12d0..1cd8bab 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2768,6 +2768,10 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
 #  elif defined(WIN32)
 #    if defined(__BORLANDC__)
     f->fd = PerlLIO_dup(fileno(f));
+#    elif defined(UNDER_CE)
+    /* WIN_CE does not have access to FILE internals, it hardly has FILE
+       structure at all
+     */
 #    else
     f->_file = -1;
 #    endif

diff --git a/wince/Makefile.ce b/wince/Makefile.ce
index 2771bcc..9a0018a 100644 (file)
--- a/wince/Makefile.ce
+++ b/wince/Makefile.ce
@@ -545,6 +545,7 @@ MICROCORE_SRC       =               \
                ..\hv.c         \
                ..\mg.c         \
                ..\op.c         \
+               ..\pad.c        \
                ..\perl.c       \
                ..\perlapi.c    \
                ..\perly.c      \
@@ -1004,6 +1005,7 @@ $(DLLDIR)\locale.obj \
 $(DLLDIR)\mg.obj \
 $(DLLDIR)\numeric.obj \
 $(DLLDIR)\op.obj \
+$(DLLDIR)\pad.obj \
 $(DLLDIR)\perl.obj \
 $(DLLDIR)\perlapi.obj \
 $(DLLDIR)\perlio.obj \