paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 02:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use wingetprocaddress instead of getprocaddress in code under SUPPORT_WIN95.

Browse Source 
getprocaddress is meanwhile a "manager", and is not yet initialized here.

git-svn-id: trunk@44777 -
This commit is contained in:
marco 2020-04-18 13:42:08 +00:00
parent fa4560c6ba
commit 98b1d2b975
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/systhrd.inc
View File

@ -548,7 +548,7 @@ begin
{ Try to find TryEnterCriticalSection function } { Try to find TryEnterCriticalSection function }
KernelHandle:=GetModuleHandle(KernelDLL); KernelHandle:=GetModuleHandle(KernelDLL);
if KernelHandle<>0 then if KernelHandle<>0 then
WinTryEnterCriticalSection:=TTryEnterCriticalSection(GetProcAddress(KernelHandle,'TryEnterCriticalSection')); WinTryEnterCriticalSection:=TTryEnterCriticalSection(WinGetProcAddress(KernelHandle,'TryEnterCriticalSection'));
if not assigned(WinTryEnterCriticalSection) then if not assigned(WinTryEnterCriticalSection) then
WinTryEnterCriticalSection:=@Win95TryEnterCriticalSection; WinTryEnterCriticalSection:=@Win95TryEnterCriticalSection;
{$ENDIF SUPPORT_WIN95} {$ENDIF SUPPORT_WIN95}