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

* allow mla to take 4 operands, resolves #9461

Browse Source 
git-svn-id: trunk@8801 -
This commit is contained in:
florian 2007-10-14 18:08:49 +00:00
parent dab6eec7e2
commit 9ab1a1c550
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8473,6 +8473,7 @@ tests/webtbs/tw9347a.pp svneol=native#text/plain
tests/webtbs/tw9347b.pp svneol=native#text/plain tests/webtbs/tw9347b.pp svneol=native#text/plain
tests/webtbs/tw9384.pp svneol=native#text/plain tests/webtbs/tw9384.pp svneol=native#text/plain
tests/webtbs/tw9385.pp svneol=native#text/plain tests/webtbs/tw9385.pp svneol=native#text/plain
tests/webtbs/tw9461.pp svneol=native#text/plain
tests/webtbs/tw9667.pp svneol=native#text/plain tests/webtbs/tw9667.pp svneol=native#text/plain
tests/webtbs/tw9672.pp svneol=native#text/plain tests/webtbs/tw9672.pp svneol=native#text/plain
tests/webtbs/tw9673.pp -text tests/webtbs/tw9673.pp -text

2
compiler/arm/raarmgas.pas
View File

@ -628,7 +628,7 @@ Unit raarmgas;
AS_COMMA: { Operand delimiter } AS_COMMA: { Operand delimiter }
Begin Begin
if ((instr.opcode=A_MOV) and (operandnum=2)) or if ((instr.opcode=A_MOV) and (operandnum=2)) or
((operandnum=3) and not(instr.opcode in [A_UMLAL,A_UMULL,A_SMLAL,A_SMULL])) then ((operandnum=3) and not(instr.opcode in [A_UMLAL,A_UMULL,A_SMLAL,A_SMULL,A_MLA])) then
begin begin
Consume(AS_COMMA); Consume(AS_COMMA);
if not(TryBuildShifterOp(instr.Operands[operandnum+1] as tarmoperand)) then if not(TryBuildShifterOp(instr.Operands[operandnum+1] as tarmoperand)) then

10
tests/webtbs/tw9461.pp Normal file
View File

@ -0,0 +1,10 @@
{ %CPU=arm }
procedure p; assembler;
var
i : longint;
asm
mla r0,r1,r2,r3
end;
begin
end.