From e82caa9908edafa6598ba8e35f6dc2ef2d63cf6f Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 26 Nov 2009 18:58:35 +0000 Subject: [PATCH] codetools: expreval: declared git-svn-id: trunk@22805 - --- components/codetools/expreval.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/components/codetools/expreval.pas b/components/codetools/expreval.pas index a218d3932f..2a2419dcc0 100644 --- a/components/codetools/expreval.pas +++ b/components/codetools/expreval.pas @@ -1425,6 +1425,12 @@ var // "defined V" or "defined(V)" if not ParseDefinedParams(Operand) then exit; exit(true); + end + else if CompareIdentifiers(AtomStart,'DECLARED')=0 then begin + // should check if a pascal identifier is already declared + // can not do this here => treat as defined + if not ParseDefinedParams(Operand) then exit; + exit(true); end; 'U': if CompareIdentifiers(AtomStart,'UNDEFINED')=0 then begin