mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 21:38:33 +02:00
* use new currentmodulestate
git-svn-id: trunk@7437 -
This commit is contained in:
parent
ecbcdcdabb
commit
01350c165c
@ -587,7 +587,7 @@ begin
|
|||||||
cpCompiling :
|
cpCompiling :
|
||||||
begin
|
begin
|
||||||
ClearFormatParams;
|
ClearFormatParams;
|
||||||
if Status.Compiling_current then
|
if Upcase(Status.currentmodulestate)='COMPILE' then
|
||||||
begin
|
begin
|
||||||
AddFormatParamStr(ShrinkPath(SmartPath(Status.Currentsourcepath+Status.CurrentSource),
|
AddFormatParamStr(ShrinkPath(SmartPath(Status.Currentsourcepath+Status.CurrentSource),
|
||||||
MaxFileNameSize - Length(msg_compilingfile)));
|
MaxFileNameSize - Length(msg_compilingfile)));
|
||||||
|
Loading…
Reference in New Issue
Block a user