Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ($ALIGN): что я делаю не так? / 8 сообщений из 8, страница 1 из 1
06.11.2017, 18:08:57
    #39548501
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
{$ALIGN ON}
{$ALIGN 8}

type

  TNode = {packed} record
    Header: Byte;
    Value: Word;

    Next: Pointer;
  end;

function Test: NativeInt;
var
  Node: ^TNode;
begin
  Node := nil;
  Result := NativeInt(@Node.Next);
end;

initialization
  Test;



Почему 4, а не 8?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2017, 18:40:06
    #39548514
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Компилируешь в 32 разряда. ALING задаёт максимальное выравнивание, а не минимальное.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2017, 19:18:08
    #39548531
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Dimitry Sibiryakov,

Мне нужно сделать выравнивание внутри структуры-дженерика. Есть цивилизованный способ это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2017, 19:31:43
    #39548537
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Цивилизованные задачи не требуют ручного управления выравниванием. Соответственно,
цивилизованного способа его получить - нет.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2017, 23:15:50
    #39548615
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Dimitry Sibiryakovцивилизованного способа его получить - нет.

Чем не способ:
Код: pascal
1.
2.
3.
4.
5.
6.
  TNode = packed record
    Header: Byte;
    Value: Word;
    Next: Pointer;
    Dummy: Byte; 
  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2017, 11:25:54
    #39548814
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
rgreatDimitry Sibiryakovцивилизованного способа его получить - нет.

Чем не способ:
Код: pascal
1.
2.
3.
4.
5.
6.
  TNode = packed record
    Header: Byte;
    Value: Word;
    Next: Pointer;
    Dummy: Byte; 
  end;


Наоборот мб?
Код: pascal
1.
2.
3.
4.
5.
6.
  TNode = packed record
    Header: Byte;
    Value: Word;
    Dummy: Byte;
    Next: Pointer;
  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2017, 11:38:43
    #39548832
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Надо в рамках шаблонного типа
Так что бессмысленно )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2017, 14:03:06
    #39548949
я идиот
я идиот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
($ALIGN): что я делаю не так?
Что конкретно ты хочешь? В представленном тобой примере как раз присутствует верное выравнивание.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ($ALIGN): что я делаю не так? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 498ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2041626]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 196ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 232ms
total:  498ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]