Преглед изворни кода

* fixed insertpcrelativedata when case jump table is used.

git-svn-id: trunk@5468 -
yury пре 19 година
родитељ
комит
a4407d5ad2
1 измењених фајлова са 4 додато и 1 уклоњено
  1. 4 1
      compiler/arm/aasmcpu.pas

+ 4 - 1
compiler/arm/aasmcpu.pas

@@ -695,7 +695,10 @@ implementation
                       end;
                   end;
                 inc(curpos);
-              end;
+              end
+            else
+              if curtai.typ=ait_const then
+                inc(curpos);
 
             { split only at real instructions else the test below fails }
             if ((curpos-lastpos)>1016) and (curtai.typ=ait_instruction) and