From: Jan Dubois Date: Wed, 6 Jan 1999 01:24:09 +0000 (+0100) Subject: Based on X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b002ae775153930d56eef6f15991f67590f4b473;p=p5sagit%2Fp5-mst-13.2.git Based on To: perl5-porters@perl.org Subject: [PATCH 5.005_03-MAINT_TRIAL2] fixes for PERL_OBJECT and USE_THREADS builds Message-ID: <3696aa85.18259325@smtp1.ibm.net> except that - objXSUB.h was already okay - embed.h patching is futile, global.sym patched instead - objpp.h does not exist - proto.h addition applied manually - win32/GenCAPI.pl was already okay - win32/makedef.pl was already okay p4raw-id: //depot/cfgperl@2572 --- diff --git a/global.sym b/global.sym index 995a279..09b2008 100644 --- a/global.sym +++ b/global.sym @@ -4,6 +4,8 @@ Gv_AMupdate amagic_call +amagic_cmp +amagic_cmp_locale append_elem append_list apply @@ -483,6 +485,7 @@ scalar scalarkids scalarseq scalarvoid +scan_bin scan_const scan_formline scan_heredoc diff --git a/perl.c b/perl.c index b2ffcc9..bc73c3d 100644 --- a/perl.c +++ b/perl.c @@ -126,6 +126,7 @@ perl_construct(register PerlInterpreter *sv_interp) croak("panic: pthread_key_create"); #endif MUTEX_INIT(&PL_sv_mutex); + MUTEX_INIT(&PL_cred_mutex); /* * Safe to use basic SV functions from now on (though * not things like mortals or tainting yet). @@ -558,6 +559,7 @@ perl_destruct(register PerlInterpreter *sv_interp) #ifdef USE_THREADS MUTEX_DESTROY(&PL_strtab_mutex); MUTEX_DESTROY(&PL_sv_mutex); + MUTEX_DESTROY(&PL_cred_mutex); MUTEX_DESTROY(&PL_eval_mutex); MUTEX_DESTROY(&PL_cred_mutex); COND_DESTROY(&PL_eval_cond); diff --git a/proto.h b/proto.h index 333bd23..051be92 100644 --- a/proto.h +++ b/proto.h @@ -946,6 +946,8 @@ VIRTUAL void sv_setsv_mg _((SV *dstr, SV *sstr)); VIRTUAL void sv_usepvn_mg _((SV *sv, char *ptr, STRLEN len)); VIRTUAL MGVTBL* get_vtbl _((int vtbl_id)); +VIRTUAL I32 amagic_cmp _((register SV *str1, register SV *str2)); +VIRTUAL I32 amagic_cmp_locale _((register SV *str1, register SV *str2)); /* New virtual functions must be added here to maintain binary * compatablity with PERL_OBJECT