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

Avoid internalerror in RemoveCurrentP for arm compiler

Browse Source 
git-svn-id: trunk@47690 -
This commit is contained in:
pierre 2020-12-05 21:23:09 +00:00
parent 0189276a12
commit 19d5e43615
1 changed files with 1 additions and 1 deletions

2
compiler/arm/aoptcpu.pas
View File

@ -1545,7 +1545,7 @@ Implementation
asml.InsertAfter(dealloc,hpfar1);
end;
if not Assigned(hp1) then
if (not Assigned(hp1)) or (p=hp1) then
GetNextInstruction(p, hp1);
RemoveCurrentP(p, hp1);