diff options
| -rw-r--r-- | perl.c | 4 | ||||
| -rw-r--r-- | perlio.c | 4 | ||||
| -rw-r--r-- | wince/Makefile.ce | 2 |
3 files changed, 8 insertions, 2 deletions
@@ -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 @@ -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 \ |