From a4c4ce17649c6dd7217988a74b6c89ef166fe00e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 24 Aug 2017 09:27:49 +0000
Subject: [PATCH] * Capture result in SafeLoadLibrary

git-svn-id: trunk@37050 -
---
 rtl/objpas/sysutils/sysutils.inc | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 7779b6a4fd..6ef0ebd5aa 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -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}