paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 20:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: outputfilter: show PPU loading/invalid version messages

Browse Source 
git-svn-id: trunk@29740 -
This commit is contained in:
mattias 2011-03-07 11:11:01 +00:00
parent ec73978c03
commit 2d5c8227c1
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/outputfilter.pas
View File

@ -751,6 +751,21 @@ var i, j, FilenameEndPos: integer;
end;
end;
function CheckForPPULoading(p: integer): boolean;
begin
Result:=false;
if CompStr('PPU ',s,p) then begin
fLastMessageType:=omtFPC;
fLastErrorType:=etNone;
if CompStr('PPU Invalid Version',s,p) then
fLastErrorType:=etFatal;
CurrentMessageParts.Values['Stage']:='FPC';
CurrentMessageParts.Values['Type']:=FPCErrorTypeNames[fLastErrorType];
DoAddFilteredLine(s);
Result:=true;
end;
end;
function CheckForUrgentMessages(p: integer): boolean;
const
UnableToOpen = 'Fatal: Unable to open file ';
@ -1036,6 +1051,9 @@ begin
// check for 'Assembling <filename>'
Result:=CheckForAssemblingState(i);
if Result then exit;
// check for 'PPU Loading <filename>' and 'PPU Invalid Version <number>'
Result:=CheckForPPULoading(i);
if Result then exit;
// check for 'Fatal: ', 'Panic: ', 'Error: ', 'Closing script ppas.sh'
Result:=CheckForUrgentMessages(i);
if Result then exit;