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

* Capture result in SafeLoadLibrary

Browse Source 
git-svn-id: trunk@37050 -
This commit is contained in:
michael 2017-08-24 09:27:49 +00:00
parent b6700f68b8
commit a4c4ce1764
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysutils/sysutils.inc
View File

@ -709,16 +709,16 @@ var
mode : DWord;
begin
mode:=SetErrorMode(ErrorMode);
try
System.SafeLoadLibrary(FileName);
finally
SetErrorMode(mode);
end;
mode:=SetErrorMode(ErrorMode);
try
Result:=System.SafeLoadLibrary(FileName);
finally
SetErrorMode(mode);
end;
end;
{$else}
begin
System.SafeLoadLibrary(FileName);
Result:=System.SafeLoadLibrary(FileName);
end;
{$endif}