develooper Front page | perl.perl5.porters | Postings from August 2001

[PATCH] pp_lock

Thread Next
From:
Arthur Bergman
Date:
August 15, 2001 02:46
Subject:
[PATCH] pp_lock
Message ID:
008401c1256f$f75a91b0$21000a0a@vogw2kdev
This makes lock work and also makes ld included sharedsv.o since nothing was using any function in it.

--- pp.c.old Sat Aug 11 23:44:50 2001
+++ pp.c Wed Aug 15 11:44:36 2001
@@ -4348,6 +4348,11 @@
 #ifdef USE_THREADS
     sv_lock(sv);
 #endif /* USE_THREADS */
+#ifdef USE_ITHREADS
+    shared_sv *ssv = Perl_sharedsv_find(aTHX_ sv);
+    if(ssv)
+        Perl_sharedsv_lock(aTHX_ ssv);
+#endif /* USE_ITHREADS */
     if (SvTYPE(retsv) == SVt_PVAV || SvTYPE(retsv) == SVt_PVHV
  || SvTYPE(retsv) == SVt_PVCV) {
  retsv = refto(retsv);



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