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

* removed writeln call

Browse Source 
* added some more comments

git-svn-id: trunk@15296 -
This commit is contained in:
ivost 2010-05-19 11:26:09 +00:00
parent 20499117de
commit 8a25a5fbc7
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/dynlibs.pas
View File

@ -82,8 +82,8 @@ type
Handle : TLibHandle; { handle of the current loaded library }
Loading : TLibEventLoading; { loading event, called after the unit is loaded }
Unloading : TLibEventUnloading; { unloading event, called before the unit is unloaded }
IdentGetter : TLibIdentGetter;
Ident : TLibIdent; { crc Ident of the current loaded library }
IdentGetter : TLibIdentGetter; { identifier getter event }
Ident : TLibIdent; { identifier of the current loaded library }
SymCount : Integer; { number of symbols }
Symbols : PLibSymbol; { symbol address- and namelist }
ErrorMsg : String; { last error message }
@ -167,8 +167,8 @@ begin
Result.Handle := NilHandle;
Result.Loading := AfterLoading;
Result.Unloading := BeforeUnloading;
Result.IdentGetter := IdentGetter;
Result.Ident := 0;
Result.IdentGetter := IdentGetter;
Result.Ident := 0;
Result.SymCount := SymCount;
Result.Symbols := Symbols;
Result.ErrorMsg := '';
@ -196,9 +196,7 @@ begin
Result := -1;
Exit;
end;
end else
if IsConsole then
WriteLn(Format(SLibraryAlreadyLoaded, [Handler.InterfaceName, Handler.Filename]));
end;
end;
Result := InterlockedIncrement(Handler.RefCount);