mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 14:38:01 +02:00
IDE: fpc messages filter now shows Recompiling unit, checksum changed messages
git-svn-id: trunk@11691 -
This commit is contained in:
parent
13b70fb444
commit
edb53d8528
@ -32,8 +32,12 @@ general_t_objectpath=01007_T_Using object path: $1
|
||||
option_using_file=11026_T_Reading options from file $1
|
||||
% Options are also read from this file
|
||||
|
||||
% Options are also read from this environment string
|
||||
option_handling_option=11028_D_Handling option "$1"
|
||||
% Options are also read from this environment string
|
||||
|
||||
unit_u_recompile_crc_change=10028_U_Recompiling $1, checksum changed for $2
|
||||
% The unit is recompiled because the checksum of a unit it depends on has
|
||||
% changed.
|
||||
|
||||
# end.
|
||||
|
||||
|
@ -627,6 +627,23 @@ var i, j, FilenameEndPos: integer;
|
||||
DoAddFilteredLine(copy(s,OldStart,length(s)));
|
||||
end;
|
||||
|
||||
{ example:
|
||||
Recompiling GtkInt, checksum changed for gdk2x
|
||||
}
|
||||
function CheckForRecompilingChecksumChangedMessages(p: integer): boolean;
|
||||
var
|
||||
OldStart: LongInt;
|
||||
begin
|
||||
Result:=false;
|
||||
OldStart:=p;
|
||||
if not CompStr('Recompiling ',s,p) then exit;
|
||||
while (p<=length(s)) and (s[p]<>',') do
|
||||
inc(p);
|
||||
if not CompStr(', checksum changed for ',s,p) then exit;
|
||||
Result:=true;
|
||||
DoAddFilteredLine(copy(s,OldStart,length(s)));
|
||||
end;
|
||||
|
||||
{ example:
|
||||
...\windres.exe: warning: ...
|
||||
}
|
||||
@ -684,7 +701,10 @@ begin
|
||||
// check for linking errors
|
||||
Result:=CheckForLinkingErrors(i);
|
||||
if Result then exit;
|
||||
// cehck for windres errors
|
||||
// check for Recompiling, checksum changed
|
||||
Result:=CheckForRecompilingChecksumChangedMessages(i);
|
||||
if Result then exit;
|
||||
// check for windres errors
|
||||
Result := CheckForWindresErrors(i);
|
||||
if Result then Exit;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user