summaryrefslogtreecommitdiff
path: root/compiler/arm/rgcpu.pas
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/arm/rgcpu.pas')
-rw-r--r--compiler/arm/rgcpu.pas9
1 files changed, 5 insertions, 4 deletions
diff --git a/compiler/arm/rgcpu.pas b/compiler/arm/rgcpu.pas
index 65a7fda72f..7fa6c16e2d 100644
--- a/compiler/arm/rgcpu.pas
+++ b/compiler/arm/rgcpu.pas
@@ -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;