paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +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

6
compiler/sparcgen/ncpuset.pas
View File

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