X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.h;h=8ba6504071bdb9ef74a41ebdd794084f3759a0b0;hb=68435ea717a7cd7f41241ff44917b542abd94222;hp=b2b8a32666034c37819da84b60168f3158c55ccb;hpb=7d30b5c4c60a798b772f5d7bd3b85d21016359c7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.h b/perlapi.h
old mode 100644
new mode 100755
index b2b8a32..8ba6504
--- 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)
@@ -562,6 +562,8 @@ START_EXTERN_C
 #define PL_uudmap		(*Perl_Iuudmap_ptr(aTHXo))
 #undef  PL_warnhook
 #define PL_warnhook		(*Perl_Iwarnhook_ptr(aTHXo))
+#undef  PL_widesyscalls
+#define PL_widesyscalls		(*Perl_Iwidesyscalls_ptr(aTHXo))
 #undef  PL_xiv_arenaroot
 #define PL_xiv_arenaroot	(*Perl_Ixiv_arenaroot_ptr(aTHXo))
 #undef  PL_xiv_root