From c7109674d167868bc027558f0906b376bafb4c23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 29 Jun 2023 23:48:10 +0200
Subject: [PATCH] * Small optimization of WriteIdent. fixes issue #40334
---
rtl/objpas/classes/writer.inc | 17 ++++++-----------
1 file changed, 6 insertions(+), 11 deletions(-)
diff --git a/rtl/objpas/classes/writer.inc b/rtl/objpas/classes/writer.inc
index 93e2d23734..7bafff81e5 100644
--- a/rtl/objpas/classes/writer.inc
+++ b/rtl/objpas/classes/writer.inc
@@ -214,17 +214,12 @@ end;
procedure TBinaryObjectWriter.WriteIdent(const Ident: string);
begin
- { Check if Ident is a special identifier before trying to just write
- Ident directly }
- if UpperCase(Ident) = 'NIL' then
- WriteValue(vaNil)
- else if UpperCase(Ident) = 'FALSE' then
- WriteValue(vaFalse)
- else if UpperCase(Ident) = 'TRUE' then
- WriteValue(vaTrue)
- else if UpperCase(Ident) = 'NULL' then
- WriteValue(vaNull) else
- begin
+ Case UpperCase(Ident) of
+ 'NIL' : WriteValue(vaNil);
+ 'FALSE' : WriteValue(vaFalse);
+ 'TRUE' : WriteValue(vaTrue);
+ 'NULL' : WriteValue(vaNull);
+ else
WriteValue(vaIdent);
WriteStr(Ident);
end;