threads::shared: fix type of recursive_lock_release

SAVEDESTRUCTOR_X needs a function of type 'void (pTHX_ void *)' exactly.

Should fix this ASan error:

    scope.c:1543:13: runtime error: call to function recursive_lock_release through pointer to incorrect function type 'void (*)(struct interpreter *, void *)'

Author: mauke

dist/threads-shared/lib/threads/shared.pm

@@ -8,7 +8,7 @@ use Config;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.70'; # Please update the pod, too.
+our $VERSION = '1.71'; # Please update the pod, too.
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -196,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.70
+This document describes threads::shared version 1.71
 
 =head1 SYNOPSIS
 

dist/threads-shared/shared.xs

@@ -212,8 +212,9 @@ recursive_lock_destroy(pTHX_ recursive_lock_t *lock)
 }
 
 static void
-recursive_lock_release(pTHX_ recursive_lock_t *lock)
+recursive_lock_release(pTHX_ void *ptr)
 {
+    recursive_lock_t *lock = (recursive_lock_t *)ptr;
     MUTEX_LOCK(&lock->mutex);
     if (lock->owner == aTHX) {
         if (--lock->locks == 0) {