Script: Warn when redefining a global constant

Günther Brammer 2012-10-23 02:05:33 +02:00
parent e0aa23c8ba
commit cd147525eb
1 changed files with 6 additions and 0 deletions

View File

@ -2854,7 +2854,13 @@ C4Value C4AulParse::Parse_ConstExpression(C4PropListStatic * parent, C4String *
if (parent)
parent->SetPropertyByS(Name, r);
else
{
C4Value oldval;
if (Type == PREPARSER && a->Engine->GetGlobalConstant(Name->GetCStr(), &oldval) && oldval != r)
Warn("redefining constant %s from %s to %s",
Name->GetCStr(), oldval.GetDataString().getData(), r.GetDataString().getData());
a->Engine->RegisterGlobalConstant(Name->GetCStr(), r);
}
}
return r;
}