From ee97a848849bd99ef26924e9b39f9a166340747e Mon Sep 17 00:00:00 2001
From: tslediter <liujianjun@tinysoft.com.cn>
Date: Fri, 15 Mar 2024 12:02:13 +0800
Subject: [PATCH] Update cstructurelib.tsf
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

私有化部分成员避免继承中的混乱
---
 funcext/tvclib/cstructurelib.tsf | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/funcext/tvclib/cstructurelib.tsf b/funcext/tvclib/cstructurelib.tsf
index 161b66e..b7aa506 100644
--- a/funcext/tvclib/cstructurelib.tsf
+++ b/funcext/tvclib/cstructurelib.tsf
@@ -49,11 +49,13 @@ type tmemoryclass=class
         {**
         @explan(˵��) ���ָ���ֽ��� %%
         **}
+        {$ifdef linux}
+        return 8;
+        {$endif}
         {$IFDEF win64}
         return 8;
-        {$ELSE}
-        return 4;
         {$ENDIF}
+        return 4;
     end
     function opblocks(p,f,v); //�ڴ�洢����
     begin
@@ -141,13 +143,12 @@ type tmemoryclass=class
         @explan(˵��)��ȡ�ײ�������� %%
         @return (t_mem_mgr)�ڴ�ײ�������� 
         **}
-        if not ifobj(_tool)then _tool := get_mem_mgr();
-        return _tool;
+        return  get_mem_mgr();
     end
     function create();
     begin
         _blocks := array();
-        mtool();
+        _tool := mtool();
     end
     function destroy();virtual;
     begin
@@ -161,14 +162,14 @@ type tmemoryclass=class
         end
         _blocks := array();
     end
-    protected 
-    static _tool;
-    private
+    private 
+    _tool;   
     _blocks; //������ڴ��;�Ե�ַΪ����������,ֵΪ����Ĵ�С;
 end
 	//�ڴ������,��֧��**����
 type ctslctrans = class(tmemoryclass)
     private
+    _tool;
     Fstrcdata;
     _nomalloc;
     _ptr;//�����ַ
@@ -440,6 +441,7 @@ type ctslctrans = class(tmemoryclass)
         @param(ifset)(integer) �ݹ鹹��ʱʹ��%%
         **}
         class(tmemoryclass).create();
+        _tool := mtool();
         _ptr := 0;
         if not(ifarray(data)and mcols(data)>3)then
         begin