Выравнивание для SSE2 в Delphi

Снова старый вопрос. Delphi 10.2. Для нормальной работы с SSE2 я хочу добиться выравнивания статически определенных переменных по границе 16 байт. Понятно, что на крайняк это можно сделать вручную при динамическом распределении. Но трудно поверить, что такой возможности нет для статически определяемых.
Есть такая опция, как $ALLIGN16. Вот только предназначена она для выравнивания полей в структурах - что было бы уже не плохо. Но - она не работает! То есть совсем ни как.
Описание в хэлпе - просто шедевр.
Первое:
Regardless of the state of the $A directive, variables and typed constants are always aligned for optimal access.
Это как? А на фига она вообще нужна, если Regardless?

В разделе Internal data format еще круче: выравнивание там описано в зависимости от типов таким образом:

Ordinal types
Size of the type (1, 2, 4, or 8)

Real types
2 for Real48, 4 for Single, 8 for Double and Extended

Short string types
1

Array types
Same as the element type of the array

Record types
The largest alignment of the fields in the record

Set types
Size of the type if 1, 2, or 4, otherwise 1

All other types
Determined by the $A directive

Круто! Извиняюсь, оллаветайпс - это какие? По-моему, предыдущий список полностью включает все возможные варианты.

Вобщем, если кто-то знает, можно ли добиться ожидаемого функционала от $A и как это сделать - напишите пожалуйста.

0

Я делал так:

• При запуске программы определял необходимое смещение для выравнивания как-то так
  

  Delphi
  1 ofs:=16-(dword(@data) and 15);

  Если ofs не равно 16 то выводил MessageBox и выход из программы
• Перед данными добавлял выравнивающий массив
  

  Delphi
  1 align: array[1..ofs] of byte;

  А чтобы массив не удалялся при оптимизации делал к нему обращение
  

  Delphi
  1 2 3 asm mov al,[align] end;

Но это в древней Delphi 7. В последних версиях наверное подвезли нормальное выравнивание. Под x64 думаю вообще проблем быть не должно.

0

Возможно это поможет:

0