avoid mismatched type warnings

p4raw-id: //depot/perl@4951

diff --git a/embed.pl b/embed.pl
index 0ea9aa2..80dda09 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -821,7 +821,7 @@ EXT void *PL_force_link_funcs[] = {
 #undef PERLVARA
 #undef PERLVARI
 #undef PERLVARIC
-#define PERLVAR(v,t)   Perl_##v##_ptr,
+#define PERLVAR(v,t)   (void*)Perl_##v##_ptr,
 #define PERLVARA(v,n,t)        PERLVAR(v,t)
 #define PERLVARI(v,t,i)        PERLVAR(v,t)
 #define PERLVARIC(v,t,i) PERLVAR(v,t)

diff --git a/perlapi.h b/perlapi.h
index 22117ed..60c47c7 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -58,7 +58,7 @@ EXT void *PL_force_link_funcs[] = {
 #undef PERLVARA
 #undef PERLVARI
 #undef PERLVARIC
-#define PERLVAR(v,t)   Perl_##v##_ptr,
+#define PERLVAR(v,t)   (void*)Perl_##v##_ptr,
 #define PERLVARA(v,n,t)        PERLVAR(v,t)
 #define PERLVARI(v,t,i)        PERLVAR(v,t)
 #define PERLVARIC(v,t,i) PERLVAR(v,t)