Browse Source

Avoid repeated warnings about libgcc directory

Pierre Muller 3 years ago
parent
commit
ca186440eb
1 changed files with 6 additions and 1 deletions
  1. 6 1
      packages/fpmkunit/src/fpmkunit.pp

+ 6 - 1
packages/fpmkunit/src/fpmkunit.pp

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