Вверх ↑
Ответов: 4612
Рейтинг: 746
#1: 2020-11-16 18:24:04 ЛС | профиль | цитата
Вот такая комбинация приводит к увеличению памяти на новом FPC:


Add(Button,1322042,455,525)
{
Left=190
Top=125
link(onClick,14973397:doStart,[])
}
Add(InlineCode,11970995,560,525)
{
WorkPoints=#6:doWork|
EventPoints=#8:onResult|
VarPoints=#4:Var1|4:Var2|
DataPoints=#5:Data1|5:Data2|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|29: Windows, KOL, Share, Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|11: private|0:|10: public|30: Data1, Data2: THI_Event;|29: onResult: THI_Event; |54: procedure doWork(var _Data: TData; Index: Word);|52: procedure Var1(var _Data: TData; Index: Word);|52: procedure Var2(var _Data: TData; Index: Word);|6: end;|0:|14:implementation|0:|0:|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|3:var|21: FDLStream: PStream;|15:begin |91: FDLStream := NewFileStream('test.txt', ofOpenWrite or ofShareDenyNone or ofCreateAlways);|17: FDLStream.Free;|0:|8: |33: // ReadString(_Data, Data1, '')|33: // ReadInteger(_Data, Data2, 0)|42: // _hi_CreateEvent(_Data, @onResult, 0);|33: //_hi_OnEvent(onResult, 'abc');|4:end;|0:|0:|59:procedure THiAsmClass.Var1(var _Data: TData; Index: Word); |5:begin|22: dtInteger(_Data, 0);|4:end;|0:|59:procedure THiAsmClass.Var2(var _Data: TData; Index: Word); |5:begin|22: dtString(_Data, '');|4:end;|0:|4:end.|
}
Add(Thread,14973397,511,525)
{
FastStop=0
link(onExec,11970995:doWork,[])
}
Если убрать поток, отключить событие потока или в коде убрать создание файла - проблема исчезает. Пока разбираюсь.
карма: 26

0