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

codetools: expreval: declared

Browse Source 
git-svn-id: trunk@22805 -
This commit is contained in:
mattias 2009-11-26 18:58:35 +00:00
parent 3a77111581
commit e82caa9908
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/expreval.pas
View File

@ -1425,6 +1425,12 @@ var
// "defined V" or "defined(V)" // "defined V" or "defined(V)"
if not ParseDefinedParams(Operand) then exit; if not ParseDefinedParams(Operand) then exit;
exit(true); 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; end;
'U': 'U':
if CompareIdentifiers(AtomStart,'UNDEFINED')=0 then begin if CompareIdentifiers(AtomStart,'UNDEFINED')=0 then begin