From 0ffd4f87808838f1ddb563eaa2863a4d0f984a6d Mon Sep 17 00:00:00 2001 From: florian Date: Tue, 27 Apr 2021 16:36:40 +0000 Subject: [PATCH] * fix compilation of arm compiler on 32 bit hosts git-svn-id: trunk@49281 - --- compiler/arm/narmset.pas | 16 ++++++++++++---- 1 file 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);