paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix mipsel-android by making sure P does not point to a freed instruction

Browse Source 
git-svn-id: trunk@45812 -
This commit is contained in:
pierre 2020-07-19 21:21:18 +00:00
parent 09125e834f
commit 0c6998bb11
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/aoptcpu.pas
View File

@ -876,7 +876,7 @@ unit aoptcpu;
end;
{ hp2 is still at b yyy }
GetNextInstruction(hp2,hp1);
{ hp2 is now at xxx: }
{ hp1 is now at xxx: }
condition:=inverse_cond(condition);
GetNextInstruction(hp1,hp1);
{ hp1 is now at <several movs 2> }
@ -891,6 +891,8 @@ unit aoptcpu;
asml.remove(hp3);
hp3.free;
{ remove jmp }
if (p=hp2) then
GetNextInstruction(hp2,p);
tasmlabel(taicpu(hp2).oper[taicpu(hp2).ops-1]^.ref^.symbol).decrefs;
RemoveDelaySlot(hp2);
asml.remove(hp2);