fix type of S_lockcnt_dec

mauke · mauke · commit 017b13bb5e22 · 2025-08-16T16:01:15.000+02:00
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 S_lockcnt_dec through pointer to incorrect function type 'void (*)(struct interpreter *, void *)'
diff --git a/perlio.c b/perlio.c
@@ -2872,7 +2872,7 @@ typedef struct {
 } PerlIOUnix;
 
 static void
-S_lockcnt_dec(pTHX_ const void* f)
+S_lockcnt_dec(pTHX_ void* f)
 {
 #ifndef PERL_IMPLICIT_SYS
     PERL_UNUSED_CONTEXT;

Original file line number	Diff line number	Diff line change
`@@ -2872,7 +2872,7 @@ typedef struct {`
`2872`	`2872`	`} PerlIOUnix;`
`2873`	`2873`
`2874`	`2874`	`static void`
`2875`		`-S_lockcnt_dec(pTHX_ const void* f)`
	`2875`	`+S_lockcnt_dec(pTHX_ void* f)`
`2876`	`2876`	`{`
`2877`	`2877`	`#ifndef PERL_IMPLICIT_SYS`
`2878`	`2878`	`PERL_UNUSED_CONTEXT;`