Discussion :

[Montor]

petite fonction asm pour convertir little-endian en big-endian et vice versa

Code :

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

1
2
3
4
function SwapIndian(AValue:Cardinal):Cardinal;
asm
  BSWAP EAX
end;

Code :

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

$12345678 => $78563412

[Droïde Système7]

1 = 16777216
2 = 33554432
3 = 50331648

Super ce code, je suis toujours fasciné par les codes très courts produisant des choses...



Mais quel peut-être son utilisation ? Aller, des exemples !

@+

[Rekin85]

Un exemple ?

Admettons que je range des integer dans un array; ceux-ci sont ordonnés 4 octets par 4 octets en convention little-endian (intel), mais si je me mets à vouloir lire mon tableau en extrayant les octets à la queue leu leu, je ne retrouverai pas mes nombres initiaux car je les obtiendrais dans le mode big-endian.
En delphi, c'est transparent à condition de ne pas accéder aux données par pointeurs et index décalés. Par contre en ASM, attention de bien y prendre garde si on manipule de la chaîne ou du numérique !

[Droïde Système7]

Un exemple ?

Admettons que je range des integer dans un array; ceux-ci sont ordonnés 4 octets par 4 octets en convention little-endian (intel), mais si je me mets à vouloir lire mon tableau en extrayant les octets à la queue leu leu, je ne retrouverai pas mes nombres initiaux car je les obtiendrais dans le mode big-endian.
En delphi, c'est transparent à condition de ne pas accéder aux données par pointeurs et index décalés. Par contre en ASM, attention de bien y prendre garde si on manipule de la chaîne ou du numérique !

C'est une sorte d'équivalent du "registre à décalage" électronique alors.

Merci de ce code et de cette explication

[Nono40]

C'est aussi très utile si les données lues/écrites proviennent d'un autre système en Big-endian.

Dans la pluspart des cas en Delphi sur PC X86 tout est Little-endian et on se pose rarement la question. Mais ce n'est pas le cas avec tous les systèmes. Les systèmes base sur le Motorola 68xxx sont en big-endian.

Big-endian est aussi la norme des certains protocoles de compmunication : modbus et dérivés par exemple.

Merci pour ce code ultra court

[Dr.Who]

BSWAP peut être également utile dans certains algorithme de Hash notamment le SHA qui nécessite une inversion des octets en fin de calcul, bswap permettant de ne pas faire appel à un lourd barda de shl/shr.

on peux aussi l'utiliser dans les conversions de formats de couleurs RGBA <-> ABGR ou autre par combinaison BSWAP r32 et BSWAP r16 ou encore avec ROL ROR.

il est dommage que SHL et SHR soit présents en Pascal mais que ROL, ROR, BSWAP, XCHG ne soit pas disponible comme opérandes native du pascal.
cela serait plus facile par moment d'en disposer sans faire appel à une fonction assembleur, surtout que ce sont des instructions disponible depuis les 286/386.

[Montor]

C'est une sorte d'équivalent du "registre à décalage" électronique alors.

Merci de ce code et de cette explication

Salut Droïde Système7
l'ordre des octect est inversé...c'est pour compatibilité avec d'autres protocols...utilise l'affichage en hexadecimal pour visualiser les octets...en hexadecimal deux chiffres (16 * 16) est un octect donc $12345678 (little-endian)le premier octect vaut $78 deuxieme $56...

Code :

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

Showmessagefmt('%x',[SwapIndian($1)]);

[Montor]

Le problème avec les types de base Delphi …souvent il est dite

les types integer, cardinal ne sont pas garanties qu’ils restent sur 32bit…