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/perllib.c | |
| 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/perllib.c')
| -rw-r--r-- | win32/perllib.c | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 246f67aa1a..755477c63a 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -44,9 +44,6 @@ xs_init(pTHX) #ifdef PERL_IMPLICIT_SYS -/* WINCE: include replaced by: -extern "C" void win32_checkTLS(PerlInterpreter *host_perl); -*/ #include "perlhost.h" void @@ -55,45 +52,10 @@ win32_checkTLS(PerlInterpreter *host_perl) dTHX; if (host_perl != my_perl) { int *nowhere = NULL; -#ifdef UNDER_CE - printf(" ... bad in win32_checkTLS\n"); - printf(" %08X ne %08X\n",host_perl,my_perl); -#endif abort(); } } -#ifdef UNDER_CE -int GetLogicalDrives() { - return 0; /* no logical drives on CE */ -} -int GetLogicalDriveStrings(int size, char addr[]) { - return 0; /* no logical drives on CE */ -} -/* TBD */ -DWORD GetFullPathNameA(LPCSTR fn, DWORD blen, LPTSTR buf, LPSTR *pfile) { - return 0; -} -/* TBD */ -DWORD GetFullPathNameW(CONST WCHAR *fn, DWORD blen, WCHAR * buf, WCHAR **pfile) { - return 0; -} -/* TBD */ -DWORD SetCurrentDirectoryA(LPSTR pPath) { - return 0; -} -/* TBD */ -DWORD SetCurrentDirectoryW(CONST WCHAR *pPath) { - return 0; -} -int xcesetuid(uid_t id){return 0;} -int xceseteuid(uid_t id){ return 0;} -int xcegetuid() {return 0;} -int xcegeteuid(){ return 0;} -#endif - -/* WINCE??: include "perlhost.h" */ - EXTERN_C void perl_get_host_info(struct IPerlMemInfo* perlMemInfo, struct IPerlMemInfo* perlMemSharedInfo, @@ -287,9 +249,7 @@ DllMain(HINSTANCE hModule, /* DLL module handle */ * initialization or a call to LoadLibrary. */ case DLL_PROCESS_ATTACH: -#ifndef UNDER_CE DisableThreadLibraryCalls((HMODULE)hModule); -#endif w32_perldll_handle = hModule; set_w32_module_name(); |