[BlackBox] Compiler trap.

[Geniepro]

Я видел. Но пример таки отличаются (кстати, обратите внимание на капс в Аде-83 :-) ).

Кроме того, атрибутов про выравнивание там, в Аде-83, похоже не было.

Собственно в этих двух примерах было показано:

Код: [Выделить]

for Program_Status_Word use
  record
    ...
for Program_Status_Word'Alignment use 8;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Код: [Выделить]

for PROGRAM_STATUS_WORD use
  record at mod 8;
    ...  ^^^^^^^^

[valexey_u]

Возвращаясь к топику:
недавно еще один товарищ похоже напоролся ровно на тот же трап:

...

Код: [Выделить]

    x := OPB.NewUnsignedConst( (LONG(y^.conval^.intval) -apar^.conval^.intval) DIV z^.conval^.intval + 1)могло возникнуть переполнение в разности (y^.conval^.intval-apar^.conval^.intval), что искажало результат при последующем делении. Попытка перейти к типу большей разрядности при помощи LONG() вызывало ТРАП 0 (Dev)CPC486 компилятора ББ.

...

Интересно, что попытка соединить в одном операторе и разность и деление

Код: [Выделить]

L := (LONG(y^.conval^.intval)  -apar^.conval^.intval) DIV  z^.conval^.intval  +1;
вызывает ТРАП 0 (Dev)CPC486 компилятора ББ! Ну и ладно, не хочет вместе, посчитаем по отдельности.

[Oleg N. Cher]

Фикс для исправления этой проблемы (взято в официальной рассылке по BlackBox, автор — luowy).

P.S. Можно давать ссылки такого рода без sid, это идентификатор сессии.

[valexey_u]

Фикс для исправления этой проблемы (взято в официальной рассылке по BlackBox, автор — luowy).
Кстати, где-нибудь выложен архив этой рассылки?