From 46124e9ee58ad41479e5b089638f6c263bbddcb7 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 25 Sep 1998 06:27:12 +0000 Subject: bump patchlevel to 52; other little tweaks for threads, win32 builds p4raw-id: //depot/perl@1888 --- win32/Makefile | 2 +- win32/config_H.bc | 28 +++++++++++++++++----------- win32/config_H.gc | 28 +++++++++++++++++----------- win32/config_H.vc | 28 +++++++++++++++++----------- win32/makedef.pl | 1 + win32/makefile.mk | 2 +- win32/win32.c | 7 +++++-- 7 files changed, 59 insertions(+), 37 deletions(-) (limited to 'win32') diff --git a/win32/Makefile b/win32/Makefile index db9824026f..09baef7f70 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -25,7 +25,7 @@ INST_TOP = $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER = \5.00551 +INST_VER = \5.00552 # # uncomment to enable threads-capabilities diff --git a/win32/config_H.bc b/win32/config_H.bc index 71ebeef71e..66567abc27 100644 --- a/win32/config_H.bc +++ b/win32/config_H.bc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -802,11 +802,17 @@ */ #define HAS_WCTOMB /**/ +/* EBCDIC: + * This symbol, if defined, indicates that this system uses + * EBCDIC encoding. + */ +/*#define EBCDIC /**/ + /* I_ARPA_INET: * This symbol, if defined, indicates that exists and should * be included. */ -/*#define I_ARPA_INET /**/ +#define I_ARPA_INET /**/ /* I_DBM: * This symbol, if defined, indicates that exists and should @@ -1788,8 +1794,8 @@ * The last element is 0, corresponding to the 0 at the end of * the sig_name list. */ -#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "USR1", "USR2", "CHLD", "USR3", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/ -#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 25, 18, 0 /**/ +#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "USR1", "USR2", "CHLD", "NUM19", "USR3", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/ +#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 18, 0 /**/ /* VOIDFLAGS: * This symbol indicates how much support of the void type is given by this @@ -1829,7 +1835,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1881,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/ +#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1897,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1913,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/ +#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/config_H.gc b/win32/config_H.gc index e158822388..c35d10e56f 100644 --- a/win32/config_H.gc +++ b/win32/config_H.gc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -802,11 +802,17 @@ */ #define HAS_WCTOMB /**/ +/* EBCDIC: + * This symbol, if defined, indicates that this system uses + * EBCDIC encoding. + */ +/*#define EBCDIC /**/ + /* I_ARPA_INET: * This symbol, if defined, indicates that exists and should * be included. */ -/*#define I_ARPA_INET /**/ +#define I_ARPA_INET /**/ /* I_DBM: * This symbol, if defined, indicates that exists and should @@ -1788,8 +1794,8 @@ * The last element is 0, corresponding to the 0 at the end of * the sig_name list. */ -#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "CHLD", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/ -#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 20, 21, 22, 23, 25, 20, 0 /**/ +#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/ +#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/ /* VOIDFLAGS: * This symbol indicates how much support of the void type is given by this @@ -1829,7 +1835,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1881,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/ +#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1897,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1913,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/ +#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/config_H.vc b/win32/config_H.vc index a816261724..12e49cfe6f 100644 --- a/win32/config_H.vc +++ b/win32/config_H.vc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -802,11 +802,17 @@ */ #define HAS_WCTOMB /**/ +/* EBCDIC: + * This symbol, if defined, indicates that this system uses + * EBCDIC encoding. + */ +/*#define EBCDIC /**/ + /* I_ARPA_INET: * This symbol, if defined, indicates that exists and should * be included. */ -/*#define I_ARPA_INET /**/ +#define I_ARPA_INET /**/ /* I_DBM: * This symbol, if defined, indicates that exists and should @@ -1788,8 +1794,8 @@ * The last element is 0, corresponding to the 0 at the end of * the sig_name list. */ -#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "CHLD", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/ -#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 20, 21, 22, 23, 25, 20, 0 /**/ +#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/ +#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/ /* VOIDFLAGS: * This symbol indicates how much support of the void type is given by this @@ -1829,7 +1835,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1881,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/ +#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1897,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1913,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/ +#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/makedef.pl b/win32/makedef.pl index f86029164e..6336c0c5bc 100644 --- a/win32/makedef.pl +++ b/win32/makedef.pl @@ -216,6 +216,7 @@ unless ($define{'USE_THREADS'}) skip_symbols [qw( PL_thr_key PL_sv_mutex +PL_strtab_mutex PL_svref_mutex PL_malloc_mutex PL_eval_mutex diff --git a/win32/makefile.mk b/win32/makefile.mk index fefb0360db..a7f01f1723 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -29,7 +29,7 @@ INST_TOP *= $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER *= \5.00551 +INST_VER *= \5.00552 # # uncomment to enable threads-capabilities diff --git a/win32/win32.c b/win32/win32.c index 4ec3ee5685..e58af529e8 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -927,10 +927,12 @@ DllExport char * win32_getenv(const char *name) { static char *curitem = Nullch; /* XXX threadead */ - static DWORD curlen = 512; /* XXX threadead */ + static DWORD curlen = 0; /* XXX threadead */ DWORD needlen; - if (!curitem) + if (!curitem) { + curlen = 512; New(1305,curitem,curlen,char); + } needlen = GetEnvironmentVariable(name,curitem,curlen); if (needlen != 0) { @@ -950,6 +952,7 @@ win32_getenv(const char *name) if (curitem) { Safefree(curitem); curitem = Nullch; + curlen = 0; } curitem = GetRegStr(name, &curitem, &curlen); } -- cgit v1.2.1