fix type of S_free_codeblocks

mauke · mauke · commit 5599d912890d · 2025-08-16T19:27:41.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_free_codeblocks through pointer to incorrect function type 'void (*)(struct interpreter *, void *)'
diff --git a/regcomp.c b/regcomp.c
@@ -485,8 +485,9 @@ Perl_re_compile(pTHX_ SV * const pattern, U32 rx_flags)
 }
 
 static void
-S_free_codeblocks(pTHX_ struct reg_code_blocks *cbs)
+S_free_codeblocks(pTHX_ void *ptr)
 {
+    struct reg_code_blocks *cbs = (struct reg_code_blocks *)ptr;
     int n;
 
     if (--cbs->refcnt > 0)

Original file line number	Diff line number	Diff line change
`@@ -485,8 +485,9 @@ Perl_re_compile(pTHX_ SV * const pattern, U32 rx_flags)`
`485`	`485`	`}`
`486`	`486`
`487`	`487`	`static void`
`488`		`-S_free_codeblocks(pTHX_ struct reg_code_blocks *cbs)`
	`488`	`+S_free_codeblocks(pTHX_ void *ptr)`
`489`	`489`	`{`
	`490`	`+ struct reg_code_blocks cbs = (struct reg_code_blocks )ptr;`
`490`	`491`	`int n;`
`491`	`492`
`492`	`493`	`if (--cbs->refcnt > 0)`