diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 16:36:40 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 16:36:40 +0000 |
commit | ae5b0de491a91321675f73eae5db628d068f4e05 (patch) | |
tree | 71c252c47e201945f869d3c8cf5f35d7e4bf7d40 | |
parent | 6b13fc7eb4cf5316977817b48ac8e28729e11228 (diff) | |
download | fpc-ae5b0de491a91321675f73eae5db628d068f4e05.tar.gz |
* fix compilation of arm compiler on 32 bit hosts
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49281 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/arm/narmset.pas | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/compiler/arm/narmset.pas b/compiler/arm/narmset.pas index 3bb9ecd471..9c0d668134 100644 --- a/compiler/arm/narmset.pas +++ b/compiler/arm/narmset.pas @@ -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); |