From 155beb35665aae736d385c31f9a68dce57075cdf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 12 Jun 2004 13:30:33 +0000
Subject: [PATCH] Fixed bug #3156, as suggested by Michalis Kamburelis

---
 rtl/inc/dynlibs.pp    | 7 +++++--
 rtl/win32/dynlibs.inc | 7 +++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/dynlibs.pp b/rtl/inc/dynlibs.pp
index 8e403c8d20..8f7c9a0a90 100644
--- a/rtl/inc/dynlibs.pp
+++ b/rtl/inc/dynlibs.pp
@@ -53,7 +53,7 @@ Implementation
 Function FreeLibrary(Lib : TLibHandle) : Boolean;
 
 begin
-  result:=FreeLibrary(lib);
+  Result:=UnloadLibrary(lib);
 end;
 
 Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
@@ -66,7 +66,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2004-05-04 17:14:52  marco
+  Revision 1.4  2004-06-12 13:30:33  michael
+  Fixed bug 3156, as suggested by Michalis Kamburelis
+
+  Revision 1.3  2004/05/04 17:14:52  marco
    * some delphi compat aliases added.
 
   Revision 1.2  2002/09/07 15:07:45  peter
diff --git a/rtl/win32/dynlibs.inc b/rtl/win32/dynlibs.inc
index 3a31cce09b..b239127c41 100644
--- a/rtl/win32/dynlibs.inc
+++ b/rtl/win32/dynlibs.inc
@@ -50,14 +50,17 @@ end;
 Function UnloadLibrary(Lib : TLibHandle) : Boolean;
 
 begin
-  Result:=FreeLibrary(Lib);
+  Result:=Windows.FreeLibrary(Lib);
 end;
 
 {$endif}
 
 {
   $Log$
-  Revision 1.2  2002-09-07 16:01:28  peter
+  Revision 1.3  2004-06-12 13:30:33  michael
+  Fixed bug 3156, as suggested by Michalis Kamburelis
+
+  Revision 1.2  2002/09/07 16:01:28  peter
     * old logs removed and tabs fixed
 
 }