paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:50:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid repeated warnings about libgcc directory

Browse Source
This commit is contained in:
Pierre Muller 2022-03-18 11:05:55 +00:00
parent a9db41f1e5
commit ca186440eb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1239,6 +1239,7 @@ Type
FOnFinishCopy: TNotifyEvent;
FCachedlibcPath: string;
GCCLibWarningIssued : boolean;
{$ifndef NO_THREADING}
FGeneralCriticalSection: TRTLCriticalSection;
{$endif NO_THREADING}
@ -7237,7 +7238,11 @@ begin
begin
s:=GetDefaultLibGCCDir(Defaults.CPU, Defaults.OS,ErrS);
if s='' then
Log(vlWarning, SWarngcclibpath +' '+ErrS)
begin
if (ErrS<>'') and not (GCCLibWarningIssued) then
Log(vlWarning, SWarngcclibpath +' '+ErrS);
GCCLibWarningIssued:=True;
end
else
begin
{$ifndef NO_THREADING}