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

* More correctly scan Elf Auxiliary Vector. Fixes possible crash when the first vector entry is AT_NULL. Issue #26973.

Browse Source 
git-svn-id: trunk@29065 -
This commit is contained in:
yury 2014-11-12 14:52:56 +00:00
parent ce54992e07
commit c40960466a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/linux/i386/syscall.inc
View File

@ -62,15 +62,16 @@ begin
auxv := PElf32AuxiliaryVector(ep); auxv := PElf32AuxiliaryVector(ep);
repeat while auxv^.a_type <> AT_NULL do
if auxv^.a_type = AT_SYSINFO then begin begin
psysinfo := auxv^.a_un.a_val; if auxv^.a_type = AT_SYSINFO then begin
if psysinfo <> 0 then psysinfo := auxv^.a_un.a_val;
sysenter_supported := 1; // descision factor in asm syscall routines if psysinfo <> 0 then
Break; sysenter_supported := 1; // descision factor in asm syscall routines
Break;
end;
Inc(auxv);
end; end;
Inc(auxv);
until auxv^.a_type = AT_NULL;
end; end;
{***********************SYSENTER CODE END******************************} {***********************SYSENTER CODE END******************************}