paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:32:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cosmetics

Browse Source 
(cherry picked from commit 9348f58e70)
This commit is contained in:
Florian Klämpfl 2022-02-06 20:13:51 +01:00 committed by florian
parent 79ebedde8e
commit 3f15b21e6c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/cgcpu.pas
View File

@ -1579,7 +1579,7 @@ begin
list.concat(taicpu.op_reg_ref(A_SW, tmpreg1, dst)); list.concat(taicpu.op_reg_ref(A_SW, tmpreg1, dst));
Inc(src.offset, 4); Inc(src.offset, 4);
Inc(dst.offset, 4); Inc(dst.offset, 4);
Inc(count2); Inc(count2);
end; end;
len := len mod 4; len := len mod 4;
end; end;
@ -1651,7 +1651,7 @@ begin
begin begin
{ unrolled loop } { unrolled loop }
tmpreg1 := GetIntRegister(list, OS_INT); tmpreg1 := GetIntRegister(list, OS_INT);
i:=1; i := 1;
while i <= len do while i <= len do
begin begin
list.concat(taicpu.op_reg_ref(A_LBU, tmpreg1, src)); list.concat(taicpu.op_reg_ref(A_LBU, tmpreg1, src));