"Проблемы перевода" новый Дельфи -> Лазарус

[Alex2013]

Что за align ?

Код: Выделить всё


ovrVector2f = record
    x, y: Single;
  end align 4;


(То есть понятно что это "выравнивание на 4 байта" но на что эту конструкцию в лазарусе заменить ? )

[Pavia]

Попробуйте так:

Код: Выделить всё

{$A4}
ovrVector2f = record
    x, y: Single;
  end;
{$A-}
{$A+}


Добавлено спустя 2 минуты 40 секунд:

Что за align ?

Для данной конструкции align лишний.

Выравнивание полей в структурах. Но там всё хитро, если упростить то выравниваются только те которые которые равны размеру.

[Cheb]

А почему не

Код: Выделить всё

{$push}
{$packrecords 4}
ovrVector2f = record
    x, y: Single;
  end;
{$pop}

- вдруг там ниже по коду ещё что-то объявляется, ожидая другое выравнивание, выставленное ещё выше?

[Alex2013]

О спасибо, а то уже "весь гугл пролистал"... Сейчас попробую!
Зы
Выше нет но ниже есть выравнивание на 8 байт .
Зы Зы
Вот же гадство !
Там есть и такой прикол align OVR_PTR_SIZE;
Нет что делать я догадался ...

Код: Выделить всё

  {$push}
  {$IFDEF CPU64BITS}
  {$packrecords 8}
  {$ENDIF}

  {$IFDEF CPU32BITS}
  {$packrecords 4}
  {$ENDIF}
...
{$pop}     

Но кривуля "мама не горюй" ...

Добавлено спустя 46 минут 28 секунд:
Кстати а packed record Объявлять нужно ?

[bormant]

packed record -- они без выравнивания, потому как «упакованы».
Или вопрос был в чем-то другом?

[Alex2013]

packed record -- они без выравнивания, потому как «упакованы».
Или вопрос был в чем-то другом?

Именно об этом ... спасибо !