paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 23:28:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error for Win64 by correcting type of parameters for GetModuleFileNameA WinAPI function

Browse Source 
git-svn-id: trunk@34148 -
This commit is contained in:
pierre 2016-07-19 11:35:21 +00:00
parent d1a610a2fc
commit d4945f4fd0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/library/ttdlltes1.pp
View File

@ -9,7 +9,7 @@
}
library testdll;
function GetModuleFileName(hModule:longint;lpszPath:pchar;cchPath:longint):longint;
function GetModuleFileName(hModule:HModule;lpszPath:pchar;cchPath:dword):dword;
stdcall; external 'kernel32' name 'GetModuleFileNameA';
procedure beep(ID:longint);
stdcall; external 'user32' name 'MessageBeep';