From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sat, 26 Aug 2017 17:39:05 +0000 (+0300)
Subject: more cosmetix
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=44064f0bd866747dd89f2db87ff8026e5a653a17;p=d2df-sdl.git

more cosmetix
---

diff --git a/src/shared/xdynrec.pas b/src/shared/xdynrec.pas
index 2d8f430..a5f3623 100644
--- a/src/shared/xdynrec.pas
+++ b/src/shared/xdynrec.pas
@@ -67,12 +67,12 @@ type
     mDefaultValueSet: Boolean;
     mOmitDef: Boolean;
     mInternal: Boolean;
-    // default values
+    mNegBool: Boolean;
+    mBitSetUnique: Boolean; // bitset can contain only one value
+    // default value
     mDefSVal: AnsiString;
-    mEBS: TEBS;
+    mEBS: TEBS; // complex type type
     mEBSTypeName: AnsiString; // name of enum, bitset or record
-    mBitSetUnique: Boolean; // bitset can contain only one value
-    mNegBool: Boolean;
 
     // temp
     mDefId: AnsiString;
@@ -129,6 +129,7 @@ type
   end;
 
 
+  // "value" header record contains TList fields, with name equal to record type
   TDynRecord = class
   private
     mOwner: TDynMapDef;
@@ -1039,6 +1040,7 @@ begin
           mRecRef := rc;
           mDefined := true;
           mOwner.mOwner.addRecordByType(mEBSTypeName, rc, curheader);
+          pr.eatTT(pr.TTSemi); // hack: allow (but don't require) semicolon after inline records
           exit;
         end;
         pr.expectTT(pr.TTBegin);