perl 5.003_03: x2p/str.c

[p5sagit/p5-mst-13.2.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)