diff options
| author | Jan Dubois <jand@activestate.com> | 1999-01-06 02:24:09 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-06 12:25:24 +0000 |
| commit | b002ae775153930d56eef6f15991f67590f4b473 (patch) | |
| tree | dcf1c13ee683d334ad22c647ad63824232ac61e7 | |
| parent | d5e6d479963de089122e954c00ec89b003ac06e4 (diff) | |
| download | perl-b002ae775153930d56eef6f15991f67590f4b473.tar.gz | |
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
| -rw-r--r-- | global.sym | 3 | ||||
| -rw-r--r-- | perl.c | 2 | ||||
| -rw-r--r-- | proto.h | 2 |
3 files changed, 7 insertions, 0 deletions
diff --git a/global.sym b/global.sym index 995a279bee..09b20080c7 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 @@ -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); @@ -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 |