This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused variables.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 11 Apr 2002 02:38:50 +0000 (02:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 11 Apr 2002 02:38:50 +0000 (02:38 +0000)
p4raw-id: //depot/perl@15854

ext/threads/shared/shared.xs
ext/threads/threads.xs

index ee05c57..3ee7542 100644 (file)
@@ -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) {
index 393867e..891fdb0 100755 (executable)
@@ -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;