From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 1 Sep 2017 03:38:00 +0000 (+0300)
Subject: xdynrec: some hackcode cleanup
X-Git-Url: https://deadsoftware.ru/gitweb?a=commitdiff_plain;h=3557433c23b40765ac86aeda020f2761f4e4e851;p=d2df-sdl.git

xdynrec: some hackcode cleanup
---

diff --git a/src/shared/xdynrec.pas b/src/shared/xdynrec.pas
index e5d0b39..9d6a9a2 100644
--- a/src/shared/xdynrec.pas
+++ b/src/shared/xdynrec.pas
@@ -143,7 +143,7 @@ type
     property name: AnsiString read mName;
     property baseType: TType read mType;
     property negbool: Boolean read mNegBool;
-    property defined: Boolean read mDefined write mDefined;
+    property defined: Boolean read mDefined;
     property internal: Boolean read mInternal write mInternal;
     property hasTPrefix: Boolean read mAsT;
     property separatePasFields: Boolean read mSepPosSize;
@@ -156,7 +156,7 @@ type
     property ebs: TEBS read mEBS;
     property ebstype: TObject read mEBSType;
     property ebstypename: AnsiString read mEBSTypeName; // enum/bitset name
-    property recref: TDynRecord read mRecRef write mRecRef; //FIXME: writing is a hack!
+    property recref: TDynRecord read mRecRef;
     property recrefIndex: Integer read getRecRefIndex; // search for this record in header; -1: not found
     // for lists
     property count: Integer read getListCount;