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

* patch by Sergej Gorelkin to improve speed of UpdateStatus on large projects

Browse Source 
git-svn-id: trunk@11151 -
This commit is contained in:
florian 2008-06-01 10:37:16 +00:00
parent fe92758e53
commit 86a352ad1f
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/verbose.pas
View File

@ -375,25 +375,27 @@ implementation
{ fix status } { fix status }
status.currentline:=current_filepos.line; status.currentline:=current_filepos.line;
status.currentcolumn:=current_filepos.column; status.currentcolumn:=current_filepos.column;
module:=get_module(current_filepos.moduleindex); if (current_filepos.moduleindex <> lastmoduleidx) or
if assigned(module) and (current_filepos.fileindex <> lastfileidx) then
assigned(module.sourcefiles) and begin
((module.unit_index<>lastmoduleidx) or module:=get_module(current_filepos.moduleindex);
(current_filepos.fileindex<>lastfileidx)) then if assigned(module) and assigned(module.sourcefiles) then
begin begin
{ update status record } { update status record }
status.currentmodule:=module.modulename^; status.currentmodule:=module.modulename^;
status.currentmodulestate:=ModuleStateStr[module.state]; status.currentmodulestate:=ModuleStateStr[module.state];
status.currentsource:=module.sourcefiles.get_file_name(current_filepos.fileindex); status.currentsource:=module.sourcefiles.get_file_name(current_filepos.fileindex);
status.currentsourcepath:=module.sourcefiles.get_file_path(current_filepos.fileindex); status.currentsourcepath:=module.sourcefiles.get_file_path(current_filepos.fileindex);
{ update lastfileidx only if name known PM } { update lastfileidx only if name known PM }
if status.currentsource<>'' then if status.currentsource<>'' then
lastfileidx:=current_filepos.fileindex lastfileidx:=current_filepos.fileindex
else else
lastfileidx:=0; lastfileidx:=0;
lastmoduleidx:=module.unit_index;
end; lastmoduleidx:=module.unit_index;
end;
end;
end; end;