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

* simplified code

Browse Source
This commit is contained in:
florian 2025-02-10 22:28:33 +01:00
parent 840df7e243
commit 99b71eafda
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncginl.pas
View File

@ -994,12 +994,9 @@ implementation
procedure tcginlinenode.second_BsfBsr;
var
not_zero,
reverse: boolean;
opsize: tcgsize;
begin
reverse:=(inlinenumber = in_bsr_x);
not_zero:=node_not_zero(left);
secondpass(left);
opsize:=tcgsize2unsigned[left.location.size];
@ -1008,7 +1005,7 @@ implementation
location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
location.register:=cg.getintregister(current_asmdata.CurrAsmList,location.size);
cg.a_bit_scan_reg_reg(current_asmdata.CurrAsmList,reverse,not_zero,opsize,location.size,left.location.register,location.register);
cg.a_bit_scan_reg_reg(current_asmdata.CurrAsmList,inlinenumber=in_bsr_x,node_not_zero(left),opsize,location.size,left.location.register,location.register);
end;