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

made arm-linux system unit compilable on anything but Thumb2 after r26161

Browse Source 
git-svn-id: trunk@26175 -
This commit is contained in:
Károly Balogh 2013-12-03 16:36:34 +00:00
parent 9619eac204
commit 71e492db1b
1 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/arm/aasmcpu.pas
View File

@ -1031,6 +1031,7 @@ implementation
end;
end;
{ special case for case jump tables }
penalty:=0;
if SimpleGetNextInstruction(curtai,hp) and
(tai(hp).typ=ait_instruction) then
begin
@ -1056,28 +1057,20 @@ implementation
inc(penalty,multiplier);
hp:=tai(hp.next);
end;
end
else
penalty:=0;
end;
A_IT:
if GenerateThumb2Code then
penalty:=multiplier
else
internalerror(2013112920);
penalty:=multiplier;
A_ITE,
A_ITT:
if GenerateThumb2Code then
penalty:=2*multiplier
else
internalerror(2013112919);
penalty:=2*multiplier;
A_ITEE,
A_ITTE,
A_ITET,
A_ITTT:
if GenerateThumb2Code then
penalty:=3*multiplier
else
internalerror(2013112918);
penalty:=3*multiplier;
A_ITEEE,
A_ITTEE,
A_ITETE,
@ -1087,15 +1080,9 @@ implementation
A_ITETT,
A_ITTTT:
if GenerateThumb2Code then
penalty:=4*multiplier
else
internalerror(2013112917);
else
penalty:=0;
penalty:=4*multiplier;
end;
end
else
penalty:=0;
end;
{ FLD/FST VFP instructions have a limit of +/- 1024, not 4096 }
if SimpleGetNextInstruction(curtai,hp) and