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

* cpus that only understand Thumb-2 don't support "blx <imm>"


git-svn-id: trunk@19238 -

Jonas Maebe пре 14 година
родитељ
комит
2b11fd2bef
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      compiler/arm/cgcpu.pas

+ 2 - 1
compiler/arm/cgcpu.pas

@@ -515,7 +515,8 @@ unit cgcpu;
         branchopcode: tasmop;
       begin
         { check not really correct: should only be used for non-Thumb cpus }
-        if (current_settings.cputype<cpu_armv5) then
+        if (current_settings.cputype<cpu_armv5) or
+           (current_settings.cputype in cpu_thumb2) then
           branchopcode:=A_BL
         else
           branchopcode:=A_BLX;