- ошибка

Сообщения без ответов | Активные темы

Список форумов » BlackBox Component Builder » Общие вопросы

Часовой пояс: UTC + 3 часа

ошибка

Страница 1 из 1

[ Сообщений: 6 ]

Версия для печати

Пред. тема | След. тема

Автор

Сообщение

id_ler

Заголовок сообщения: ошибка

Добавлено: Среда, 30 Декабрь, 2009 12:20

Зарегистрирован: Суббота, 06 Июнь, 2009 07:52
Сообщения: 329

При компиляции модуля получаю следующую ошибку

Код:

…
a: LONGINT;[untagged open array not allowed as value parameter]
…

Если эту строку закомментировать, то ошибка переместится в самый конец модуля – к присвоению значения этой переменной. Т.е. все остальное ошибок не содержит, вроде бы. Как ее правильно исправить?

Вернуться к началу

id_ler

Заголовок сообщения: Re: ошибка

Добавлено: Среда, 30 Декабрь, 2009 15:07

Зарегистрирован: Суббота, 06 Июнь, 2009 07:52
Сообщения: 329

В секции VAR до указанного выше места описываются переменные процедурного типа с экспортом только на чтение. Если их все закомментировать, тогда эта ошибка пропадает. У меня ВВ v 1.5, а документация на ВВ v 1.4, где говорится о возможных ограничениях в будущем на использование таких типов. Например, маркер ошибки с сообщением об использовании устаревшей COPY появляется, а как быть с процедурными типами непонятно.

Вернуться к началу

Info21

Заголовок сообщения: Re: ошибка

Добавлено: Среда, 30 Декабрь, 2009 15:47

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 8500
Откуда: Троицк, Москва

Непонятно. Приведите минимальный модуль с этой ошибкой.

Вернуться к началу

id_ler

Заголовок сообщения: Re: ошибка

Добавлено: Среда, 30 Декабрь, 2009 18:52

Зарегистрирован: Суббота, 06 Июнь, 2009 07:52
Сообщения: 329

Когда начал упрощать, то нашел причину. В примере закомментировал неправильное указание типа для lpModuleName

Код:

 MODULE Test;
   IMPORT SYSTEM, WinApi;
   VAR
   (*  d-: PROCEDURE (lpModuleName: ARRAY [untagged] OF CHAR): INTEGER;   *)
      a-: PROCEDURE (hModule: LONGINT; lpProcName: ARRAY OF CHAR): INTEGER;
      WriteFile-: PROCEDURE (hFile: WinApi.HANDLE; lpBuffer: WinApi.PtrVoid; nNumberOfBytesToWrite: INTEGER; VAR [nil] lpNumberOfBytesWritten: INTEGER; VAR [nil] lpOverlapped: WinApi.OVERLAPPED): INTEGER;
      b: LONGINT;        
      PROCEDURE GetProcAddress*(hModule: INTEGER; procName: ARRAY OF CHAR; VAR c: LONGINT);
   BEGIN
      c := a(hModule, procName)
   END GetProcAddress;

BEGIN
   IF b = 0 THEN
      INC(b);
   END;
END Test. 

Еще не могу найти в документации эквивалент обероновского флага UNTRACED для ВВ.

Вернуться к началу

Илья Ермаков

Заголовок сообщения: Re: ошибка

Добавлено: Среда, 30 Декабрь, 2009 21:37

Модератор

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл

Поставьте IN lpModuleName, это будет соответствовать char*.

А так Вы просите передавать массив по копированию, но как компилятор сгенерирует код для копирования безтегового массива (откуда он узнает его размер)?

Вернуться к началу

id_ler

Заголовок сообщения: Re: ошибка

Добавлено: Четверг, 31 Декабрь, 2009 06:21

Зарегистрирован: Суббота, 06 Июнь, 2009 07:52
Сообщения: 329

Илья Ермаков писал(а):

Пока я убрал все флаги и модуль нормально скомпилировался. Получилась основа для подсистемы Оберон. Теперь займусь модулем Win32.Kernel.Mod. Тему «Куда и как развивать Оберон-системы?» я читал. Поэтому не хотел создавать похожую, только теперь уже с примерами для начинающих(т.е. меня). По ходу дела вопросов унификации возникнет много, а нужна ли такая тема я не знаю.

Вернуться к началу

Страница 1 из 1

[ Сообщений: 6 ]

Список форумов » BlackBox Component Builder » Общие вопросы

Часовой пояс: UTC + 3 часа

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

OberonCore

ошибка

Кто сейчас на конференции