From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Apr 2002 02:38:50 +0000 (+0000)
Subject: Unused variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07e02a300cd95d44a23c70899f4b1e48854c8507;p=p5sagit%2Fp5-mst-13.2.git

Unused variables.

p4raw-id: //depot/perl@15854
---

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index ee05c57..3ee7542 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -462,7 +462,6 @@ sharedsv_scalar_mg_free(pTHX_ SV *sv, MAGIC *mg)
 int
 sharedsv_scalar_mg_clear(pTHX_ SV *sv, MAGIC *mg)
 {
-    shared_sv *shared = (shared_sv *) mg->mg_ptr;
     return 0;
 }
 
@@ -536,7 +535,6 @@ int
 sharedsv_elem_mg_STORE(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHXc;
-    bool allowed;
     shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj);
     shared_sv *target;
     SV **svp;
@@ -573,7 +571,6 @@ sharedsv_elem_mg_DELETE(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHXc;
     shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj);
-    SV* ssv;
     ENTER_LOCK;
     sharedsv_elem_mg_FETCH(aTHX_ sv, mg);
     if (SvTYPE(SHAREDSvPTR(shared)) == SVt_PVAV) {
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 393867e..891fdb0 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -120,7 +120,6 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why)
 	MUTEX_UNLOCK(&create_destruct_mutex);
 	/* Thread is now disowned */
 	if (thread->interp) {
-	    dTHXa(thread->interp);
 	    PERL_SET_CONTEXT(thread->interp);
 	    perl_destruct(thread->interp);
 	    perl_free(thread->interp);
@@ -407,7 +406,6 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 	{
 	  static pthread_attr_t attr;
 	  static int attr_inited = 0;
-	  sigset_t fullmask, oldmask;
 	  static int attr_joinable = PTHREAD_CREATE_JOINABLE;
 	  if (!attr_inited) {
 	    attr_inited = 1;