if (0) the PL_widesyscalls code for now: Sarathy

should take another look to see whether it is really
safe to remove the code, too.

p4raw-id: //depot/perl@18491

diff --git a/win32/win32.h b/win32/win32.h
index 849f13b..e06049b 100644 (file)
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -444,7 +444,7 @@ DllExport int win32_async_check(pTHX);
                                       lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
 #define W2AHELPER(lpw, lpa, nChars)    W2AHELPER_LEN(lpw, -1, lpa, nChars)
 
                                       lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
 #define W2AHELPER(lpw, lpa, nChars)    W2AHELPER_LEN(lpw, -1, lpa, nChars)
 

-#define USING_WIDE() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)
+#define USING_WIDE() (0)

 
 #ifdef USE_ITHREADS
 #  define PERL_WAIT_FOR_CHILDREN \
 
 #ifdef USE_ITHREADS
 #  define PERL_WAIT_FOR_CHILDREN \

diff --git a/wince/win32.h b/wince/win32.h
index 7d107c6..e116ac1 100644 (file)
--- a/wince/win32.h
+++ b/wince/win32.h
@@ -397,7 +397,7 @@ struct interp_intern {
                                       lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
 #define W2AHELPER(lpw, lpa, nChars)    W2AHELPER_LEN(lpw, -1, lpa, nChars)
 
                                       lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
 #define W2AHELPER(lpw, lpa, nChars)    W2AHELPER_LEN(lpw, -1, lpa, nChars)
 

-#define USING_WIDE() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)
+#define USING_WIDE() (0)

 
 #ifdef USE_ITHREADS
 #  define PERL_WAIT_FOR_CHILDREN \
 
 #ifdef USE_ITHREADS
 #  define PERL_WAIT_FOR_CHILDREN \