paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:49:32 +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 } Handle : TLibHandle; { handle of the current loaded library }
Loading : TLibEventLoading; { loading event, called after the unit is loaded } Loading : TLibEventLoading; { loading event, called after the unit is loaded }
Unloading : TLibEventUnloading; { unloading event, called before the unit is unloaded } Unloading : TLibEventUnloading; { unloading event, called before the unit is unloaded }
IdentGetter : TLibIdentGetter; IdentGetter : TLibIdentGetter; { identifier getter event }
Ident : TLibIdent; { crc Ident of the current loaded library } Ident : TLibIdent; { identifier of the current loaded library }
SymCount : Integer; { number of symbols } SymCount : Integer; { number of symbols }
Symbols : PLibSymbol; { symbol address- and namelist } Symbols : PLibSymbol; { symbol address- and namelist }
ErrorMsg : String; { last error message } ErrorMsg : String; { last error message }
@ -167,8 +167,8 @@ begin
Result.Handle := NilHandle; Result.Handle := NilHandle;
Result.Loading := AfterLoading; Result.Loading := AfterLoading;
Result.Unloading := BeforeUnloading; Result.Unloading := BeforeUnloading;
Result.IdentGetter := IdentGetter; Result.IdentGetter := IdentGetter;
Result.Ident := 0; Result.Ident := 0;
Result.SymCount := SymCount; Result.SymCount := SymCount;
Result.Symbols := Symbols; Result.Symbols := Symbols;
Result.ErrorMsg := ''; Result.ErrorMsg := '';
@ -196,9 +196,7 @@ begin
Result := -1; Result := -1;
Exit; Exit;
end; end;
end else end;
if IsConsole then
WriteLn(Format(SLibraryAlreadyLoaded, [Handler.InterfaceName, Handler.Filename]));
end; end;
Result := InterlockedIncrement(Handler.RefCount); Result := InterlockedIncrement(Handler.RefCount);