====== Неиспользуемые таблицы ====== Поскольку типы Alpha и Beta - абстрактные, объекты этих типов не могут быть созданы. Поэтому таблицы-диспетчеры pkg_alphaT и pkg_betaT в процессе выполнения программы не используются. Для типа **Alpha** таблица-диспетчер pkg_alphaT выглядит так: | 00000201h --- дескриптор таблицы | | 0 --- смещение к началу | | &pkg_alphaB --- указатель на описатель типа | | &pkg_size --- метод Alpha'Size | <- ТВФ Alpha | | &pkg_alignment --- метод Alpha'Alignment | | 0 | | 0 | | 0 | | 0 | | &pkg_Oeq --- метод Alpha."=" | | &pkg_assign --- метод Alpha.":=" | | 0 | | 0 | | 0 | | 0 | | 0 | | 0 | | 0 | | 0 --- метод func_alpha | Для интерфейса **Beta** таблица-диспетчер pkg_betaT выглядит так: | 00000401h --- дескриптор таблицы | | 0 --- смещение к началу | | &pkg_betaB --- указатель на описатель типа | | 0 --- метод func_beta | <- ТВФ Beta |