This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid mismatched type warnings
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Feb 2000 06:54:22 +0000 (06:54 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Feb 2000 06:54:22 +0000 (06:54 +0000)
p4raw-id: //depot/perl@4951

embed.pl
perlapi.h

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)
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)