diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2019-06-13 08:24:33 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2019-06-18 13:23:46 +0100 |
| commit | 79c32fc2889bdbdf21cb378e1628a84867a3ffcc (patch) | |
| tree | ecbb746dd8eb95436e40e8455af214e9862ea019 /win32/perlhost.h | |
| parent | fa068f6da2218ae85bae1e26ee7591c15276555f (diff) | |
| download | perl-79c32fc2889bdbdf21cb378e1628a84867a3ffcc.tar.gz | |
The Windows CE Chainsaw Massacre
Remove WinCE support as agreed in the thread starting here:
https://www.nntp.perl.org/group/perl.perl5.porters/2018/07/msg251683.html
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 6dd269efa7..23a85d309f 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -7,16 +7,12 @@ * License or the Artistic License, as specified in the README file. */ -#ifndef UNDER_CE #define CHECK_HOST_INTERP -#endif #ifndef ___PerlHost_H___ #define ___PerlHost_H___ -#ifndef UNDER_CE #include <signal.h> -#endif #include "iperlsys.h" #include "vmem.h" #include "vdir.h" @@ -829,7 +825,6 @@ PerlStdIOGetOSfhandle(struct IPerlStdIO* piPerl, int filenum) FILE* PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) { -#ifndef UNDER_CE FILE* pfdup; fpos_t pos; char mode[3]; @@ -861,9 +856,6 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) fsetpos(pfdup, &pos); } return pfdup; -#else - return 0; -#endif } const struct IPerlStdIO perlStdIO = @@ -2132,10 +2124,6 @@ lookup(const void *arg1, const void *arg2) LPSTR* CPerlHost::Lookup(LPCSTR lpStr) { -#ifdef UNDER_CE - if (!m_lppEnvList || !m_dwEnvCount) - return NULL; -#endif if (!lpStr) return NULL; return (LPSTR*)bsearch(&lpStr, m_lppEnvList, m_dwEnvCount, sizeof(LPSTR), lookup); |