From ecbcdcdabb6a252b262cb2c94dd613c3ce0b9330 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 24 May 2007 06:21:31 +0000
Subject: [PATCH] * added status.currentmodulestate
git-svn-id: trunk@7435 -
---
compiler/comphook.pas | 1 +
compiler/verbose.pas | 1 +
2 files changed, 2 insertions(+)
diff --git a/compiler/comphook.pas b/compiler/comphook.pas
index 9f42f10bbc..d64a4e7833 100644
--- a/compiler/comphook.pas
+++ b/compiler/comphook.pas
@@ -76,6 +76,7 @@ type
currentsource : string; { filename }
currentline,
currentcolumn : longint; { current line and column }
+ currentmodulestate : string[20];
{ Total Status }
compiledlines : longint; { the number of lines which are compiled }
errorcount,
diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index b77a41e2cd..ba811549d0 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -383,6 +383,7 @@ implementation
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);