This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct cast in SAVEDESTRUCTOR macro
[perl5.git] / scope.h
diff --git a/scope.h b/scope.h
index 8845e7c..0ea343a 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -54,5 +54,5 @@
 #define SAVEFREEPV(p) save_freepv((char*)(p))
 #define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
 #define SAVEDELETE(h,k,l) save_delete((HV*)(h), (char*)(k), (I32)l)
-#define SAVEDESTRUCTOR(f,p) save_destructor(f,(void*)p)
+#define SAVEDESTRUCTOR(f,p) save_destructor((void(*)_((void*)))f,(void*)p)