Неиспользуемые таблицы
Поскольку типы 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 |
