[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