Модератор: Модераторы
Код: Выделить всё
program test;
type
generic TTestType<T> = class
v: T;
public
procedure Proc; virtual; abstract;
end;
TTestTypeSpec = specialize TTestType<Single>;
procedure Test(v: TTestTypeSpec);
begin
v.v := 123;
v.Proc;
end;
exports
Test;
begin
end.
Код: Выделить всё
| mov edx,dword ptr ds:[409000]
| mov dword ptr ds:[eax],edx
| mov edx,dword ptr ds:[eax+4]
| call dword ptr ds:[edx+30]
| ret
zub писал(а):В смысле почему не слева?
Краткость конечно сестра таланта, но не до такой же степени))
что слева?
Дож писал(а):Обычно у людей оперативная память идёт слева направо, а не сверху вниз.
Дож писал(а):VMT может быть в любом месте, у этого нет какой-то необходимости.
zub писал(а):Дож
Как у класса может не быть виртуальных методов если у TObject`а их куча?
В данном контексте рассматривалась как структура, ее можно рассматривать как таблицу.
zub писал(а):У всех классов ссылка на vmt хранится по одному смещению, подробностей непомню, но думаю ТС нам сейчас всё раскажет
Код: Выделить всё
type
generic TTestType<T> = class
private <<<<<<<<<<
v: T;
public
procedure Proc; virtual; abstract;
end;
zub писал(а):Асм получен с включеными оптимизациями?