From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 2 Feb 2000 06:54:22 +0000 (+0000)
Subject: avoid mismatched type warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea1f607caed6c38921cb6f3d97a719788e30b892;p=p5sagit%2Fp5-mst-13.2.git

avoid mismatched type warnings

p4raw-id: //depot/perl@4951
---

diff --git a/embed.pl b/embed.pl
index 0ea9aa2..80dda09 100755
--- 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
--- 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)