From: Steve Hay <SteveHay@planit.com>
Date: Wed, 20 Jun 2007 16:03:10 +0000 (+0000)
Subject: Change #31426 should also be applied to the PERL_IMPLICIT_SYS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a23e5bfd5c64a7864bfe5805f19af1e2e6d0a47;p=p5sagit%2Fp5-mst-13.2.git

Change #31426 should also be applied to the PERL_IMPLICIT_SYS
version of ioctl()

p4raw-id: //depot/perl@31428
---

diff --git a/win32/perlhost.h b/win32/perlhost.h
index e042103..9974fd8 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -989,7 +989,14 @@ PerlLIOFileStat(struct IPerlLIO* piPerl, int handle, Stat_t *buffer)
 int
 PerlLIOIOCtl(struct IPerlLIO* piPerl, int i, unsigned int u, char *data)
 {
-    return win32_ioctlsocket((SOCKET)i, (long)u, (u_long*)data);
+    u_long u_long_arg;
+    int retval;
+
+    /* mauke says using memcpy avoids alignment issues */
+    memcpy(&u_long_arg, data, sizeof u_long_arg); 
+    retval = win32_ioctlsocket((SOCKET)i, (long)u, &u_long_arg);
+    memcpy(data, &u_long_arg, sizeof u_long_arg);
+    return retval;
 }
 
 int