Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект / Labs / TrdType
.pas unit TrdType; {!!! Зависит от входного языка !!!}
interface
{ Модуль для описания допустимых типов триад }
type
{ Типы триад, соответствующие типам допустимых операций,
а также три дополнительные типа триад:
- CONST - для алгоритма свёртки объектного кода;
- SAME - для алгоритма исключения лишних операций;
- NOP (No OPerations) - для ссылок на конец списка триад. }
TTriadType = (TRD_IF, TRD_OR, TRD_XOR, TRD_AND, TRD_ASSIGN,
TRD_JMP, TRD_CONST, TRD_SAME, TRD_NOP);
{ Массив строковых обозначений триад для вывода их списка на экран }
TTriadStr = array[TTriadType] of string;
const
TriadStr: TTriadStr = ('if','or','xor','and',':=','jmp','C','same','nop');
{ Множество триад, которые являются линейными операциями }
TriadLineSet : set of TTriadType = [TRD_OR, TRD_XOR, TRD_AND];
implementation
end.
interface
{ Модуль для описания допустимых типов триад }
type
{ Типы триад, соответствующие типам допустимых операций,
а также три дополнительные типа триад:
- CONST - для алгоритма свёртки объектного кода;
- SAME - для алгоритма исключения лишних операций;
- NOP (No OPerations) - для ссылок на конец списка триад. }
TTriadType = (TRD_IF, TRD_OR, TRD_XOR, TRD_AND, TRD_ASSIGN,
TRD_JMP, TRD_CONST, TRD_SAME, TRD_NOP);
{ Массив строковых обозначений триад для вывода их списка на экран }
TTriadStr = array[TTriadType] of string;
const
TriadStr: TTriadStr = ('if','or','xor','and',':=','jmp','C','same','nop');
{ Множество триад, которые являются линейными операциями }
TriadLineSet : set of TTriadType = [TRD_OR, TRD_XOR, TRD_AND];
implementation
end.
Соседние файлы в папке Labs