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

* Small improvement in inittls. Fixes issue 40408

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-21 23:19:04 +02:00
parent a518fb1fd5
commit c09e8778bd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/system.pp
View File

@ -243,7 +243,6 @@ procedure InitTLS; [public,alias:'FPC_INITTLS'];
var
phdr : pphdr;
phnum : dword;
i : integer;
tls : pointer;
auxp : ppointer;
found : boolean;
@ -269,7 +268,7 @@ procedure InitTLS; [public,alias:'FPC_INITTLS'];
end;
found:=false;
size:=0;
for i:=1 to phnum do
while phnum>0 do
begin
case phdr^.p_type of
PT_TLS:
@ -289,6 +288,7 @@ procedure InitTLS; [public,alias:'FPC_INITTLS'];
exit;
end;
inc(phdr);
dec(phnum);
end;
if found then
begin