diff options
| -rw-r--r-- | win32/Makefile | 2 | ||||
| -rw-r--r-- | win32/makefile.mk | 2 | ||||
| -rw-r--r-- | win32/win32.c | 26 | ||||
| -rw-r--r-- | win32/win32.h | 1 | ||||
| -rw-r--r-- | win32/wince.c | 8 |
5 files changed, 2 insertions, 37 deletions
diff --git a/win32/Makefile b/win32/Makefile index c2e500fe56..afe95fde7c 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -364,7 +364,7 @@ ARCHNAME = $(ARCHNAME)-thread # version of 8.x can.) !IF "$(CCTYPE)" == "MSVC60" || "$(CCTYPE)" == "MSVC70" || \ "$(CCTYPE)" == "MSVC80" || "$(CCTYPE)" == "MSVC80FREE" -DELAYLOAD = -DELAYLOAD:ws2_32.dll -DELAYLOAD:shell32.dll delayimp.lib +DELAYLOAD = -DELAYLOAD:ws2_32.dll delayimp.lib !ENDIF # Visual C++ 2005 (VC++ 8.x) creates manifest files for EXEs and DLLs. These diff --git a/win32/makefile.mk b/win32/makefile.mk index 9e01c98792..35a5c5cb2f 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -363,7 +363,7 @@ ARCHNAME !:= $(ARCHNAME)-thread # version of 8.x can.) .IF "$(CCTYPE)" == "MSVC60" || "$(CCTYPE)" == "MSVC70" \ "$(CCTYPE)" == "MSVC80" || "$(CCTYPE)" == "MSVC80FREE" -DELAYLOAD *= -DELAYLOAD:ws2_32.dll -DELAYLOAD:shell32.dll delayimp.lib +DELAYLOAD *= -DELAYLOAD:ws2_32.dll delayimp.lib .ENDIF # Visual C++ 2005 (VC++ 8.x) creates manifest files for EXEs and DLLs. These diff --git a/win32/win32.c b/win32/win32.c index 21be48c032..1c6c17e4c8 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -60,13 +60,6 @@ typedef struct { #include "EXTERN.h" #include "perl.h" -/* GCC-2.95.2/Mingw32-1.1 forgot the WINAPI on CommandLineToArgvW() */ -#if defined(__MINGW32__) && (__MINGW32_MAJOR_VERSION==1) -# include <shellapi.h> -#else -EXTERN_C LPWSTR* WINAPI CommandLineToArgvW(LPCWSTR lpCommandLine, int * pNumArgs); -#endif - #define NO_XSLOCKS #define PERL_NO_GET_CONTEXT #include "XSUB.h" @@ -4986,22 +4979,3 @@ win32_free_argvw(pTHX_ void *ptr) *argv++ = Nullch; } } - -void -win32_argv2utf8(int argc, char** argv) -{ - dTHX; - char* psz; - int length, wargc; - LPWSTR* lpwStr = CommandLineToArgvW(GetCommandLineW(), &wargc); - if (lpwStr && argc) { - while (argc--) { - length = WideCharToMultiByte(CP_UTF8, 0, lpwStr[--wargc], -1, NULL, 0, NULL, NULL); - Newxz(psz, length, char); - WideCharToMultiByte(CP_UTF8, 0, lpwStr[wargc], -1, psz, length, NULL, NULL); - argv[argc] = psz; - } - call_atexit(win32_free_argvw, argv); - } - GlobalFree((HGLOBAL)lpwStr); -} diff --git a/win32/win32.h b/win32/win32.h index f6b5e3e559..224c657507 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -342,7 +342,6 @@ extern char * win32_get_sitelib(const char *pl); extern char * win32_get_vendorlib(const char *pl); extern int IsWin95(void); extern int IsWinNT(void); -extern void win32_argv2utf8(int argc, char** argv); #ifdef PERL_IMPLICIT_SYS extern void win32_delete_internal_host(void *h); diff --git a/win32/wince.c b/win32/wince.c index 846a33b800..f5736b30b0 100644 --- a/win32/wince.c +++ b/win32/wince.c @@ -2844,14 +2844,6 @@ win32_free_argvw(pTHX_ void *ptr) } } -void -win32_argv2utf8(int argc, char** argv) -{ - /* do nothing, since we're not aware of command line arguments - * currently ... - */ -} - #if 0 void Perl_sys_intern_clear(pTHX) |