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

CodeTools expreval: Ord() support

Browse Source
This commit is contained in:
Ondrej Pokorny 2024-07-17 21:35:55 +02:00
parent 62fc17066e
commit cc4f9c7388
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/expreval.pas
View File

@ -1666,6 +1666,14 @@ var
ReadNextAtom;
if not ParseOptionParams(Operand) then exit;
exit(true);
end else
if CompareIdentifiers(AtomStart,'ORD')=0 then begin
// ORD not fully supported yet, return '0' (like HIGH and LOW)
ReadNextAtom;
if AtomStart^<>'(' then StrExpectedAtPos(AtomStart,'(');
if not ReadTilEndBracket then exit;
SetOperandValueChar(Operand,'0');
exit(true);
end;
'S':
if CompareIdentifiers(AtomStart,'SIZEOF')=0 then begin