Improvement of rtl/linux/system.pp procedure InitTLS
by 'lagprogramming'.
Because the biggest value of variable "i" is smaller than the biggest value of variable "phnum", it's not guaranteed that all loop iterations are run, which means the code has a bug.
The patch removes variable i by replacing "for i:=1 to phnum do"
with a "while phnum>0 do"
loop.