WinCE tweaks from Vadim Konovalov.

p4raw-id: //depot/perl@18935

3 files changed, 8 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index b8598f5c11..35368503ae 100644
--- 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 9cb12d0e60..1cd8baba2a 100644
--- 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 2771bcc36a..9a0018a20a 100644
--- 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 \