[fpc-pascal] missing library name in external declaration in ascdef.inc
CA Gorski
fpc-pascal-list at artelogic.com
Sat Jul 28 00:43:33 CEST 2012
There seems to be 'kernel32' missing in two functions in ascdef.inc of
the rtl/win/wininc:
FindFirstFileEx and FindFirstFileTransacted
-------------- next part --------------
--- fpc/trunk/rtl/win/wininc/ascdef.inc Fr Jun 8 18:22:45 2012
+++ fpc/trunk/rtl/win/wininc/ascdef.my.inc Fr Jul 27 23:31:01 2012
@@ -474,10 +474,10 @@
function LogonUser(_para1:LPSTR; _para2:LPSTR; _para3:LPSTR; _para4:DWORD; _para5:DWORD;_para6:PHANDLE):WINBOOL; external 'advapi32' name 'LogonUserA';
function CreateProcessAsUser(_para1:HANDLE; _para2:LPCTSTR; _para3:LPTSTR; _para4:LPSECURITY_ATTRIBUTES; _para5:LPSECURITY_ATTRIBUTES;_para6:WINBOOL; _para7:DWORD; _para8:LPVOID; _para9:LPCTSTR;
_para10:LPSTARTUPINFO; _para11:LPPROCESS_INFORMATION):WINBOOL; external 'advapi32' name 'CreateProcessAsUserA';
-function FindFirstFileEx(lpfilename : LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS ;lpFindFileData:pointer;fSearchOp : FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword):Handle; stdcall; external name 'FindFirstFileExA';
+function FindFirstFileEx(lpfilename : LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS ;lpFindFileData:pointer;fSearchOp : FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword):Handle; stdcall; external 'kernel32' name 'FindFirstFileExA';
// winver>$0600
function FindFirstFileTransacted(lpfilename : LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS ;lpFindFileData:pointer;fSearchOp : FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword;htransaction : HANDLE):Handle; stdcall;
- external name 'FindFirstFileTransactedA';
+ external 'kernel32' name 'FindFirstFileTransactedA';
{$endif read_interface}
More information about the fpc-pascal
mailing list