Skip to content

Commit bf118ee

Browse files
committed
Fix build in C++ mode
(Based on a patch from Daniel Dragan on perl5-porters: http://code.activestate.com/lists/perl5-porters/217113/)
1 parent 1efcf25 commit bf118ee

File tree

1 file changed

+6
-5
lines changed

1 file changed

+6
-5
lines changed

File.xs

+6-5
Original file line numberDiff line numberDiff line change
@@ -148,7 +148,7 @@ CreateFileA( sPath, uAccess, uShare, pSecAttr, uCreate, uFlags, hModel )
148148
HANDLE hModel
149149
CODE:
150150
RETVAL= CreateFileA( sPath, uAccess, uShare,
151-
pSecAttr, uCreate, uFlags, hModel );
151+
(LPSECURITY_ATTRIBUTES)pSecAttr, uCreate, uFlags, hModel );
152152
if( INVALID_HANDLE_VALUE == RETVAL ) {
153153
SaveErr( 1 );
154154
XSRETURN_NO;
@@ -170,7 +170,7 @@ CreateFileW( swPath, uAccess, uShare, pSecAttr, uCreate, uFlags, hModel )
170170
HANDLE hModel
171171
CODE:
172172
RETVAL= CreateFileW( swPath, uAccess, uShare,
173-
pSecAttr, uCreate, uFlags, hModel );
173+
(LPSECURITY_ATTRIBUTES)pSecAttr, uCreate, uFlags, hModel );
174174
if( INVALID_HANDLE_VALUE == RETVAL ) {
175175
SaveErr( 1 );
176176
XSRETURN_NO;
@@ -246,7 +246,7 @@ DeviceIoControl( hDevice, uIoControlCode, pInBuf, lInBuf, opOutBuf, lOutBuf, olR
246246
}
247247
grow_buf_l( opOutBuf,ST(4),char *, lOutBuf,ST(5) );
248248
RETVAL= DeviceIoControl( hDevice, uIoControlCode, pInBuf, lInBuf,
249-
opOutBuf, lOutBuf, &olRetBytes, pOverlapped );
249+
opOutBuf, lOutBuf, &olRetBytes, (LPOVERLAPPED)pOverlapped );
250250
SaveErr( !RETVAL );
251251
OUTPUT:
252252
RETVAL
@@ -553,7 +553,8 @@ ReadFile( hFile, opBuffer, lBytes, olBytesRead, pOverlapped )
553553
if( 0 == lBytes && autosize(ST(2)) ) {
554554
lBytes= SvLEN( ST(1) ) - 1;
555555
}
556-
RETVAL= ReadFile( hFile, opBuffer, lBytes, &olBytesRead, pOverlapped );
556+
RETVAL= ReadFile( hFile, opBuffer, lBytes, &olBytesRead,
557+
(LPOVERLAPPED)pOverlapped );
557558
SaveErr( !RETVAL );
558559
OUTPUT:
559560
RETVAL
@@ -640,7 +641,7 @@ WriteFile( hFile, pBuffer, lBytes, ouBytesWritten, pOverlapped )
640641
"Win32API::File::WriteFile", SvCUR(ST(1)), lBytes );
641642
}
642643
RETVAL= WriteFile( hFile, pBuffer, lBytes,
643-
&ouBytesWritten, pOverlapped );
644+
&ouBytesWritten, (LPOVERLAPPED)pOverlapped );
644645
SaveErr( !RETVAL );
645646
OUTPUT:
646647
RETVAL

0 commit comments

Comments
 (0)