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

Folded Add/Sub/Or Splitter, lots of debug output

Browse Source 
git-svn-id: trunk@21660 -
This commit is contained in:
masta 2012-06-20 12:39:28 +00:00
parent 5498456269
commit 2768e0fc12
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/arm/cgcpu.pas
View File

@ -805,23 +805,8 @@ unit cgcpu;
not(cgsetflags or setflags) and not(cgsetflags or setflags) and
split_into_shifter_const(a, imm1, imm2) then split_into_shifter_const(a, imm1, imm2) then
begin begin
case (op) of list.concat(taicpu.op_reg_reg_const(op_reg_reg_opcg2asmop[op],dst,src,imm1));
OP_ADD: list.concat(taicpu.op_reg_reg_const(op_reg_reg_opcg2asmop[op],dst,dst,imm2));
begin
list.concat(taicpu.op_reg_reg_const(A_ADD,dst,src,imm1));
list.concat(taicpu.op_reg_reg_const(A_ADD,dst,dst,imm2));
end;
OP_SUB:
begin
list.concat(taicpu.op_reg_reg_const(A_SUB,dst,src,imm1));
list.concat(taicpu.op_reg_reg_const(A_SUB,dst,dst,imm2));
end;
OP_OR:
begin
list.concat(taicpu.op_reg_reg_const(A_ORR,dst,src,imm1));
list.concat(taicpu.op_reg_reg_const(A_ORR,dst,dst,imm2));
end;
end;
end end
else else
begin begin