From 3b5fc2b02b235ec358def8f7f59e7ea0c4cc3b0d Mon Sep 17 00:00:00 2001
From: "Dmitry D. Chernov" <blackdoomer@yandex.ru>
Date: Sun, 3 Sep 2023 16:41:28 +1000
Subject: [PATCH] Define tagged unions properly, as it's supposed by FreePascal

---
 src/editor/f_main.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index d869c78..2df86ca 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -407,8 +407,7 @@ const
 
 type
   TUndoRec = record
-    UndoType: Byte;
-    case Byte of
+    case UndoType: Byte of
       UNDO_DELETE_PANEL:   (Panel: ^TPanel);
       UNDO_DELETE_ITEM:    (Item: TItem);
       UNDO_DELETE_AREA:    (Area: TArea);
@@ -429,9 +428,8 @@ type
   end;
 
   TCopyRec = record
-    ObjectType: Byte;
     ID: Cardinal;
-    case Byte of
+    case ObjectType: Byte of
       OBJECT_PANEL: (Panel: ^TPanel);
       OBJECT_ITEM: (Item: TItem);
       OBJECT_AREA: (Area: TArea);
@@ -5715,7 +5713,7 @@ begin
     QuickSortCopyBuffer(0, b);
   end;
 
-// Пестановка ссылок триггеров:
+// Постановка ссылок триггеров:
   for a := 0 to Length(CopyBuffer)-1 do
     if CopyBuffer[a].ObjectType = OBJECT_TRIGGER then
     begin
-- 
2.29.2