more cosmetix

diff --git a/src/shared/xdynrec.pas b/src/shared/xdynrec.pas
index 2d8f430e961b42869074883a327fb405fa8e0f90..a5f3623823add801a86fba14851c813d5de0c2d0 100644 (file)
--- 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);