[PATCH 125/188] adding wasmdata entity

From 505041d99961278b6b3d06d09f3531d9690f55e8 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Mon, 23 Mar 2020 16:22:45 -0400

git-svn-id: branches/wasm@46121 -

utils/wasmbin/wasmmodule.pas

@@ -173,7 +173,11 @@ type
   { TWasmData }
 
   TWasmData = class(TObject)
-    id   : TWasmData;
+    id       : TWasmId;
+    offset   : TWasmInstrList;
+    databuf  : array of byte;
+    function StartOffset: TWasmInstrList;
+    destructor Destroy; override;
   end;
 
   { TWasmMemory }
@@ -317,6 +321,21 @@ begin
   l.Clear;
 end;
 
+{ TWasmData }
+
+function TWasmData.StartOffset: TWasmInstrList;
+begin
+  if not Assigned(offset) then
+    offset := TWasmInstrList.Create;
+  Result:=offset;
+end;
+
+destructor TWasmData.Destroy;
+begin
+  if Assigned(offset) then offset.Free;
+  inherited Destroy;
+end;
+
 { TWasmElement }
 
 function TWasmElement.AddFunc(idx: integer): integer;