forked from KolibriOS/kolibrios
fix autobuild
git-svn-id: svn://kolibrios.org@8099 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
maxcodehack
parent
df0d0be7d4
commit
7de0c0e61c
@ -25,9 +25,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
-stk <size> размер стэка в мегабайтах (по умолчанию 2 Мб,
|
-stk <size> размер стэка в мегабайтах (по умолчанию 2 Мб,
|
||||||
допустимо от 1 до 32 Мб)
|
допустимо от 1 до 32 Мб)
|
||||||
-nochk <"ptibcwra"> отключить проверки при выполнении (см. ниже)
|
-nochk <"ptibcwra"> отключить проверки при выполнении (см. ниже)
|
||||||
-lower разрешить ключевые слова и встроенные идентификаторы в
|
|
||||||
нижнем регистре
|
|
||||||
-def <имя> задать символ условной компиляции
|
|
||||||
-ver <major.minor> версия программы (только для kosdll)
|
-ver <major.minor> версия программы (только для kosdll)
|
||||||
|
|
||||||
параметр -nochk задается в виде строки из символов:
|
параметр -nochk задается в виде строки из символов:
|
||||||
@ -74,7 +71,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
9. Добавлен синтаксис для импорта процедур из внешних библиотек
|
9. Добавлен синтаксис для импорта процедур из внешних библиотек
|
||||||
10. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
10. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
||||||
11. Добавлен тип WCHAR
|
11. Добавлен тип WCHAR
|
||||||
12. Добавлена операция конкатенации строковых и символьных констант
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Особенности реализации
|
Особенности реализации
|
||||||
@ -141,45 +137,25 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
PROCEDURE INF(): REAL
|
PROCEDURE INF(): REAL
|
||||||
возвращает специальное вещественное значение "бесконечность"
|
возвращает специальное вещественное значение "бесконечность"
|
||||||
|
|
||||||
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
|
||||||
Копирует n байт памяти из Source в Dest,
|
|
||||||
области Source и Dest не могут перекрываться
|
|
||||||
|
|
||||||
PROCEDURE GET(a: INTEGER;
|
PROCEDURE GET(a: INTEGER;
|
||||||
VAR v: любой основной тип, PROCEDURE, POINTER)
|
VAR v: любой основной тип, PROCEDURE, POINTER)
|
||||||
v := Память[a]
|
v := Память[a]
|
||||||
|
|
||||||
PROCEDURE GET8(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 1)
|
|
||||||
|
|
||||||
PROCEDURE GET16(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 2)
|
|
||||||
|
|
||||||
PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 4)
|
|
||||||
|
|
||||||
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
||||||
Память[a] := x;
|
Память[a] := x;
|
||||||
Если x: BYTE или x: WCHAR, то значение x будет расширено
|
Если x: BYTE или x: WCHAR, то значение x будет расширено
|
||||||
до 32 бит, для записи байтов использовать SYSTEM.PUT8,
|
до 32 бит, для записи байтов использовать SYSTEM.PUT8,
|
||||||
для WCHAR -- SYSTEM.PUT16
|
для WCHAR -- SYSTEM.PUT16
|
||||||
|
|
||||||
PROCEDURE PUT8(a: INTEGER;
|
PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 8 бит (x)
|
Память[a] := младшие 8 бит (x)
|
||||||
|
|
||||||
PROCEDURE PUT16(a: INTEGER;
|
PROCEDURE PUT16(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 16 бит (x)
|
Память[a] := младшие 16 бит (x)
|
||||||
|
|
||||||
PROCEDURE PUT32(a: INTEGER;
|
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
Копирует n байт памяти из Source в Dest,
|
||||||
Память[a] := младшие 32 бит (x)
|
области Source и Dest не могут перекрываться
|
||||||
|
|
||||||
PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER)
|
PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER)
|
||||||
Копирует n байт памяти из Source в Dest.
|
Копирует n байт памяти из Source в Dest.
|
||||||
@ -192,8 +168,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
например:
|
например:
|
||||||
SYSTEM.CODE(08BH, 045H, 008H) (* mov eax, dword [ebp + 08h] *)
|
SYSTEM.CODE(08BH, 045H, 008H) (* mov eax, dword [ebp + 08h] *)
|
||||||
|
|
||||||
Также, в модуле SYSTEM определен тип CARD32 (4 байта). Для типа CARD32 не
|
|
||||||
допускаются никакие явные операции, за исключением присваивания.
|
|
||||||
|
|
||||||
Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях.
|
Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях.
|
||||||
|
|
||||||
@ -202,7 +176,7 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
|
|
||||||
При объявлении процедурных типов и глобальных процедур, после ключевого
|
При объявлении процедурных типов и глобальных процедур, после ключевого
|
||||||
слова PROCEDURE может быть указан флаг соглашения о вызове: [stdcall],
|
слова PROCEDURE может быть указан флаг соглашения о вызове: [stdcall],
|
||||||
[ccall], [ccall16], [windows], [linux], [oberon]. Например:
|
[ccall], [ccall16], [windows], [linux]. Например:
|
||||||
|
|
||||||
PROCEDURE [ccall] MyProc (x, y, z: INTEGER): INTEGER;
|
PROCEDURE [ccall] MyProc (x, y, z: INTEGER): INTEGER;
|
||||||
|
|
||||||
@ -211,8 +185,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
Флаг [windows] - синоним для [stdcall], [linux] - синоним для [ccall16].
|
Флаг [windows] - синоним для [stdcall], [linux] - синоним для [ccall16].
|
||||||
Знак "-" после имени флага ([stdcall-], [linux-], ...) означает, что
|
Знак "-" после имени флага ([stdcall-], [linux-], ...) означает, что
|
||||||
результат процедуры можно игнорировать (не допускается для типа REAL).
|
результат процедуры можно игнорировать (не допускается для типа REAL).
|
||||||
Если флаг не указан или указан флаг [oberon], то принимается внутреннее
|
|
||||||
соглашение о вызове.
|
|
||||||
|
|
||||||
При объявлении типов-записей, после ключевого слова RECORD может быть
|
При объявлении типов-записей, после ключевого слова RECORD может быть
|
||||||
указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей
|
указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей
|
||||||
@ -256,15 +228,6 @@ ARRAY OF CHAR, за исключением встроенной процедур
|
|||||||
процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
|
процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
|
||||||
исходный код в кодировке UTF-8 c BOM.
|
исходный код в кодировке UTF-8 c BOM.
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Конкатенация строковых и символьных констант
|
|
||||||
|
|
||||||
Допускается конкатенация ("+") константных строк и символов типа CHAR:
|
|
||||||
|
|
||||||
str = CHR(39) + "string" + CHR(39); (* str = "'string'" *)
|
|
||||||
|
|
||||||
newline = 0DX + 0AX;
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Проверка и охрана типа нулевого указателя
|
Проверка и охрана типа нулевого указателя
|
||||||
|
|
||||||
@ -314,16 +277,15 @@ Oberon-реализациях выполнение такой операции
|
|||||||
|
|
||||||
Синтаксис импорта:
|
Синтаксис импорта:
|
||||||
|
|
||||||
PROCEDURE [callconv, library, function] proc_name (FormalParam): Type;
|
PROCEDURE [callconv, "library", "function"] proc_name (FormalParam): Type;
|
||||||
|
|
||||||
- callconv -- соглашение о вызове
|
- callconv -- соглашение о вызове
|
||||||
- library -- имя файла динамической библиотеки (строковая константа)
|
- "library" -- имя файла динамической библиотеки
|
||||||
- function -- имя импортируемой процедуры (строковая константа), если
|
- "function" -- имя импортируемой процедуры
|
||||||
указана пустая строка, то имя процедуры = proc_name
|
|
||||||
|
|
||||||
например:
|
например:
|
||||||
|
|
||||||
PROCEDURE [windows, "kernel32.dll", ""] ExitProcess (code: INTEGER);
|
PROCEDURE [windows, "kernel32.dll", "ExitProcess"] exit (code: INTEGER);
|
||||||
|
|
||||||
PROCEDURE [stdcall, "Console.obj", "con_exit"] exit (bCloseWindow: BOOLEAN);
|
PROCEDURE [stdcall, "Console.obj", "con_exit"] exit (bCloseWindow: BOOLEAN);
|
||||||
|
|
||||||
@ -365,8 +327,6 @@ Oberon-реализациях выполнение такой операции
|
|||||||
Вызов транслируется так:
|
Вызов транслируется так:
|
||||||
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
||||||
|
|
||||||
Скрытые параметры необходимо учитывать при связи с внешними приложениями.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Модуль RTL
|
Модуль RTL
|
||||||
|
|
||||||
@ -389,11 +349,8 @@ Oberon-реализациях выполнение такой операции
|
|||||||
|
|
||||||
Разрешается экспортировать только процедуры. Для этого, процедура должна
|
Разрешается экспортировать только процедуры. Для этого, процедура должна
|
||||||
находиться в главном модуле программы, и ее имя должно быть отмечено символом
|
находиться в главном модуле программы, и ее имя должно быть отмечено символом
|
||||||
экспорта ("*"). Нельзя экспортировать процедуры, которые импортированы из
|
экспорта ("*"). KolibriOS DLL всегда экспортируют идентификаторы "version"
|
||||||
других dll-библиотек.
|
(версия программы) и "lib_init" - адрес процедуры инициализации DLL:
|
||||||
|
|
||||||
KolibriOS DLL всегда экспортируют идентификаторы "version" (версия
|
|
||||||
программы) и "lib_init" - адрес процедуры инициализации DLL:
|
|
||||||
|
|
||||||
PROCEDURE [stdcall] lib_init (): INTEGER
|
PROCEDURE [stdcall] lib_init (): INTEGER
|
||||||
|
|
||||||
@ -23,9 +23,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
-stk <size> размер стэка в мегабайтах (по умолчанию 2 Мб,
|
-stk <size> размер стэка в мегабайтах (по умолчанию 2 Мб,
|
||||||
допустимо от 1 до 32 Мб)
|
допустимо от 1 до 32 Мб)
|
||||||
-nochk <"ptibcwra"> отключить проверки при выполнении
|
-nochk <"ptibcwra"> отключить проверки при выполнении
|
||||||
-lower разрешить ключевые слова и встроенные идентификаторы в
|
|
||||||
нижнем регистре
|
|
||||||
-def <имя> задать символ условной компиляции
|
|
||||||
|
|
||||||
параметр -nochk задается в виде строки из символов:
|
параметр -nochk задается в виде строки из символов:
|
||||||
"p" - указатели
|
"p" - указатели
|
||||||
@ -66,7 +63,6 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
9. Добавлен синтаксис для импорта процедур из внешних библиотек
|
9. Добавлен синтаксис для импорта процедур из внешних библиотек
|
||||||
10. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
10. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
||||||
11. Добавлен тип WCHAR
|
11. Добавлен тип WCHAR
|
||||||
12. Добавлена операция конкатенации строковых и символьных констант
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Особенности реализации
|
Особенности реализации
|
||||||
@ -133,46 +129,29 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
PROCEDURE INF(): REAL
|
PROCEDURE INF(): REAL
|
||||||
возвращает специальное вещественное значение "бесконечность"
|
возвращает специальное вещественное значение "бесконечность"
|
||||||
|
|
||||||
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
|
||||||
Копирует n байт памяти из Source в Dest,
|
|
||||||
области Source и Dest не могут перекрываться
|
|
||||||
|
|
||||||
PROCEDURE GET(a: INTEGER;
|
PROCEDURE GET(a: INTEGER;
|
||||||
VAR v: любой основной тип, PROCEDURE, POINTER)
|
VAR v: любой основной тип, PROCEDURE, POINTER)
|
||||||
v := Память[a]
|
v := Память[a]
|
||||||
|
|
||||||
PROCEDURE GET8(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 1)
|
|
||||||
|
|
||||||
PROCEDURE GET16(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 2)
|
|
||||||
|
|
||||||
PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 4)
|
|
||||||
|
|
||||||
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
||||||
Память[a] := x;
|
Память[a] := x;
|
||||||
Если x: BYTE или x: WCHAR, то значение x будет расширено
|
Если x: BYTE или x: WCHAR, то значение x будет расширено
|
||||||
до 64 бит, для записи байтов использовать SYSTEM.PUT8,
|
до 64 бит, для записи байтов использовать SYSTEM.PUT8,
|
||||||
для WCHAR -- SYSTEM.PUT16
|
для WCHAR -- SYSTEM.PUT16
|
||||||
|
|
||||||
PROCEDURE PUT8(a: INTEGER;
|
PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 8 бит (x)
|
Память[a] := младшие 8 бит (x)
|
||||||
|
|
||||||
PROCEDURE PUT16(a: INTEGER;
|
PROCEDURE PUT16(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 16 бит (x)
|
Память[a] := младшие 16 бит (x)
|
||||||
|
|
||||||
PROCEDURE PUT32(a: INTEGER;
|
PROCEDURE PUT32(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR)
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 32 бит (x)
|
Память[a] := младшие 32 бит (x)
|
||||||
|
|
||||||
|
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
||||||
|
Копирует n байт памяти из Source в Dest,
|
||||||
|
области Source и Dest не могут перекрываться
|
||||||
|
|
||||||
PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER)
|
PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER)
|
||||||
Копирует n байт памяти из Source в Dest.
|
Копирует n байт памяти из Source в Dest.
|
||||||
Эквивалентно
|
Эквивалентно
|
||||||
@ -194,8 +173,8 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
Системные флаги
|
Системные флаги
|
||||||
|
|
||||||
При объявлении процедурных типов и глобальных процедур, после ключевого
|
При объявлении процедурных типов и глобальных процедур, после ключевого
|
||||||
слова PROCEDURE может быть указан флаг соглашения о вызове:
|
слова PROCEDURE может быть указан флаг соглашения о вызове: [win64], [systemv],
|
||||||
[win64], [systemv], [windows], [linux], [oberon].
|
[windows], [linux].
|
||||||
Например:
|
Например:
|
||||||
|
|
||||||
PROCEDURE [win64] MyProc (x, y, z: INTEGER): INTEGER;
|
PROCEDURE [win64] MyProc (x, y, z: INTEGER): INTEGER;
|
||||||
@ -203,9 +182,9 @@ UTF-8 с BOM-сигнатурой.
|
|||||||
Флаг [windows] - синоним для [win64], [linux] - синоним для [systemv].
|
Флаг [windows] - синоним для [win64], [linux] - синоним для [systemv].
|
||||||
Знак "-" после имени флага ([win64-], [linux-], ...) означает, что
|
Знак "-" после имени флага ([win64-], [linux-], ...) означает, что
|
||||||
результат процедуры можно игнорировать (не допускается для типа REAL).
|
результат процедуры можно игнорировать (не допускается для типа REAL).
|
||||||
Если флаг не указан или указан флаг [oberon], то принимается внутреннее
|
Если флаг не указан, то принимается внутреннее соглашение о вызове.
|
||||||
соглашение о вызове. [win64] и [systemv] используются для связи с
|
[win64] и [systemv] используются для связи с операционной системой и внешними
|
||||||
операционной системой и внешними приложениями.
|
приложениями.
|
||||||
|
|
||||||
При объявлении типов-записей, после ключевого слова RECORD может быть
|
При объявлении типов-записей, после ключевого слова RECORD может быть
|
||||||
указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей
|
указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей
|
||||||
@ -249,15 +228,6 @@ ARRAY OF CHAR, за исключением встроенной процедур
|
|||||||
процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
|
процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
|
||||||
исходный код в кодировке UTF-8 c BOM.
|
исходный код в кодировке UTF-8 c BOM.
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Конкатенация строковых и символьных констант
|
|
||||||
|
|
||||||
Допускается конкатенация ("+") константных строк и символов типа CHAR:
|
|
||||||
|
|
||||||
str = CHR(39) + "string" + CHR(39); (* str = "'string'" *)
|
|
||||||
|
|
||||||
newline = 0DX + 0AX;
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Проверка и охрана типа нулевого указателя
|
Проверка и охрана типа нулевого указателя
|
||||||
|
|
||||||
@ -307,18 +277,16 @@ Oberon-реализациях выполнение такой операции
|
|||||||
|
|
||||||
Синтаксис импорта:
|
Синтаксис импорта:
|
||||||
|
|
||||||
PROCEDURE [callconv, library, function] proc_name (FormalParam): Type;
|
PROCEDURE [callconv, "library", "function"] proc_name (FormalParam): Type;
|
||||||
|
|
||||||
- callconv -- соглашение о вызове
|
- callconv -- соглашение о вызове
|
||||||
- library -- имя файла динамической библиотеки (строковая константа)
|
- "library" -- имя файла динамической библиотеки
|
||||||
- function -- имя импортируемой процедуры (строковая константа), если
|
- "function" -- имя импортируемой процедуры
|
||||||
указана пустая строка, то имя процедуры = proc_name
|
|
||||||
|
|
||||||
например:
|
например:
|
||||||
|
|
||||||
PROCEDURE [windows, "kernel32.dll", "ExitProcess"] exit (code: INTEGER);
|
PROCEDURE [win64, "kernel32.dll", "ExitProcess"] exit (code: INTEGER);
|
||||||
|
|
||||||
PROCEDURE [windows, "kernel32.dll", ""] GetTickCount (): INTEGER;
|
|
||||||
|
|
||||||
В конце объявления может быть добавлено (необязательно) "END proc_name;"
|
В конце объявления может быть добавлено (необязательно) "END proc_name;"
|
||||||
|
|
||||||
@ -333,7 +301,7 @@ Oberon-реализациях выполнение такой операции
|
|||||||
соглашения о вызове:
|
соглашения о вызове:
|
||||||
|
|
||||||
VAR
|
VAR
|
||||||
ExitProcess: PROCEDURE [windows] (code: INTEGER);
|
ExitProcess: PROCEDURE [win64] (code: INTEGER);
|
||||||
|
|
||||||
Для Linux, импортированные процедуры не реализованы.
|
Для Linux, импортированные процедуры не реализованы.
|
||||||
|
|
||||||
@ -353,8 +321,6 @@ Oberon-реализациях выполнение такой операции
|
|||||||
Вызов транслируется так:
|
Вызов транслируется так:
|
||||||
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
||||||
|
|
||||||
Скрытые параметры необходимо учитывать при связи с внешними приложениями.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
Модуль RTL
|
Модуль RTL
|
||||||
|
|
||||||
@ -377,5 +343,4 @@ Oberon-реализациях выполнение такой операции
|
|||||||
|
|
||||||
Разрешается экспортировать только процедуры. Для этого, процедура должна
|
Разрешается экспортировать только процедуры. Для этого, процедура должна
|
||||||
находиться в главном модуле программы, ее имя должно быть отмечено символом
|
находиться в главном модуле программы, ее имя должно быть отмечено символом
|
||||||
экспорта ("*") и должно быть указано соглашение о вызове. Нельзя
|
экспорта ("*") и должно быть указано соглашение о вызове.
|
||||||
экспортировать процедуры, которые импортированы из других dll-библиотек.
|
|
||||||
@ -1,36 +0,0 @@
|
|||||||
Условная компиляция
|
|
||||||
|
|
||||||
синтаксис:
|
|
||||||
|
|
||||||
$IF "(" ident {"|" ident} ")"
|
|
||||||
<...>
|
|
||||||
{$ELSIF "(" ident {"|" ident} ")"}
|
|
||||||
<...>
|
|
||||||
[$ELSE]
|
|
||||||
<...>
|
|
||||||
$END
|
|
||||||
|
|
||||||
где ident:
|
|
||||||
- одно из возможных значений параметра <target> в командной строке
|
|
||||||
- пользовательский идентификатор, переданный с ключом -def при компиляции
|
|
||||||
|
|
||||||
примеры:
|
|
||||||
|
|
||||||
$IF (win64con | win64gui | win64dll)
|
|
||||||
OS := "WIN64";
|
|
||||||
$ELSIF (win32con | win32gui | win32dll)
|
|
||||||
OS := "WIN32";
|
|
||||||
$ELSIF (linux64exe | linux64so)
|
|
||||||
OS := "LINUX64";
|
|
||||||
$ELSIF (linux32exe | linux32so)
|
|
||||||
OS := "LINUX32";
|
|
||||||
$ELSE
|
|
||||||
OS := "UNKNOWN";
|
|
||||||
$END
|
|
||||||
|
|
||||||
|
|
||||||
$IF (CPUX86_64) (* -def CPUX86_64 *)
|
|
||||||
bit_depth := 64;
|
|
||||||
$ELSE
|
|
||||||
bit_depth := 32;
|
|
||||||
$END
|
|
||||||
@ -1,520 +0,0 @@
|
|||||||
Компилятор языка программирования Oberon-07/16 для
|
|
||||||
микроконтроллеров MSP430x{1,2}xx.
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Параметры командной строки
|
|
||||||
|
|
||||||
Вход - текстовые файлы модулей с расширением ".ob07", кодировка ANSI или
|
|
||||||
UTF-8 с BOM-сигнатурой.
|
|
||||||
Выход - hex-файл прошивки.
|
|
||||||
Параметры:
|
|
||||||
1) имя главного модуля
|
|
||||||
2) "msp430"
|
|
||||||
3) необязательные параметры-ключи
|
|
||||||
-out <file_name> имя результирующего файла; по умолчанию,
|
|
||||||
совпадает с именем главного модуля, но с расширением ".hex"
|
|
||||||
-ram <size> размер ОЗУ в байтах (128 - 2048) по умолчанию 128
|
|
||||||
-rom <size> размер ПЗУ в байтах (2048 - 24576) по умолчанию 2048
|
|
||||||
-nochk <"ptibcwra"> отключить проверки при выполнении
|
|
||||||
-lower разрешить ключевые слова и встроенные идентификаторы в
|
|
||||||
нижнем регистре
|
|
||||||
-def <имя> задать символ условной компиляции
|
|
||||||
|
|
||||||
параметр -nochk задается в виде строки из символов:
|
|
||||||
"p" - указатели
|
|
||||||
"t" - типы
|
|
||||||
"i" - индексы
|
|
||||||
"b" - неявное приведение INTEGER к BYTE
|
|
||||||
"c" - диапазон аргумента функции CHR
|
|
||||||
"a" - все проверки
|
|
||||||
|
|
||||||
Порядок символов может быть любым. Наличие в строке того или иного
|
|
||||||
символа отключает соответствующую проверку.
|
|
||||||
|
|
||||||
Например: -nochk it - отключить проверку индексов и охрану типа.
|
|
||||||
-nochk a - отключить все отключаемые проверки.
|
|
||||||
|
|
||||||
Например:
|
|
||||||
|
|
||||||
Compiler.exe "C:\example.ob07" msp430 -ram 128 -rom 4096 -nochk pti
|
|
||||||
Compiler.exe "C:\example.ob07" msp430 -out "C:\Ex1.hex" -ram 512 -rom 16384
|
|
||||||
|
|
||||||
В случае успешной компиляции, компилятор передает код завершения 0, иначе 1.
|
|
||||||
При работе компилятора в KolibriOS, код завершения не передается.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Отличия от оригинала
|
|
||||||
|
|
||||||
1. Расширен псевдомодуль SYSTEM
|
|
||||||
2. В идентификаторах допускается символ "_"
|
|
||||||
3. Усовершенствован оператор CASE (добавлены константные выражения в
|
|
||||||
метках вариантов и необязательная ветка ELSE)
|
|
||||||
4. Расширен набор стандартных процедур
|
|
||||||
5. Семантика охраны/проверки типа уточнена для нулевого указателя
|
|
||||||
6. Добавлены однострочные комментарии (начинаются с пары символов "//")
|
|
||||||
7. Разрешено наследование от типа-указателя
|
|
||||||
8. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
|
||||||
9. Добавлена операция конкатенации строковых и символьных констант
|
|
||||||
10. Добавлены кодовые процедуры
|
|
||||||
11. Не реализована вещественная арифметика
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Особенности реализации
|
|
||||||
|
|
||||||
1. Основные типы
|
|
||||||
|
|
||||||
Тип Диапазон значений Размер, байт
|
|
||||||
|
|
||||||
INTEGER -32768 .. 32767 2
|
|
||||||
CHAR символ ASCII (0X .. 0FFX) 1
|
|
||||||
BOOLEAN FALSE, TRUE 1
|
|
||||||
SET множество из целых чисел {0 .. 15} 2
|
|
||||||
BYTE 0 .. 255 1
|
|
||||||
|
|
||||||
2. Максимальная длина идентификаторов - 1024 символов
|
|
||||||
3. Максимальная длина строковых констант - 1024 символов (UTF-8)
|
|
||||||
4. Максимальная размерность открытых массивов - 5
|
|
||||||
5. Процедура NEW заполняет нулями выделенный блок памяти
|
|
||||||
6. Локальные переменные инициализируются нулями
|
|
||||||
7. В отличие от многих Oberon-реализаций, сборщик мусора и динамическая
|
|
||||||
модульность отсутствуют
|
|
||||||
8. Тип BYTE в выражениях всегда приводится к INTEGER
|
|
||||||
9. Контроль переполнения значений выражений не производится
|
|
||||||
10. Ошибки времени выполнения:
|
|
||||||
|
|
||||||
номер ошибка
|
|
||||||
|
|
||||||
1 ASSERT(x), при x = FALSE
|
|
||||||
2 разыменование нулевого указателя
|
|
||||||
3 целочисленное деление на неположительное число
|
|
||||||
4 вызов процедуры через процедурную переменную с нулевым значением
|
|
||||||
5 ошибка охраны типа
|
|
||||||
6 нарушение границ массива
|
|
||||||
7 непредусмотренное значение выражения в операторе CASE
|
|
||||||
8 ошибка копирования массивов v := x, если LEN(v) < LEN(x)
|
|
||||||
9 CHR(x), если (x < 0) OR (x > 255)
|
|
||||||
11 неявное приведение x:INTEGER к v:BYTE, если (x < 0) OR (x > 255)
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Псевдомодуль SYSTEM
|
|
||||||
|
|
||||||
Псевдомодуль SYSTEM содержит низкоуровневые и небезопасные процедуры,
|
|
||||||
ошибки при использовании процедур псевдомодуля SYSTEM могут привести к
|
|
||||||
повреждению данных времени выполнения и аварийному завершению программы.
|
|
||||||
|
|
||||||
PROCEDURE ADR(v: любой тип): INTEGER
|
|
||||||
v - переменная или процедура;
|
|
||||||
возвращает адрес v
|
|
||||||
|
|
||||||
PROCEDURE SADR(x: строковая константа): INTEGER
|
|
||||||
возвращает адрес x
|
|
||||||
|
|
||||||
PROCEDURE SIZE(T): INTEGER
|
|
||||||
возвращает размер типа T
|
|
||||||
|
|
||||||
PROCEDURE TYPEID(T): INTEGER
|
|
||||||
T - тип-запись или тип-указатель,
|
|
||||||
возвращает номер типа в таблице типов-записей
|
|
||||||
|
|
||||||
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
|
||||||
Копирует n байт памяти из Source в Dest,
|
|
||||||
области Source и Dest не могут перекрываться
|
|
||||||
|
|
||||||
PROCEDURE GET(a: INTEGER;
|
|
||||||
VAR v: любой основной тип, PROCEDURE, POINTER)
|
|
||||||
v := Память[a]
|
|
||||||
|
|
||||||
PROCEDURE GET8(a: INTEGER; VAR x: INTEGER, SET, BYTE, CHAR)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 1)
|
|
||||||
|
|
||||||
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
|
||||||
Память[a] := x;
|
|
||||||
Если x: BYTE, то значение x будет расширено до 16 бит,
|
|
||||||
для записи байтов использовать SYSTEM.PUT8
|
|
||||||
|
|
||||||
PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR)
|
|
||||||
Память[a] := младшие 8 бит (x)
|
|
||||||
|
|
||||||
PROCEDURE CODE(word1, word2,... : INTEGER)
|
|
||||||
Вставка машинного кода,
|
|
||||||
word1, word2 ... - целочисленные константы (константные
|
|
||||||
выражения) - машинные слова, например:
|
|
||||||
SYSTEM.CODE(0D032H, 0010H) (* BIS #16, SR; CPUOFF *)
|
|
||||||
|
|
||||||
|
|
||||||
Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Оператор CASE
|
|
||||||
|
|
||||||
Синтаксис оператора CASE:
|
|
||||||
|
|
||||||
CaseStatement =
|
|
||||||
CASE Expression OF Сase {"|" Сase}
|
|
||||||
[ELSE StatementSequence] END.
|
|
||||||
Case = [CaseLabelList ":" StatementSequence].
|
|
||||||
CaseLabelList = CaseLabels {"," CaseLabels}.
|
|
||||||
CaseLabels = ConstExpression [".." ConstExpression].
|
|
||||||
|
|
||||||
Например:
|
|
||||||
|
|
||||||
CASE x OF
|
|
||||||
|-1: DoSomething1
|
|
||||||
| 1: DoSomething2
|
|
||||||
| 0: DoSomething3
|
|
||||||
ELSE
|
|
||||||
DoSomething4
|
|
||||||
END
|
|
||||||
|
|
||||||
В метках вариантов можно использовать константные выражения, ветка ELSE
|
|
||||||
необязательна. Если значение x не соответствует ни одному варианту и ELSE
|
|
||||||
отсутствует, то программа прерывается с ошибкой времени выполнения.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Конкатенация строковых и символьных констант
|
|
||||||
|
|
||||||
Допускается конкатенация ("+") константных строк и символов типа CHAR:
|
|
||||||
|
|
||||||
str = CHR(39) + "string" + CHR(39); (* str = "'string'" *)
|
|
||||||
|
|
||||||
newline = 0DX + 0AX;
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Проверка и охрана типа нулевого указателя
|
|
||||||
|
|
||||||
Оригинальное сообщение о языке не определяет поведение программы при
|
|
||||||
выполнении охраны p(T) и проверки типа p IS T при p = NIL. Во многих
|
|
||||||
Oberon-реализациях выполнение такой операции приводит к ошибке времени
|
|
||||||
выполнения. В данной реализации охрана типа нулевого указателя не приводит к
|
|
||||||
ошибке, а проверка типа дает результат FALSE. В ряде случаев это позволяет
|
|
||||||
значительно сократить частоту применения охраны типа.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Дополнительные стандартные процедуры
|
|
||||||
|
|
||||||
|
|
||||||
COPY (x: ARRAY OF CHAR; VAR v: ARRAY OF CHAR);
|
|
||||||
v := x;
|
|
||||||
Если LEN(v) < LEN(x), то строка x будет скопирована
|
|
||||||
не полностью.
|
|
||||||
|
|
||||||
LSR (x, n: INTEGER): INTEGER
|
|
||||||
Логический сдвиг x на n бит вправо.
|
|
||||||
|
|
||||||
MIN (a, b: INTEGER): INTEGER
|
|
||||||
Минимум из двух значений.
|
|
||||||
|
|
||||||
MAX (a, b: INTEGER): INTEGER
|
|
||||||
Максимум из двух значений.
|
|
||||||
|
|
||||||
BITS (x: INTEGER): SET
|
|
||||||
Интерпретирует x как значение типа SET.
|
|
||||||
Выполняется на этапе компиляции.
|
|
||||||
|
|
||||||
LENGTH (s: ARRAY OF CHAR): INTEGER
|
|
||||||
Длина 0X-завершенной строки s, без учета символа 0X.
|
|
||||||
Если символ 0X отсутствует, функция возвращает длину
|
|
||||||
массива s. s не может быть константой.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Использование регистров общего назначения R4 - R15
|
|
||||||
|
|
||||||
R4 - R7: регистровый стэк (промежуточные значения выражений)
|
|
||||||
R8 - R13: не используются
|
|
||||||
R14: указатель кучи
|
|
||||||
R15: используется при обработке прерываний
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Вызов процедур и кадр стэка
|
|
||||||
|
|
||||||
Правила вызова похожи на соглашение cdecl (x86):
|
|
||||||
- параметры передаются через стэк справа налево
|
|
||||||
- результат, если есть, передается через регистр R4
|
|
||||||
- вызывающая процедура очищает стэк
|
|
||||||
|
|
||||||
Состояние стэка при выполнении процедуры:
|
|
||||||
|
|
||||||
меньшие адреса <- |var3|var2|var1|PC|arg1|arg2|arg3| -> бОльшие адреса
|
|
||||||
|
|
||||||
PC - значение регистра PC перед вызовом (адрес возврата)
|
|
||||||
argX - параметры в порядке объявления (слева направо)
|
|
||||||
varX - локальные переменные в порядке использования в процедуре
|
|
||||||
|
|
||||||
Размер каждого элемента в стэке (кроме локальных переменных структурных
|
|
||||||
типов) - 1 машинное слово (2 байта). Структурные переменные (массивы и
|
|
||||||
записи) занимают место в стэке в соответствии с их размером (с учетом
|
|
||||||
выравнивания).
|
|
||||||
|
|
||||||
Размещение локальных переменных зависит от их размеров и порядка
|
|
||||||
использования, и в общем случае неопределенно. Если переменная не
|
|
||||||
используется явно, то компилятор не выделяет для нее место в стэке.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Скрытые параметры процедур
|
|
||||||
|
|
||||||
Некоторые процедуры могут иметь скрытые параметры, они отсутствуют в списке
|
|
||||||
формальных параметров, но учитываются компилятором при трансляции вызовов.
|
|
||||||
Это возможно в следующих случаях:
|
|
||||||
|
|
||||||
1. Процедура имеет формальный параметр открытый массив:
|
|
||||||
PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL);
|
|
||||||
Вызов транслируется так:
|
|
||||||
Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x))
|
|
||||||
2. Процедура имеет формальный параметр-переменную типа RECORD:
|
|
||||||
PROCEDURE Proc (VAR x: Rec);
|
|
||||||
Вызов транслируется так:
|
|
||||||
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Кодовые процедуры
|
|
||||||
|
|
||||||
Компилятор поддерживает процедуры, написаные в машинных кодах.
|
|
||||||
Синтаксис:
|
|
||||||
|
|
||||||
PROCEDURE "[code]" имя [ (параметры): ТипРезультата ]
|
|
||||||
МашСлово, МашСлово,... МашСлово;
|
|
||||||
|
|
||||||
";" после заголовка и END "имя" в конце процедуры не ставятся.
|
|
||||||
МашСлово - целочисленная константа (в том числе и константное выражение).
|
|
||||||
Например:
|
|
||||||
|
|
||||||
PROCEDURE [code] asr (n, x: INTEGER): INTEGER (* ASR(x, n) -> R4 *)
|
|
||||||
4115H, 2, (* MOV 2(SP), R5; R5 <- n *)
|
|
||||||
4114H, 4, (* MOV 4(SP), R4; R4 <- x *)
|
|
||||||
0F035H, 15, (* AND #15, R5 *)
|
|
||||||
2400H + 3, (* JZ L1 *)
|
|
||||||
(* L2: *)
|
|
||||||
1104H, (* RRA R4 *)
|
|
||||||
8315H, (* SUB #1, R5 *)
|
|
||||||
2000H + 400H - 3; (* JNZ L2 *)
|
|
||||||
(* L1: *)
|
|
||||||
|
|
||||||
Компилятор автоматически добавляет к такой процедуре команду RET.
|
|
||||||
Способ передачи параметров и результата не изменяется.
|
|
||||||
|
|
||||||
Кодовые процедуры можно использовать также и для добавления в программу
|
|
||||||
константных данных:
|
|
||||||
|
|
||||||
PROCEDURE [code] sqr
|
|
||||||
0, 1, 4, 9, 16, 25, 36, 49, 64, 81;
|
|
||||||
|
|
||||||
Получить адрес такой "процедуры": SYSTEM.ADR(sqr).
|
|
||||||
Получить адрес n-го машинного слова: SYSTEM.ADR(sqr) + n * 2.
|
|
||||||
|
|
||||||
Чтобы использовать кодовые процедуры, необходимо импортировать псевдомодуль
|
|
||||||
SYSTEM.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Обработка прерываний
|
|
||||||
|
|
||||||
При появлении запроса на прерывание, процессор:
|
|
||||||
- помещает в стэк значение регистра PC
|
|
||||||
- помещает в стэк значение регистра SR
|
|
||||||
- очищает регистр SR
|
|
||||||
- выполняет переход по адресу IV[priority], где
|
|
||||||
IV - таблица векторов прерываний,
|
|
||||||
priority - приоритет прерывания (номер элемента в таблице IV) (0..30)
|
|
||||||
|
|
||||||
Компилятор генерирует код обработки прерываний:
|
|
||||||
|
|
||||||
; IV[0] = адрес следующей команды
|
|
||||||
PUSH #0 ; поместить в стэк приоритет прерывания
|
|
||||||
JMP Label ; перейти к обработчику
|
|
||||||
|
|
||||||
; IV[1] = адрес следующей команды
|
|
||||||
PUSH #1 ; поместить в стэк приоритет прерывания
|
|
||||||
JMP Label ; перейти к обработчику
|
|
||||||
|
|
||||||
...
|
|
||||||
; IV[priority] = адрес следующей команды
|
|
||||||
PUSH #priority ; поместить в стэк приоритет прерывания
|
|
||||||
JMP Label ; перейти к обработчику
|
|
||||||
|
|
||||||
...
|
|
||||||
; IV[30] = адрес следующей команды
|
|
||||||
PUSH #30 ; поместить в стэк приоритет прерывания
|
|
||||||
|
|
||||||
Label:
|
|
||||||
MOV SP, R15 ; настроить R15 на структуру данных прерывания (см. далее)
|
|
||||||
PUSH R4 ; сохранить рабочие регистры (R4 - R7)
|
|
||||||
...
|
|
||||||
PUSH R7
|
|
||||||
PUSH R15 ; передать параметр interrupt в обработчик (см. далее)
|
|
||||||
PUSH @R15 ; передать параметр priority в обработчик (см. далее)
|
|
||||||
CALL int ; вызвать обработчик (см. далее)
|
|
||||||
ADD #4, SP ; удалить из стэка параметры обработчика
|
|
||||||
POP R7 ; восстановить рабочие регистры (R7 - R4)
|
|
||||||
...
|
|
||||||
POP R4
|
|
||||||
ADD #2, SP ; удалить из стэка значение priority
|
|
||||||
RETI ; возврат из прерывания (восстановить SR и PC)
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Обработка ошибок
|
|
||||||
|
|
||||||
В случае возникновения ошибки при выполнении программы, будет вызван общий
|
|
||||||
обработчик ошибок, который:
|
|
||||||
|
|
||||||
- запрещает прерывания
|
|
||||||
- сбрасывает стэк (во избежание переполнения в процессе обработки ошибки)
|
|
||||||
- передает параметры в пользовательский обработчик (см. далее)
|
|
||||||
- вызывает пользовательский обработчик (если он назначен)
|
|
||||||
- повторно запрещает прерывания
|
|
||||||
- выключает CPU и все тактовые сигналы
|
|
||||||
|
|
||||||
Если выключать CPU не требуется, то пользовательский обработчик может,
|
|
||||||
например, перезапустить программу.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Инициализация и финализация программы
|
|
||||||
|
|
||||||
В начало программы компилятор вставляет код, который:
|
|
||||||
- инициализирует регистры SP и R14
|
|
||||||
- выключает сторожевой таймер
|
|
||||||
- назначает пустой обработчик прерываний
|
|
||||||
- сбрасывает обработчик ошибок
|
|
||||||
|
|
||||||
В конец программы добавляет команду
|
|
||||||
BIS #16, SR; выключить CPU
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Структура ОЗУ (RAM)
|
|
||||||
|
|
||||||
начало -> | спец. переменные | глобальные переменные | куча/стэк | <- конец
|
|
||||||
|
|
||||||
Компилятор поддерживает размер ОЗУ 128..2048 байт. В нижних адресах
|
|
||||||
располагаются специальные переменные, и далее пользовательские глобальные
|
|
||||||
переменные. Оставшаяся часть памяти отводится для кучи и стэка (не менее 64
|
|
||||||
байта). При старте программы, в регистр R14 записывается адрес начала области
|
|
||||||
кучи/стэка, а регистр SP настраивается на конец ОЗУ (начало_ОЗУ + размер_ОЗУ).
|
|
||||||
При выделении памяти процедурой NEW, значение регистра R14 увеличивается (если
|
|
||||||
есть свободная память). Таким образом, стэк и куча растут навстречу друг
|
|
||||||
другу. Проверка переполнения стэка не производится.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Структура ПЗУ (RОM)
|
|
||||||
|
|
||||||
начало -> |код|свободная область|спец. данные|векторы прерываний| <- конец
|
|
||||||
|
|
||||||
Компилятор поддерживает размер ПЗУ 2048..24576 байт. В верхних адресах
|
|
||||||
располагается таблица векторов прерываний (64 байта), адреса 0FFC0H..0FFFFH.
|
|
||||||
Непосредственно перед ней размещаются специальные данные. Программный
|
|
||||||
код начинается с адреса (10000H - размер_ПЗУ), этот адрес является также и
|
|
||||||
точкой входа в программу. Между кодом и спец. данными может оставаться
|
|
||||||
свободное пространство. Если размер ПЗУ больше, чем указан при компиляции,
|
|
||||||
то перед кодом будет свободная область. Таким способом можно зарезервировать
|
|
||||||
нижние сегменты флэш-памяти для записи во время выполнения программы.
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
MODULE MSP430
|
|
||||||
|
|
||||||
CONST
|
|
||||||
|
|
||||||
биты регистра SR:
|
|
||||||
|
|
||||||
GIE = {3}
|
|
||||||
CPUOFF = {4}
|
|
||||||
OSCOFF = {5}
|
|
||||||
SCG0 = {6}
|
|
||||||
SCG1 = {7}
|
|
||||||
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
|
|
||||||
TInterrupt = RECORD priority: INTEGER; sr: SET; pc: INTEGER END
|
|
||||||
структура данных прерывания
|
|
||||||
|
|
||||||
priority - приоритет прерывания:
|
|
||||||
|
|
||||||
адрес приоритет
|
|
||||||
0FFFEH 31
|
|
||||||
0FFFCH 30
|
|
||||||
0FFFAH 29
|
|
||||||
...
|
|
||||||
0FFC0H 0
|
|
||||||
|
|
||||||
sr - сохраненное значение регистра SR
|
|
||||||
pc - сохраненное значение регистра PC
|
|
||||||
|
|
||||||
|
|
||||||
TTrapProc = PROCEDURE (modNum, modName, err, line: INTEGER);
|
|
||||||
Процедура-обработчик ошибок.
|
|
||||||
|
|
||||||
modNum - номер модуля (в отчете о компиляции:
|
|
||||||
compiling (modNum) "modName" )
|
|
||||||
modName - адрес имени модуля
|
|
||||||
err - номер ошибки
|
|
||||||
line - номер строки
|
|
||||||
|
|
||||||
|
|
||||||
TIntProc = PROCEDURE (priority: INTEGER; interrupt: TInterrupt)
|
|
||||||
Процедура-обработчик прерываний.
|
|
||||||
|
|
||||||
priority - приоритет прерывания
|
|
||||||
interrupt - структура данных прерывания
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE SetTrapProc (TrapProc: TTrapProc)
|
|
||||||
Назначить обработчик ошибок.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE SetIntProc (IntProc: TIntProc)
|
|
||||||
Назначить обработчик прерываний.
|
|
||||||
|
|
||||||
Нельзя вызывать эту процедуру с параметром NIL, т. к. для экономии
|
|
||||||
тактов, значение адреса обработчика прерываний не проверяется на NIL.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE Restart
|
|
||||||
Перезапустить программу.
|
|
||||||
При этом: очищается регистр SR, повторно выполняется код инициализации
|
|
||||||
программы (см. выше). Всё прочее состояние ОЗУ и регистров устройств
|
|
||||||
сохраняется.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE SetIntPC (interrupt: TInterrupt; NewPC: INTEGER)
|
|
||||||
interrupt.pc := NewPC
|
|
||||||
После возврата из прерывания, регистр PC получит значение NewPC.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE SetIntSR (interrupt: TInterrupt; NewSR: SET)
|
|
||||||
interrupt.sr := NewSR
|
|
||||||
После возврата из прерывания, регистр SR получит значение NewSR.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE DInt
|
|
||||||
Запретить прерывания.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE EInt
|
|
||||||
Разрешить прерывания.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE CpuOff
|
|
||||||
Выключить CPU (установить бит CPUOFF регистра SR).
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE Halt
|
|
||||||
Запретить прерывания, выключить CPU и все тактовые сигналы.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE SetSR (bits: SET)
|
|
||||||
Установить биты bits регистра SR.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE ClrSR (bits: SET)
|
|
||||||
Сбросить биты bits регистра SR.
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE GetFreeFlash (VAR address, size: INTEGER)
|
|
||||||
Получить адрес и размер свободной области Flash/ROM
|
|
||||||
(между кодом и данными).
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE Delay (n: INTEGER)
|
|
||||||
Задержка выполнения программы на 1000*n тактов,
|
|
||||||
но не менее чем на 2000 тактов.
|
|
||||||
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
@ -1,404 +0,0 @@
|
|||||||
Компилятор языка программирования Oberon-07/16 для
|
|
||||||
микроконтроллеров STM32 Cortex-M3.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Параметры командной строки
|
|
||||||
|
|
||||||
Вход - текстовые файлы модулей с расширением ".ob07", кодировка ANSI или
|
|
||||||
UTF-8 с BOM-сигнатурой.
|
|
||||||
Выход - hex-файл прошивки.
|
|
||||||
Параметры:
|
|
||||||
1) имя главного модуля
|
|
||||||
2) "stm32cm3"
|
|
||||||
3) необязательные параметры-ключи
|
|
||||||
-out <file_name> имя результирующего файла; по умолчанию,
|
|
||||||
совпадает с именем главного модуля, но с расширением ".hex"
|
|
||||||
-ram <size> размер ОЗУ в килобайтах (4 - 65536) по умолчанию 4
|
|
||||||
-rom <size> размер ПЗУ в килобайтах (16 - 65536) по умолчанию 16
|
|
||||||
-nochk <"ptibcwra"> отключить проверки при выполнении
|
|
||||||
-lower разрешить ключевые слова и встроенные идентификаторы в
|
|
||||||
нижнем регистре
|
|
||||||
-def <имя> задать символ условной компиляции
|
|
||||||
|
|
||||||
параметр -nochk задается в виде строки из символов:
|
|
||||||
"p" - указатели
|
|
||||||
"t" - типы
|
|
||||||
"i" - индексы
|
|
||||||
"b" - неявное приведение INTEGER к BYTE
|
|
||||||
"c" - диапазон аргумента функции CHR
|
|
||||||
"w" - диапазон аргумента функции WCHR
|
|
||||||
"r" - эквивалентно "bcw"
|
|
||||||
"a" - все проверки
|
|
||||||
|
|
||||||
Порядок символов может быть любым. Наличие в строке того или иного
|
|
||||||
символа отключает соответствующую проверку.
|
|
||||||
|
|
||||||
Например: -nochk it - отключить проверку индексов и охрану типа.
|
|
||||||
-nochk a - отключить все отключаемые проверки.
|
|
||||||
|
|
||||||
Например:
|
|
||||||
|
|
||||||
Compiler.exe "C:\example.ob07" stm32cm3 -ram 32 -rom 256 -nochk pti
|
|
||||||
Compiler.exe "C:\example.ob07" stm32cm3 -out "C:\Ex1.hex" -ram 8 -rom 32
|
|
||||||
|
|
||||||
В случае успешной компиляции, компилятор передает код завершения 0, иначе 1.
|
|
||||||
При работе компилятора в KolibriOS, код завершения не передается.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Отличия от оригинала
|
|
||||||
|
|
||||||
1. Расширен псевдомодуль SYSTEM
|
|
||||||
2. В идентификаторах допускается символ "_"
|
|
||||||
3. Усовершенствован оператор CASE (добавлены константные выражения в
|
|
||||||
метках вариантов и необязательная ветка ELSE)
|
|
||||||
4. Расширен набор стандартных процедур
|
|
||||||
5. Семантика охраны/проверки типа уточнена для нулевого указателя
|
|
||||||
6. Добавлены однострочные комментарии (начинаются с пары символов "//")
|
|
||||||
7. Разрешено наследование от типа-указателя
|
|
||||||
8. "Строки" можно заключать также в одиночные кавычки: 'строка'
|
|
||||||
9. Добавлен тип WCHAR
|
|
||||||
10. Добавлена операция конкатенации строковых и символьных констант
|
|
||||||
11. Добавлены кодовые процедуры
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Особенности реализации
|
|
||||||
|
|
||||||
1. Основные типы
|
|
||||||
|
|
||||||
Тип Диапазон значений Размер, байт
|
|
||||||
|
|
||||||
INTEGER -2147483648 .. 2147483647 4
|
|
||||||
REAL 1.17E-38 .. 3.40E+38 4
|
|
||||||
CHAR символ ASCII (0X .. 0FFX) 1
|
|
||||||
BOOLEAN FALSE, TRUE 1
|
|
||||||
SET множество из целых чисел {0 .. 31} 4
|
|
||||||
BYTE 0 .. 255 1
|
|
||||||
WCHAR символ юникода (0X .. 0FFFFX) 2
|
|
||||||
|
|
||||||
2. Максимальная длина идентификаторов - 1024 символов
|
|
||||||
3. Максимальная длина строковых констант - 1024 символов (UTF-8)
|
|
||||||
4. Максимальная размерность открытых массивов - 5
|
|
||||||
5. Процедура NEW заполняет нулями выделенный блок памяти
|
|
||||||
6. Локальные переменные инициализируются нулями
|
|
||||||
7. В отличие от многих Oberon-реализаций, сборщик мусора и динамическая
|
|
||||||
модульность отсутствуют
|
|
||||||
8. Тип BYTE в выражениях всегда приводится к INTEGER
|
|
||||||
9. Контроль переполнения значений выражений не производится
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Псевдомодуль SYSTEM
|
|
||||||
|
|
||||||
Псевдомодуль SYSTEM содержит низкоуровневые и небезопасные процедуры,
|
|
||||||
ошибки при использовании процедур псевдомодуля SYSTEM могут привести к
|
|
||||||
повреждению данных времени выполнения и аварийному завершению программы.
|
|
||||||
|
|
||||||
PROCEDURE ADR(v: любой тип): INTEGER
|
|
||||||
v - переменная или процедура;
|
|
||||||
возвращает адрес v
|
|
||||||
|
|
||||||
PROCEDURE SADR(x: строковая константа (CHAR UTF-8)): INTEGER
|
|
||||||
возвращает адрес x
|
|
||||||
|
|
||||||
PROCEDURE WSADR(x: строковая константа (WCHAR)): INTEGER
|
|
||||||
возвращает адрес x
|
|
||||||
|
|
||||||
PROCEDURE SIZE(T): INTEGER
|
|
||||||
возвращает размер типа T
|
|
||||||
|
|
||||||
PROCEDURE TYPEID(T): INTEGER
|
|
||||||
T - тип-запись или тип-указатель,
|
|
||||||
возвращает номер типа в таблице типов-записей
|
|
||||||
|
|
||||||
PROCEDURE INF(): REAL
|
|
||||||
возвращает специальное вещественное значение "бесконечность"
|
|
||||||
|
|
||||||
PROCEDURE MOVE(Source, Dest, n: INTEGER)
|
|
||||||
Копирует n байт памяти из Source в Dest,
|
|
||||||
области Source и Dest не могут перекрываться
|
|
||||||
|
|
||||||
PROCEDURE GET(a: INTEGER;
|
|
||||||
VAR v: любой основной тип, PROCEDURE, POINTER)
|
|
||||||
v := Память[a]
|
|
||||||
|
|
||||||
PROCEDURE GET8(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 1)
|
|
||||||
|
|
||||||
PROCEDURE GET16(a: INTEGER;
|
|
||||||
VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 2)
|
|
||||||
|
|
||||||
PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32)
|
|
||||||
Эквивалентно
|
|
||||||
SYSTEM.MOVE(a, SYSTEM.ADR(x), 4)
|
|
||||||
|
|
||||||
PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
|
|
||||||
Память[a] := x;
|
|
||||||
Если x: BYTE или x: WCHAR, то значение x будет расширено
|
|
||||||
до 32 бит, для записи байтов использовать SYSTEM.PUT8,
|
|
||||||
для WCHAR -- SYSTEM.PUT16
|
|
||||||
|
|
||||||
PROCEDURE PUT8(a: INTEGER;
|
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 8 бит (x)
|
|
||||||
|
|
||||||
PROCEDURE PUT16(a: INTEGER;
|
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 16 бит (x)
|
|
||||||
|
|
||||||
PROCEDURE PUT32(a: INTEGER;
|
|
||||||
x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
|
|
||||||
Память[a] := младшие 32 бит (x)
|
|
||||||
|
|
||||||
PROCEDURE CODE(hword1, hword2,... : INTEGER)
|
|
||||||
Вставка машинного кода,
|
|
||||||
hword1, hword2 ... - константы в диапазоне 0..65535,
|
|
||||||
например:
|
|
||||||
SYSTEM.CODE(0BF30H) (* wfi *)
|
|
||||||
|
|
||||||
Также, в модуле SYSTEM определен тип CARD32 (4 байта). Для типа CARD32 не
|
|
||||||
допускаются никакие явные операции, за исключением присваивания.
|
|
||||||
|
|
||||||
Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Оператор CASE
|
|
||||||
|
|
||||||
Синтаксис оператора CASE:
|
|
||||||
|
|
||||||
CaseStatement =
|
|
||||||
CASE Expression OF Сase {"|" Сase}
|
|
||||||
[ELSE StatementSequence] END.
|
|
||||||
Case = [CaseLabelList ":" StatementSequence].
|
|
||||||
CaseLabelList = CaseLabels {"," CaseLabels}.
|
|
||||||
CaseLabels = ConstExpression [".." ConstExpression].
|
|
||||||
|
|
||||||
Например:
|
|
||||||
|
|
||||||
CASE x OF
|
|
||||||
|-1: DoSomething1
|
|
||||||
| 1: DoSomething2
|
|
||||||
| 0: DoSomething3
|
|
||||||
ELSE
|
|
||||||
DoSomething4
|
|
||||||
END
|
|
||||||
|
|
||||||
В метках вариантов можно использовать константные выражения, ветка ELSE
|
|
||||||
необязательна. Если значение x не соответствует ни одному варианту и ELSE
|
|
||||||
отсутствует, то программа прерывается с ошибкой времени выполнения.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Тип WCHAR
|
|
||||||
|
|
||||||
Тип WCHAR добавлен в язык для удобной поддежки юникода. Для типов WCHAR и
|
|
||||||
ARRAY OF WCHAR допускаются все те же операции, как для типов CHAR и
|
|
||||||
ARRAY OF CHAR, за исключением встроенной процедуры CHR, которая возвращает
|
|
||||||
только тип CHAR. Для получения значения типа WCHAR, следует использовать
|
|
||||||
процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
|
|
||||||
исходный код в кодировке UTF-8 c BOM.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Конкатенация строковых и символьных констант
|
|
||||||
|
|
||||||
Допускается конкатенация ("+") константных строк и символов типа CHAR:
|
|
||||||
|
|
||||||
str = CHR(39) + "string" + CHR(39); (* str = "'string'" *)
|
|
||||||
|
|
||||||
newline = 0DX + 0AX;
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Проверка и охрана типа нулевого указателя
|
|
||||||
|
|
||||||
Оригинальное сообщение о языке не определяет поведение программы при
|
|
||||||
выполнении охраны p(T) и проверки типа p IS T при p = NIL. Во многих
|
|
||||||
Oberon-реализациях выполнение такой операции приводит к ошибке времени
|
|
||||||
выполнения. В данной реализации охрана типа нулевого указателя не приводит к
|
|
||||||
ошибке, а проверка типа дает результат FALSE. В ряде случаев это позволяет
|
|
||||||
значительно сократить частоту применения охраны типа.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Дополнительные стандартные процедуры
|
|
||||||
|
|
||||||
|
|
||||||
COPY (x: ARRAY OF CHAR/WCHAR; VAR v: ARRAY OF CHAR/WCHAR);
|
|
||||||
v := x;
|
|
||||||
Если LEN(v) < LEN(x), то строка x будет скопирована
|
|
||||||
не полностью
|
|
||||||
|
|
||||||
LSR (x, n: INTEGER): INTEGER
|
|
||||||
Логический сдвиг x на n бит вправо.
|
|
||||||
|
|
||||||
MIN (a, b: INTEGER): INTEGER
|
|
||||||
Минимум из двух значений.
|
|
||||||
|
|
||||||
MAX (a, b: INTEGER): INTEGER
|
|
||||||
Максимум из двух значений.
|
|
||||||
|
|
||||||
BITS (x: INTEGER): SET
|
|
||||||
Интерпретирует x как значение типа SET.
|
|
||||||
Выполняется на этапе компиляции.
|
|
||||||
|
|
||||||
LENGTH (s: ARRAY OF CHAR/WCHAR): INTEGER
|
|
||||||
Длина 0X-завершенной строки s, без учета символа 0X.
|
|
||||||
Если символ 0X отсутствует, функция возвращает длину
|
|
||||||
массива s. s не может быть константой.
|
|
||||||
|
|
||||||
WCHR (n: INTEGER): WCHAR
|
|
||||||
Преобразование типа, аналогично CHR(n: INTEGER): CHAR
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Использование регистров общего назначения R0 - R12
|
|
||||||
|
|
||||||
R0 - R3: регистровый стэк (промежуточные значения выражений)
|
|
||||||
R4 - R12: не используются
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Вызов процедур и кадр стэка
|
|
||||||
|
|
||||||
Правила вызова похожи на соглашение cdecl (x86):
|
|
||||||
- параметры передаются через стэк справа налево
|
|
||||||
- результат, если есть, передается через регистр R0
|
|
||||||
- вызывающая процедура очищает стэк
|
|
||||||
|
|
||||||
Состояние стэка при выполнении процедуры:
|
|
||||||
|
|
||||||
меньшие адреса <- |var3|var2|var1|LR|arg1|arg2|arg3| -> бОльшие адреса
|
|
||||||
|
|
||||||
LR - сохраненный регистр LR (адрес возврата)
|
|
||||||
argX - параметры в порядке объявления (слева направо)
|
|
||||||
varX - локальные переменные в порядке использования в процедуре
|
|
||||||
|
|
||||||
Размер каждого элемента в стэке (кроме локальных переменных структурных
|
|
||||||
типов) - 1 машинное слово (4 байта). Структурные переменные (массивы и
|
|
||||||
записи) занимают место в стэке в соответствии с их размером (с учетом
|
|
||||||
выравнивания).
|
|
||||||
|
|
||||||
Размещение локальных переменных зависит от их размеров и порядка
|
|
||||||
использования, и в общем случае неопределенно. Если переменная не
|
|
||||||
используется явно, то компилятор не выделяет для нее место в стэке.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Скрытые параметры процедур
|
|
||||||
|
|
||||||
Некоторые процедуры могут иметь скрытые параметры, они отсутствуют в списке
|
|
||||||
формальных параметров, но учитываются компилятором при трансляции вызовов.
|
|
||||||
Это возможно в следующих случаях:
|
|
||||||
|
|
||||||
1. Процедура имеет формальный параметр открытый массив:
|
|
||||||
PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL);
|
|
||||||
Вызов транслируется так:
|
|
||||||
Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x))
|
|
||||||
2. Процедура имеет формальный параметр-переменную типа RECORD:
|
|
||||||
PROCEDURE Proc (VAR x: Rec);
|
|
||||||
Вызов транслируется так:
|
|
||||||
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Кодовые процедуры
|
|
||||||
|
|
||||||
Компилятор поддерживает процедуры, написаные в машинных кодах.
|
|
||||||
Синтаксис:
|
|
||||||
|
|
||||||
PROCEDURE "[code]" имя [ (параметры): ТипРезультата ]
|
|
||||||
МашКом, МашКом,... МашКом;
|
|
||||||
|
|
||||||
";" после заголовка и END "имя" в конце процедуры не ставятся.
|
|
||||||
МашКом - целочисленная константа [0..65535] (в том числе и константное
|
|
||||||
выражение).
|
|
||||||
|
|
||||||
Например:
|
|
||||||
|
|
||||||
PROCEDURE [code] WFI
|
|
||||||
0BF30H; (* wfi *)
|
|
||||||
|
|
||||||
Компилятор автоматически добавляет к такой процедуре команду возврата
|
|
||||||
(bx LR). Способ передачи параметров и результата не изменяется. Регистр LR,
|
|
||||||
при входе в процедуру не сохраняется.
|
|
||||||
|
|
||||||
Чтобы использовать кодовые процедуры, необходимо импортировать псевдомодуль
|
|
||||||
SYSTEM.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Обработка прерываний
|
|
||||||
|
|
||||||
При возникновении прерывания, будет вызван обработчик (если он объявлен).
|
|
||||||
Объявление обработчика:
|
|
||||||
|
|
||||||
PROCEDURE handler_name [iv]; (* процедура без параметров *)
|
|
||||||
|
|
||||||
iv - целочисленная константа (константное выражение), номер вектора прерывания
|
|
||||||
в таблице векторов, iv >= 2:
|
|
||||||
|
|
||||||
0 начальное значение SP
|
|
||||||
1 сброс
|
|
||||||
...
|
|
||||||
15 SysTick
|
|
||||||
...
|
|
||||||
59 TIM6
|
|
||||||
60 TIM7
|
|
||||||
...
|
|
||||||
|
|
||||||
например:
|
|
||||||
|
|
||||||
(* обработчик прерываний от TIM6 *)
|
|
||||||
PROCEDURE tim6 [59];
|
|
||||||
BEGIN
|
|
||||||
(* код обработки *)
|
|
||||||
END tim6;
|
|
||||||
|
|
||||||
Также, можно объявить общий обработчик (iv = 0), который будет вызван, если
|
|
||||||
не назначен индивидуальный. Общий обработчик получает параметр - номер вектора
|
|
||||||
прерывания. По значению этого параметра, обработчик должен определить источник
|
|
||||||
прерывания и выполнить соответствующие действия:
|
|
||||||
|
|
||||||
PROCEDURE handler (iv: INTEGER) [0];
|
|
||||||
BEGIN
|
|
||||||
IF iv = 59 THEN
|
|
||||||
(* TIM6 *)
|
|
||||||
ELSIF iv = 60 THEN
|
|
||||||
(* TIM7 *)
|
|
||||||
ELSIF ....
|
|
||||||
....
|
|
||||||
END
|
|
||||||
END handler;
|
|
||||||
|
|
||||||
В конец программы компилятор добавляет команду ожидания прерывания.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Обработка ошибок
|
|
||||||
|
|
||||||
В случае возникновения ошибки при выполнении программы, будет вызван
|
|
||||||
пользовательский обработчик (если он объявлен).
|
|
||||||
|
|
||||||
Объявление обработчика ошибок:
|
|
||||||
|
|
||||||
PROCEDURE trap (modNum, modName, err, line: INTEGER) [1];
|
|
||||||
BEGIN
|
|
||||||
END trap;
|
|
||||||
|
|
||||||
где,
|
|
||||||
modNum - номер модуля (в отчете о компиляции:
|
|
||||||
compiling (modNum) "modName" )
|
|
||||||
modName - адрес имени модуля
|
|
||||||
err - код ошибки
|
|
||||||
line - номер строки
|
|
||||||
|
|
||||||
Коды ошибок:
|
|
||||||
|
|
||||||
1 ASSERT(x), при x = FALSE
|
|
||||||
2 разыменование нулевого указателя
|
|
||||||
3 целочисленное деление на неположительное число
|
|
||||||
4 вызов процедуры через процедурную переменную с нулевым значением
|
|
||||||
5 ошибка охраны типа
|
|
||||||
6 нарушение границ массива
|
|
||||||
7 непредусмотренное значение выражения в операторе CASE
|
|
||||||
8 ошибка копирования массивов v := x, если LEN(v) < LEN(x)
|
|
||||||
9 CHR(x), если (x < 0) OR (x > 255)
|
|
||||||
10 WCHR(x), если (x < 0) OR (x > 65535)
|
|
||||||
11 неявное приведение x:INTEGER к v:BYTE, если (x < 0) OR (x > 255)
|
|
||||||
|
|
||||||
После возврата из обработчика программа будет перезапущена.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
Loading…
Reference in New Issue
Block a user