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

Avoid invalid typecast if hp is not an instruction

Browse Source 
git-svn-id: trunk@49273 -
This commit is contained in:
pierre 2021-04-26 21:50:53 +00:00
parent 0670980981
commit c2faf6a8fd
1 changed files with 5 additions and 4 deletions

9
compiler/arm/rgcpu.pas
View File

@ -400,10 +400,11 @@ unit rgcpu;
level := 0;
while assigned(hp) do
begin
if IsIT(taicpu(hp).opcode) then
break
else if hp.typ=ait_instruction then
inc(level);
if hp.typ=ait_instruction then
if IsIT(taicpu(hp).opcode) then
break
else
inc(level);
hp:=tai(hp.Previous);
end;