Umstellung Delphi auf Lazarus: Assemblercode

[Lemmy]

Seruvs,

ich stelle gerade ein Projekt von Delphi auf Lazarus um, dabei bin ich über die Funktion hier gestolpert:

Code: Alles auswählen

FUNCTION ROL (x:CARDINAL; n:CARDINAL):CARDINAL; ASSEMBLER;
ASM
  mov ecx,n
  rol &x,cl
END;  

da ich keinen PLan von Assembler habe: Kann mir jemand sagen was die Methode macht?

Grüße

[six1]

Rotiert die Bits von "x" um "n" Stellen nach Links

rol = rotate left
ror = rotae right

[Horst_h]

Hallo,

das gibt es schon ohne assembler:
Rotiere x um n bits nach links die Bits werden innerhalb von x verschoben, was oben rausfällt wird unten wieder reingeschoben.
https://en.wikipedia.org/wiki/Bitwise_o ... ular_shift

https://www.freepascal.org/docs-html/3. ... dex-5.html
dort
https://www.freepascal.org/docs-html/3. ... dword.html

Gruß Horst

[Lemmy]

Super, vielen Dank!