summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2023-03-22 20:17:49 +0100
committerYves Orton <demerphq@gmail.com>2023-03-29 20:54:49 +0800
commitfabf023f2ebd7d2d18332760db955889cb7a9d22 (patch)
tree4ca425160490ab18a609221a1d975c10a0cb0357 /perlio.c
parent5de3c4299aeef2737ce02b6b2e401a997da32cff (diff)
downloadperl-fabf023f2ebd7d2d18332760db955889cb7a9d22.tar.gz
perlio.c - double cast PerlIO_lockcnt()
This avoids various warnings about alignment on HPUX.
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c2
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) \