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

Only signed extension is needed

Browse Source
This commit is contained in:
Pierre Muller 2023-01-12 22:48:43 +01:00 committed by FPK
parent 4793447be1
commit aaa6f0d9c5
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aarch64/cgcpu.pas
View File

@ -1004,9 +1004,7 @@ implementation
list.concat(taicpu.op_reg_reg_const_const(A_BFI,tmpreg,tmpreg2,i*8,8));
end;
if (tosize in [OS_S8,OS_S16]) then
list.concat(taicpu.op_reg_reg(A_SXTH,tmpreg,tmpreg))
else if (tosize in [OS_8,OS_16]) then
list.concat(taicpu.op_reg_reg(A_UXTH,tmpreg,tmpreg));
list.concat(taicpu.op_reg_reg(A_SXTH,tmpreg,tmpreg);
a_load_reg_reg(list,fromsize,tosize,tmpreg,register);
end;
end;