Discussion :

[sjrd]

Bonjour,

J'ai cherché pas mal sur Google, DVP, Borland et CodeGear, et je n'ai rien trouvé. Ou en tout cas des informations incomplètes et divergentes.

Je cherche à connaître les règles exactes d'alignement des champs dans des record (unpacked évidemment) ou des class. Et puisqu'apparemment, cela dépendrait des versions de Delphi, je voudrais les trouver pour chacune des versions depuis Delphi 7, voire 6 si c'est possible.

Le but de cela étant de pouvoir déterminer l'offset d'un champ dans un record ou une class simplement en connaissant la définition des champs de l'enregistrement (nom et type).

Je cherche donc une documentation ou un article définissant de manière précise ces règles d'alignement.

En espérant que quelqu'un ait miraculeusement ça dans un de ses cartons
d'avance

[anapurna]

salut


un truc dans ce genre la
ou ceci

@+ Phil

[sjrd]

Salut

un truc dans ce genre la
ou ceci

@+ Phil

Merci , mais malheureusement, ces deux articles entrent dans la catégorie "incomplets". Le principe de l'alignement, je le connais. Mais j'aimerais pouvoir associer, pour chaque version de Delphi, chaque type à sa valeur d'alignement.

[anapurna]

salut

le probleme ne vient pas des version mais du type de version 16 ou 32 bits
apres l'alignement est le meme c'est natif au processeur

@+ Phil

[sjrd]

Pas d'après ceci.

[TicTacToe]

salut

le probleme ne vient pas des version mais du type de version 16 ou 32 bits
apres l'alignement est le meme c'est natif au processeur

@+ Phil

Il m'a également déjà semblé avoir entendu ceci il y a un moment.
Pour accéder plus rapidement au infos, autant utilisé le grain natif du type d'executable, donc 4 octets à l'heure actuelle...

enfin, ce n'est qu'une lointaine pensée, c'est tout !

:edit:
enfin je dirais pas par rapport au CPU, mais plutot au type d'executable généré et de son adressage.

[sjrd]

Ce n'est malheureusement pas aussi simple que ça.

La différence Win16/Win32, cela influence sur le fait que le processeur lit tout aussi vite 4 octets que 1 avec Win32, alors qu'il n'en lisait que 2 en Win16.

Mais l'alignement est plus complexe : un simple octet ne sera pas lu plus vite s'il est sur une frontière de 4 octets que s'il était à 4n + 1. En revanche, c'est le cas des LongInt.

Depuis que Delphi existe, le choix des alignements à effectuer a évolué, pour le rendre de meilleur en meilleur. Et ainsi accéder plus rapidement aux données. C'est pourquoi les règles d'alignement sont différentes d'une version à l'autre du compilateur.

En continuant de chercher, je suis d'ailleurs tombé là-dessus :
http://www.merlyn.demon.co.uk/pas-type.htm#FAR
Malheureusement c'est très vieux et ça s'arrête à Delphi 7, avec très peu de précisions

[tourlourou]

pour vérifier au RunTime :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
implementation
 
{$R *.dfm}
 
{A+}
 
type
  TRec1=record
    F1: Cardinal;
    F2: Byte;
    F3: Cardinal;
  end;
 
  TRec2=packed record
    F1: Cardinal;
    F2: Byte;
    F3: Cardinal;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Rec1: TRec1;
  Rec2: TRec2;
begin
  ShowMessage(IntToStr(Cardinal(@Rec1.F3)-Cardinal(@Rec1.F1))); // 8
  ShowMessage(IntToStr(Cardinal(@Rec2.F3)-Cardinal(@Rec2.F1))); // 5
end;

[EDIT] ça ne répond pas à ta question, désolé...

[anapurna]

salut

en revenant a la source
il ne donne pas plus d'explication


j'ai trouve ceci aussi sur un forum

The alignment rules have changed for unpacked records, so if you did not
declare your records as packed records the size of them may have changed.
YOu can fix that by declaring the D5 record as packed and then add padding
fields to recreate the memory layout of the unpacked D3 record. Study the
Object Pascal Language guide entries about packing and alignment.

Another change is that the Real type still was the old TP 6 byte real in D3.
In D5 this type is called Real48 and the Real type is now the same as Double.
The docs have stressed since D1 that Real is a legacy type that should not be
used in new applications, so don't complain if you fell afoul of this change.

@+ Phil
PS en lisant different forum je croit avoit trouver les regles pour les version 2 a 4 et la version 5 je te laisse les autre version

bon exemple :

T: record
a: byte;
b: extended;
c: extended;
end;
TP: packed record
a: byte;
b: extended;
c: extended;
end;

En Delphi 2-4, SizeOf(T) resultat 22 octets, et SizeOf(TP) resultat 21 octets.
soit pour le non packed 1+10+10+1 de padding

En Delphi 5, SizeOf(T) resultat 40 octets, et SizeOf(TP) resultat 21 octets.
soit pour le non packed 8+16+16 taille des registre

[sjrd]

Je vais continuer de chercher et j'indiquerai au fur et à mesure mon avancement. Quand j'aurai trouvé tout ce que je veux, je donnerai de toutes façons une synthèse ici, et sans doute dans un article aussi.