Change 11293 by jhi@alpha on 2001/07/12 04:58:08
Retract #11289.
Affected files ...
... //depot/perl/embed.h#274 edit
... //depot/perl/embed.pl#258 edit
... //depot/perl/perl.c#347 edit
... //depot/perl/proto.h#319 edit
... //depot/perl/thread.h#75 edit
Differences ...
==== //depot/perl/embed.h#274 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Wed Jul 11 23:00:05 2001
+++ perl/embed.h Wed Jul 11 23:00:05 2001
@@ -73,8 +73,6 @@
#define append_list Perl_append_list
#define apply Perl_apply
#define apply_attrs_string Perl_apply_attrs_string
-#define atfork_lock Perl_atfork_lock
-#define atfork_unlock Perl_atfork_unlock
#define avhv_delete_ent Perl_avhv_delete_ent
#define avhv_exists_ent Perl_avhv_exists_ent
#define avhv_fetch_ent Perl_avhv_fetch_ent
@@ -1606,8 +1604,6 @@
#define append_list(a,b,c) Perl_append_list(aTHX_ a,b,c)
#define apply(a,b,c) Perl_apply(aTHX_ a,b,c)
#define apply_attrs_string(a,b,c,d) Perl_apply_attrs_string(aTHX_ a,b,c,d)
-#define atfork_lock(a) Perl_atfork_lock(aTHX_ a)
-#define atfork_unlock(a) Perl_atfork_unlock(aTHX_ a)
#define avhv_delete_ent(a,b,c,d) Perl_avhv_delete_ent(aTHX_ a,b,c,d)
#define avhv_exists_ent(a,b,c) Perl_avhv_exists_ent(aTHX_ a,b,c)
#define avhv_fetch_ent(a,b,c,d) Perl_avhv_fetch_ent(aTHX_ a,b,c,d)
@@ -3120,10 +3116,6 @@
#define apply Perl_apply
#define Perl_apply_attrs_string CPerlObj::Perl_apply_attrs_string
#define apply_attrs_string Perl_apply_attrs_string
-#define Perl_atfork_lock CPerlObj::Perl_atfork_lock
-#define atfork_lock Perl_atfork_lock
-#define Perl_atfork_unlock CPerlObj::Perl_atfork_unlock
-#define atfork_unlock Perl_atfork_unlock
#define Perl_avhv_delete_ent CPerlObj::Perl_avhv_delete_ent
#define avhv_delete_ent Perl_avhv_delete_ent
#define Perl_avhv_exists_ent CPerlObj::Perl_avhv_exists_ent
==== //depot/perl/embed.pl#258 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl.~1~ Wed Jul 11 23:00:05 2001
+++ perl/embed.pl Wed Jul 11 23:00:05 2001
@@ -1399,8 +1399,6 @@
p |OP* |append_list |I32 optype|LISTOP* first|LISTOP* last
p |I32 |apply |I32 type|SV** mark|SV** sp
Ap |void |apply_attrs_string|char *stashpv|CV *cv|char *attrstr|STRLEN len
-p |void |atfork_lock
-p |void |atfork_unlock
Ap |SV* |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
Ap |bool |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
Ap |SV** |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
==== //depot/perl/perl.c#347 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Wed Jul 11 23:00:05 2001
+++ perl/perl.c Wed Jul 11 23:00:05 2001
@@ -61,7 +61,7 @@
/* this is called in parent before the fork() */
void
-Perl_atfork_lock(pTHX)
+Perl_atfork_lock(void)
{
/* locks must be held in locking order (if any) */
#ifdef MYMALLOC
@@ -72,7 +72,7 @@
/* this is called in both parent and child after the fork() */
void
-Perl_atfork_unlock(pTHX)
+Perl_atfork_unlock(void)
{
/* locks must be released in same order as in S_atfork_lock() */
#ifdef MYMALLOC
==== //depot/perl/proto.h#319 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Wed Jul 11 23:00:05 2001
+++ perl/proto.h Wed Jul 11 23:00:05 2001
@@ -63,8 +63,6 @@
PERL_CALLCONV OP* Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP*
last);
PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV** mark, SV** sp);
PERL_CALLCONV void Perl_apply_attrs_string(pTHX_ char *stashpv, CV *cv, char
*attrstr, STRLEN len);
-PERL_CALLCONV void Perl_atfork_lock(pTHX_ void);
-PERL_CALLCONV void Perl_atfork_unlock(pTHX_ void);
PERL_CALLCONV SV* Perl_avhv_delete_ent(pTHX_ AV *ar, SV* keysv, I32 flags, U32
hash);
PERL_CALLCONV bool Perl_avhv_exists_ent(pTHX_ AV *ar, SV* keysv, U32 hash);
PERL_CALLCONV SV** Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32
hash);
==== //depot/perl/thread.h#75 (text) ====
Index: perl/thread.h
--- perl/thread.h.~1~ Wed Jul 11 23:00:05 2001
+++ perl/thread.h Wed Jul 11 23:00:05 2001
@@ -303,11 +303,8 @@
#endif
#ifndef PTHREAD_ATFORK
-typedef void(*Perl_pthread_atfork_t)(void);
# define PTHREAD_ATFORK(prepare,parent,child) \
- pthread_atfork((Perl_pthread_atfork_t)prepare,\
- (Perl_pthread_atfork_t)parent,\
- (Perl_pthread_atfork_t)child)
+ pthread_atfork(prepare,parent,child)
#endif
#ifndef THREAD_RET_TYPE
End of Patch.
