Вниз
Скачать: CL | DM;

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c
4-1207054578
Андрей
2008-04-01 16:56
2009.03.29
Аналог функции GetWindowsDirectory


15-1232594173
Slider007
2009-01-22 06:16
2009.03.29
С днем рождения ! 22 января 2009 четверг


2-1234250798
Iriss
2009-02-10 10:26
2009.03.29
наследник TObjectList


2-1233776721
trsteep
2009-02-04 22:45
2009.03.29
XML vs TreeView


15-1233223249
desc
2009-01-29 13:00
2009.03.29
Как обновить набор данных ?




   Наверх