paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 07:43:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* added status.currentmodulestate

Browse Source 
git-svn-id: trunk@7435 -
This commit is contained in:
peter 2007-05-24 06:21:31 +00:00
parent 4ed68cc386
commit ecbcdcdabb
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/comphook.pas
View File

@ -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,

1
compiler/verbose.pas
View File

@ -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);