Ищу процедуру из группы Finalize+Initialize

← →
Тимохов © (2004-03-02 12:37) [0]

Не подскажите есть ли такая процедура которая бы по участку памяти делала увеличение счетчика ссылок. Например, finalize уменшьшает счетчик ссылок для области, содержащей динамические объекты (дл. строки, дин. массивы, интерфейсы), а вот искомый мной метод должен делать наоборот, увеличивать счетчик ссылок.

Ясно, что документированной процедуры нет. Может есть недокументированная?

Поясню, зачем это надо.
Есть область памяти (массив) из записей, которые содержат строки. Нужно ее СКОПИРОВАТЬ. Сейчас приходится делать это циклом с копированием каждого элемента. Здорово было бы сделать move, а потом, увеличить счетчики ссылок. Вообще пример со строками это частность - в общем случае могут быть дин. массивы, интерфейсы и т.д.

← →
Digitman © (2004-03-02 12:39) [1]

> Здорово было бы сделать move, а потом, увеличить счетчики
> ссылок

сч-к ссылок на что ? на оригинал ? на копию ?

← →
Тимохов © (2004-03-02 12:40) [2]

На копию

← →
Alex Konshin © (2004-03-02 12:43) [3]

Так посмотри в реализацию в System.pas, увидишь, что такая процедура есть.
Мне лень сейчас копать (уже 5 часов утра), но если интересно, можешь помотреть в моем юните Arrays, там я точно это где-то делаю. Кстати, это и есть реализация дин.массива объектов (а не ссылок на объекты!), ну и еще туда индексирование через AVLtree прикручено.

← →
Тимохов © (2004-03-02 12:51) [4]

Alex Konshin © (02.03.04 12:43) [3]

Да есть
procedure _AddRef;
procedure _AddRefArray;
procedure _AddRefRecord;
Это я видел. Вопрос такой почему это все без параметров.
Думаю, понимаю, почему, т.к. надо на асме запихивать параметры.

Все-таки это имхо очень низкоуровнево и недокументировано совсем.
Сделать то можно, но что будет дальше?

Может подскажите, где вообще это finalize описан? _Finalize вижу, а finalize нет. Ясно, что finalize вызывает _finalize, но где это прописано?

Вот что я делаю у себя:
// Инкрементирует счетчики ссылок для полей String,Variant и т.п. procedure TObjArrayItem.IncrementRefCounters; assembler; asm push ebx push esi mov ebx,eax mov esi,eax @@loop: mov esi,[esi] mov edx,[esi].vmtInitTable mov esi,[esi].vmtParent test edx,edx je @@skip call System.@AddRefRecord; mov eax,ebx @@skip: test esi,esi jne @@loop pop esi pop ebx end;
Почему так, а не иначе - не помню и соображалка уже спать хочет.

Спасибо - очень познавательно.

Ищу процедуру из группы Finalize+Initialize Найти похожие ветки