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

Fixed bug where hp1 object was used after being freed

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2021-10-03 19:45:22 +01:00
parent 2e8c99947a
commit 190c77e863
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/aoptx86.pas
View File

@ -5943,9 +5943,10 @@ unit aoptx86;
if taicpu(hp1).opsize=S_B then if taicpu(hp1).opsize=S_B then
begin begin
taicpu(p).loadoper(0, taicpu(hp1).oper[1]^); taicpu(p).loadoper(0, taicpu(hp1).oper[1]^);
RemoveInstruction(hp1);
if taicpu(hp1).oper[1]^.typ = top_reg then if taicpu(hp1).oper[1]^.typ = top_reg then
AllocRegBetween(taicpu(hp1).oper[1]^.reg, p, hp2, UsedRegs); AllocRegBetween(taicpu(hp1).oper[1]^.reg, p, hp2, UsedRegs);
RemoveInstruction(hp1);
end end
else else
begin begin