paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation of arm compiler on 32 bit hosts

Browse Source 
git-svn-id: trunk@49281 -
This commit is contained in:
florian 2021-04-27 16:36:40 +00:00
parent 77e3a402da
commit 0ffd4f8780
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/narmset.pas
View File

@ -196,10 +196,18 @@ implementation
if assigned(t^.less) then
genitem_thumb2(list,t^.less);
{ fill possible hole }
for i:=last.svalue+1 to t^._low.svalue-1 do
list.concat(Tai_const.Create_rel_sym(aitconst_half16bit,tablelabel,elselabel));
for i:=t^._low.svalue to t^._high.svalue do
list.concat(Tai_const.Create_rel_sym(aitconst_half16bit,tablelabel,blocklabel(t^.blockid)));
i:=last.svalue+1;
while i<=t^._low.svalue-1 do
begin
list.concat(Tai_const.Create_rel_sym(aitconst_half16bit,tablelabel,elselabel));
i:=i+1;
end;
i:=t^._low.svalue;
while i<=t^._high.svalue do
begin
list.concat(Tai_const.Create_rel_sym(aitconst_half16bit,tablelabel,blocklabel(t^.blockid)));
i:=i+1;
end;
last:=t^._high.svalue;
if assigned(t^.greater) then
genitem_thumb2(list,t^.greater);