From 86a352ad1fbf1db0029a8baed64c9e3a026d6b17 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 1 Jun 2008 10:37:16 +0000
Subject: [PATCH] * patch by Sergej Gorelkin to improve speed of UpdateStatus
 on large projects

git-svn-id: trunk@11151 -
---
 compiler/verbose.pas | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

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