| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

inline в Delphi 2009

Riply ©   (2009-01-20 15:15:00) 

Здравствуйте !
Пытаюсь разобраться с сабжем. (Стоят 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 я не желаю, а переносить декларацию религия не позволяет ? :)

---

BJ   (2009-02-03 19:13:00) [1]

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

---

Riply   (2009-01-20 15:21:00) [2]

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

---

Наверх