X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2Fbyteperl.c;h=17dfdee33a0d78ea8d957332a7831057d7489107;hb=445a12f622bad7d38f7d9dd52674ccc07f19205c;hp=313ca031e86b20b2764c8029eb554bb321f7bf7e;hpb=cceca5ed003bac658cb0392a14bb2f26d434bd78;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/byteperl.c b/ext/B/byteperl.c
index 313ca03..17dfdee 100644
--- a/ext/B/byteperl.c
+++ b/ext/B/byteperl.c
@@ -1,7 +1,7 @@
 #include "EXTERN.h"
 #include "perl.h"
 
-static void xs_init _((void));
+static void xs_init (void);
 static PerlInterpreter *my_perl;
 
 int
@@ -81,8 +81,8 @@ main(int argc, char **argv, char **env)
 
 #ifdef INDIRECT_BGET_MACROS
     bs.data = fp;
-    bs.fgetc = (int(*) _((void*)))fgetc;
-    bs.fread = (int(*) _((char*,size_t,size_t,void*)))fread;
+    bs.fgetc = (int(*) (void*))fgetc;
+    bs.fread = (int(*) (char*,size_t,size_t,void*))fread;
     bs.freadpv = freadpv;
     byterun(bs);
 #else