From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Mar 2003 22:00:54 +0000 (+0000)
Subject: WinCE tweaks from Vadim Konovalov.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b475b3e6a1638a2b29a69388e329b434337632a8;p=p5sagit%2Fp5-mst-13.2.git

WinCE tweaks from Vadim Konovalov.

p4raw-id: //depot/perl@18935
---

diff --git a/perl.c b/perl.c
index b8598f5..3536850 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 9cb12d0..1cd8bab 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 2771bcc..9a0018a 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 \