1 files changed, 1 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index 6f578ab592..3f148d2e3d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -53,7 +53,7 @@
 #  include <rms.h>
 #endif
 
-#define PerlIO_lockcnt(f) (((PerlIOl*)(f))->head->flags)
+#define PerlIO_lockcnt(f) (((PerlIOl*)(void*)(f))->head->flags)
 
 /* Call the callback or PerlIOBase, and return failure. */
 #define Perl_PerlIO_or_Base(f, callback, base, failure, args) 	\