paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 00:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use roldword intrinsic instead of function rotl.

Browse Source 
These days we don't need the hand coded rol anymore.

git-svn-id: trunk@21644 -
This commit is contained in:
masta 2012-06-18 16:59:13 +00:00
parent 2941b1e456
commit 3205169ab9
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/cpubase.pas
View File

@ -497,12 +497,6 @@ unit cpubase;
end; end;
function rotl(d : dword;b : byte) : dword; {$ifdef USEINLINE}inline;{$endif USEINLINE}
begin
result:=(d shr (32-b)) or (d shl b);
end;
function is_shifter_const(d : aint;var imm_shift : byte) : boolean; function is_shifter_const(d : aint;var imm_shift : byte) : boolean;
var var
i : longint; i : longint;
@ -523,7 +517,7 @@ unit cpubase;
begin begin
for i:=0 to 15 do for i:=0 to 15 do
begin begin
if (dword(d) and not(rotl($ff,i*2)))=0 then if (dword(d) and not(roldword($ff,i*2)))=0 then
begin begin
imm_shift:=i*2; imm_shift:=i*2;
result:=true; result:=true;