paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: expreval: return always true for declared

Browse Source 
git-svn-id: trunk@22823 -
This commit is contained in:
mattias 2009-11-27 10:38:38 +00:00
parent a13feabeb5
commit 691f65044f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/expreval.pas
View File

@ -1509,8 +1509,9 @@ var
end end
else if CompareIdentifiers(AtomStart,'DECLARED')=0 then begin else if CompareIdentifiers(AtomStart,'DECLARED')=0 then begin
// should check if a pascal identifier is already declared // should check if a pascal identifier is already declared
// can not do this here => treat as defined // can not do this here => return always true
if not ParseDefinedParams(Operand) then exit; if not ParseDefinedParams(Operand) then exit;
SetOperandValueChar(Operand,'1');
exit(true); exit(true);
end; end;
'H': 'H':