From 98b1d2b975d82d497c7d822e18478a3cbec1921d Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 18 Apr 2020 13:42:08 +0000
Subject: [PATCH] * use wingetprocaddress instead of getprocaddress in code
under SUPPORT_WIN95. getprocaddress is meanwhile a "manager", and is not
yet initialized here.
git-svn-id: trunk@44777 -
---
rtl/win/systhrd.inc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/win/systhrd.inc b/rtl/win/systhrd.inc
index 80e85a3f63..bbd6b132bf 100644
--- a/rtl/win/systhrd.inc
+++ b/rtl/win/systhrd.inc
@@ -548,7 +548,7 @@ begin
{ Try to find TryEnterCriticalSection function }
KernelHandle:=GetModuleHandle(KernelDLL);
if KernelHandle<>0 then
- WinTryEnterCriticalSection:=TTryEnterCriticalSection(GetProcAddress(KernelHandle,'TryEnterCriticalSection'));
+ WinTryEnterCriticalSection:=TTryEnterCriticalSection(WinGetProcAddress(KernelHandle,'TryEnterCriticalSection'));
if not assigned(WinTryEnterCriticalSection) then
WinTryEnterCriticalSection:=@Win95TryEnterCriticalSection;
{$ENDIF SUPPORT_WIN95}