develooper Front page | perl.vmsperl | Postings from May 2002

[PATCH] VMS iThreads follow-up

Thread Next
From:
Craig A. Berry
Date:
May 20, 2002 19:34
Subject:
[PATCH] VMS iThreads follow-up
Message ID:
a05111700b90f5f1c3b01@[172.16.52.1]
This fixes up some things that weren't quite right in my patch of 
yesterday (#s 16701, 16704).  I had misunderstood the prototyping 
model and also not remembered that we have our own localtime() and 
gmtime().  The latter will get whatever thread reentrancy they have 
from the pTHX_/aTHX_ model rather than anything the C library does. 
There is no effect on the test suite.

--- configure.com;-0    Sun May 19 22:25:04 2002
+++ configure.com       Mon May 20 14:00:52 2002
@@ -5510,6 +5510,7 @@
 $ WC "i8size='" + i8size + "'"
 $ WC "i8type='" + i8type + "'"
 $ WC "i_arpainet='undef'"
+$ WC "i_crypt='undef'"
 $ WC "i_dbm='undef'"
 $ WC "i_dirent='" + i_dirent + "'"
 $ WC "i_dlfcn='undef'"
@@ -5800,29 +5801,24 @@
 $!
 $ IF use_threads .AND. vms_ver .GES. "7.2"
 $ THEN
-$   WC "asctime_r_proto='1'"
+$   WC "asctime_r_proto='REENTRANT_PROTO_B_SB'"
 $   WC "d_asctime_r='define'"
+$   WC "ctime_r_proto='REENTRANT_PROTO_B_SB'"
 $   WC "d_ctime_r='define'"
-$   WC "d_gmtime_r='define'"
-$   WC "d_localtime_r='define'"
 $ ELSE
 $   WC "asctime_r_proto='0'"
 $   WC "d_asctime_r='undef'"
+$   WC "ctime_r_proto='0'"
 $   WC "d_ctime_r='undef'"
-$   WC "d_gmtime_r='undef'"
-$   WC "d_localtime_r='undef'"
 $ ENDIF
 $ IF use_threads .AND. vms_ver .GES. "7.3-1"
 $ THEN
+$   WC "readdir_r_proto='REENTRANT_PROTO_I_TSR'"
 $   WC "d_readdir_r='define'"
-$   WC "readdir64_r_proto='1'"
 $ ELSE
+$   WC "readdir_r_proto='0'"
 $   WC "d_readdir_r='undef'"
-$   WC "readdir64_r_proto='0'"
 $ ENDIF
-$ WC "crypt_r_proto='0'"
-$ WC "ctermid_r_proto='0'"
-$ WC "ctime_r_proto='0'"
 $ WC "d_crypt_r='undef'"
 $ WC "d_ctermid_r='undef'"
 $ WC "d_drand48_r='undef'"
@@ -5852,6 +5848,8 @@
 $ WC "d_getservbyport_r='undef'"
 $ WC "d_getservent_r='undef'"
 $ WC "d_getspnam_r='undef'"
+$ WC "d_gmtime_r='undef'"      ! leave undef'd; we use my_gmtime
+$ WC "d_localtime_r='undef'"   ! leave undef'd; we use my_localtime
 $ WC "d_random_r='undef'"
 $ WC "d_readdir64_r='undef'"
 $ WC "d_setgrent_r='undef'"
@@ -5866,6 +5864,8 @@
 $ WC "d_strerror_r='undef'"
 $ WC "d_tmpnam_r='undef'"
 $ WC "d_ttyname_r='undef'"
+$ WC "ctermid_r_proto='0'"
+$ WC "crypt_r_proto='0'"
 $ WC "drand48_r_proto='0'"
 $ WC "endgrent_r_proto='0'"
 $ WC "endhostent_r_proto='0'"
@@ -5894,9 +5894,9 @@
 $ WC "getservent_r_proto='0'"
 $ WC "getspnam_r_proto='0'"
 $ WC "gmtime_r_proto='0'"
-$ WC "i_crypt='undef'"
 $ WC "localtime_r_proto='0'"
 $ WC "random_r_proto='0'"
+$ WC "readdir64_r_proto='0'"
 $ WC "setgrent_r_proto='0'"
 $ WC "sethostent_r_proto='0'"
 $ WC "setlocale_r_proto='0'"
[end of patch]

-- 
________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About