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

Also check for the type of the register when replacing it. In certain circumstances this can still lead to access to invalid memory resulting either in an access violation or invalid registers.

Browse Source 
git-svn-id: trunk@22779 -
This commit is contained in:
svenbarth 2012-10-19 19:35:45 +00:00
parent ee62a1ed50
commit d15304c25e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/rgobj.pas
View File

@ -2259,9 +2259,12 @@ unit rgobj;
begin begin
if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
begin begin
{ no need to check for the register type here } if (ref^.base <> NR_NO) and
tryreplacereg(ref^.base); (getregtype(ref^.base)=regtype) then
tryreplacereg(ref^.index); tryreplacereg(ref^.base);
if (ref^.index <> NR_NO) and
(getregtype(ref^.index)=regtype) then
tryreplacereg(ref^.index);
end; end;
end; end;
{$ifdef ARM} {$ifdef ARM}