paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small optimization of WriteIdent. fixes issue #40334

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-29 23:48:10 +02:00
parent e776368ac8
commit c7109674d1
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/classes/writer.inc
View File

@ -214,17 +214,12 @@ end;
procedure TBinaryObjectWriter.WriteIdent(const Ident: string); procedure TBinaryObjectWriter.WriteIdent(const Ident: string);
begin begin
{ Check if Ident is a special identifier before trying to just write Case UpperCase(Ident) of
Ident directly } 'NIL' : WriteValue(vaNil);
if UpperCase(Ident) = 'NIL' then 'FALSE' : WriteValue(vaFalse);
WriteValue(vaNil) 'TRUE' : WriteValue(vaTrue);
else if UpperCase(Ident) = 'FALSE' then 'NULL' : WriteValue(vaNull);
WriteValue(vaFalse) else
else if UpperCase(Ident) = 'TRUE' then
WriteValue(vaTrue)
else if UpperCase(Ident) = 'NULL' then
WriteValue(vaNull) else
begin
WriteValue(vaIdent); WriteValue(vaIdent);
WriteStr(Ident); WriteStr(Ident);
end; end;