Rotation de bits

Bonjour,

quelle est l'instruction pour faire une rotation de bit (à droite ou à gauche). En assembleur je sais que c'est ror ou rol mais je souhaite être multiplateforme.

J'ai cherché sur internet mais je n'ai rien trouvé.

Si ça n'existe pas, je le coderais.

Merci

Il faut le coder soi-même, mais comme je suis sympa, je te donne la solution:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function ROL(A, B: Byte): Byte; inline; var C: Byte; begin C := B mod 8; ROL := (A shr (8 - C)) or (A shl C); end;   function ROR(A, B: Byte): Byte; inline; var C: Byte; begin C := B mod 8; ROR := (A shl (8 - C)) or (A shr C); end;

---

Voilà :D

merci mais c'est faux. Voici le bon code :

Code:

---

1 2 3 4 5 6 7 8 9

function Rol(octet : byte; decalage : byte) : byte ; begin Result := (octet shl 1) or ((octet and 128) shr 7) ; end ;   function Ror(octet : byte; decalage : byte) : byte ; begin Result := ((octet and 1) shl 7) or (octet shr 1) ; end ;

---