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

* fix endless loop introduced by manual for -> while conversion

Browse Source 
git-svn-id: trunk@36417 -
This commit is contained in:
florian 2017-06-04 20:04:35 +00:00
parent 126b834976
commit 229f615b59
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparcgen/ncpuset.pas
View File

@ -81,10 +81,16 @@ unit ncpuset;
{ fill possible hole }
i:=last.svalue+1;
while i<=t^._low.svalue-1 do
list.concat(Tai_const.Create_rel_sym(aitconst_ptr,base,elselabel));
begin
list.concat(Tai_const.Create_rel_sym(aitconst_ptr,base,elselabel));
inc(i);
end;
i:=t^._low.svalue;
while i<=t^._high.svalue do
list.concat(Tai_const.Create_rel_sym(aitconst_ptr,base,blocklabel(t^.blockid)));
begin
list.concat(Tai_const.Create_rel_sym(aitconst_ptr,base,blocklabel(t^.blockid)));
inc(i);
end;
last:=t^._high;
if assigned(t^.greater) then
genitem(list,t^.greater);