paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 12:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Handle "internalerror generated" suffix found in log file, but not in longlog

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 12:09:00 +01:00
parent 59ed4c9228
commit e7ae1f9152
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/utils/digestanalyst.pas
View File

@ -31,6 +31,7 @@ Type
UnknownLines : integer;
UseLongLog : Boolean;
FCurLongLogLine : Integer;
FLongLogRestartCount : Integer;
FPrefix : String;
// Call global verbose with prefix to message.
procedure Verbose(aLevel : TVerboseLevel; const aMsg : string);
@ -188,11 +189,17 @@ function TDBDigestAnalyzer.GetContentsFromLongLog(Line: String): String;
var
S : String;
IsFirst, IsFound : boolean;
InternalErrorPos : Integer;
begin
Result:='';
IsFirst:=true;
IsFound:=false;
{ The "internalerror generated" message is not present in compilation log }
InternalErrorPos:=pos(' internalerror generated',Line);
if (InternalErrorPos>0) then
begin
Line:=Copy(Line,1,InternalErrorPos-1);
end;IsFirst:=true;
IsFound:=false;
While HaveLongLogLine do
begin
S:=GetLongLogLine;
@ -227,6 +234,7 @@ begin
begin
Verbose(V_Warning,'Line "'+Line+'" not found');
FCurlongLogLine:=0; // Reset
Inc(FLongLogRestartCount);
end;
end;