paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 05:07:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixed bug #3156, as suggested by Michalis Kamburelis

Browse Source
This commit is contained in:
michael 2004-06-12 13:30:33 +00:00
parent 70143302f0
commit 155beb3566
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/dynlibs.pp
View File

@ -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

7
rtl/win32/dynlibs.inc
View File

@ -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
}