paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 12:10:47 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/arm/rgcpu.pas
View File

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