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

Raise internalerror inside RemoveCurentP is called with p=hp1, because it leads to using a class instance after it has been freed

Browse Source 
git-svn-id: trunk@47689 -
This commit is contained in:
pierre 2020-12-05 21:22:18 +00:00
parent 4f3a21eeec
commit 0189276a12
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aoptobj.pas
View File

@ -1506,6 +1506,8 @@ Unit AoptObj;
procedure TAOptObj.RemoveCurrentP(var p: tai; const hp1: tai); inline; procedure TAOptObj.RemoveCurrentP(var p: tai; const hp1: tai); inline;
begin begin
if (p=hp1) then
internalerror(2020120501);
UpdateUsedRegs(tai(p.Next)); UpdateUsedRegs(tai(p.Next));
AsmL.Remove(p); AsmL.Remove(p);
p.Free; p.Free;