CodePudding user response:
The function func (v: cardinal) : the cardinal;Var
T: the cardinal;
The begin
T:=v xor (SHL 16 (v) or (16 v SHR));
T:=t and ($ff0000);
SHL 24 v:=(v) or 8 SHR (v);
Result:=v xor (t SHR 8);
end;
Procedure TForm1. BitBtn1Click (Sender: TObject);
Var
V: the cardinal;
The begin
V:=$00 ffeedd;//dd00ddee
//$aabbcc; Cc00ccbb;
V:=func (v);
Caption: inttohex=(v, 4);
end;
CodePudding user response:
ARM assembly 32-bit and 64 - bit code change is very big,CodePudding user response:
T & amp;=~ 0 xff0000;==============
T:=t and not $ff0000; ://t=t and $ff00ffff;
CodePudding user response: