OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Пятница, 20 Октябрь, 2017 06:22

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




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Not enough registers
СообщениеДобавлено: Среда, 15 Апрель, 2009 00:53 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 8821
Откуда: Россия, Орёл
При компиляции следующей процедуры столкнулся с ошибкой компиляции. Квадратик ошибки, помещённый после WHILE, гласит:
"Not enough registers; simplify expression".
Код:
   PROCEDURE (set: StdSet) Contains (rec: ANYPTR): BOOLEAN;
      VAR t: Term;
   BEGIN
      t := set.list.first;
      WHILE (t # NIL) & (Services.AdrOf(t(Item).rec^) < Services.AdrOf(rec^)) DO t := t.next END;
      RETURN (t # NIL) & (Services.AdrOf(t(Item).rec^) = Services.AdrOf(rec^))
   END Contains;


Любопытно. Компилятор не может распределить регистры... А выражение вроде не сложное. (Было SYSTEM.ADR, нормуль, а при копировании модуля отдельно в другую подсистему надо было отвязать от SYSTEM...)
Впрочем, упрощение очевидно и по любому нужно - второй-то адрес инвариантен.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Not enought registers
СообщениеДобавлено: Среда, 15 Апрель, 2009 06:16 

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7676
Откуда: Троицк, Москва
Илья Ермаков писал(а):
Квадратик ошибки, помещённый после WHILE, гласит:
"Not enought registers; simplify expression".
Совет, похоже, правильный, с учетом извращения, которое там просматривается :)

Проще надо, молодые люди, проще.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

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


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

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


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

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2017, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB