Скачать: CL | DM;

Ищу процедуру из группы 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, но где это прописано?

---

← →
Alex Konshin ©   (2004-03-02 12:55) [5]

Вот что я делаю у себя:

// Инкрементирует счетчики ссылок для полей 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;

Почему так, а не иначе - не помню и соображалка уже спать хочет.

---

← →
Тимохов ©   (2004-03-02 13:01) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c