inline в Delphi 2009

← →
Riply © (2009-01-20 15:15) [0]

Здравствуйте !
Пытаюсь разобраться с сабжем. (Стоят 1-ый и 2-ой апдейты для Delphi 2009)
Создаем два юнита:
unit Unit3; interface type PUNICODE_STRING_PACKED = ^UNICODE_STRING_PACKED; UNICODE_STRING_PACKED = packed record Length: LongWord; Buffer: array[0..0] of WideChar; end; implementation end. unit Unit2; interface uses Unit3; procedure Usp_Move_(const pUsp: PUNICODE_STRING_PACKED; const pData: Pointer; const BytesMove: LongWord); inline; implementation procedure Usp_Move_(const pUsp: PUNICODE_STRING_PACKED; const pData: Pointer; const BytesMove: LongWord); inline; begin Move(pData, pUsp.Buffer, BytesMove); end; end.

подсоединяем их к проекту (пустому) и получаем:
[DCC Fatal Error] Unit2.pas(18): F2084 Internal Error: URW1135

Если закомментировать inlie выше implementation или перенести декларацию
UNICODE_STRING_PACKED в Uint2, то ошибка исчезает.

Подскажите, пожалуйста как бы мне с ней (ошибкой) справиться, если
отказываться от inline я не желаю, а переносить декларацию религия не позволяет ? :)

← →
Riply © (2009-01-20 15:21) [1]

>[0] Riply © (20.01.09 15:15)
Sorry
Допустила ошибку в ф-ии (торопилась), но это неважно.

← →
BJ (2009-02-03 19:13) [2]

Ищи другое решение. У меня такая же ошибка а в проекте ниодного слова inline

inline в Delphi 2009 Найти похожие ветки