Browse Source

+ generate thumb_func directives for thumb as well

git-svn-id: trunk@24377 -
florian 12 years ago
parent
commit
d4c7afbfe8
2 changed files with 2 additions and 2 deletions
  1. 1 1
      compiler/hlcgobj.pas
  2. 1 1
      compiler/ncgutil.pas

+ 1 - 1
compiler/hlcgobj.pas

@@ -3697,7 +3697,7 @@ implementation
       while assigned(item) do
       while assigned(item) do
         begin
         begin
 {$ifdef arm}
 {$ifdef arm}
-          if current_settings.cputype in cpu_thumb2 then
+          if current_settings.cputype in cpu_thumb2+cpu_thumb then
             list.concat(tai_thumb_func.create);
             list.concat(tai_thumb_func.create);
 {$endif arm}
 {$endif arm}
           { "double link" all procedure entry symbols via .reference }
           { "double link" all procedure entry symbols via .reference }

+ 1 - 1
compiler/ncgutil.pas

@@ -1334,7 +1334,7 @@ implementation
         while assigned(item) do
         while assigned(item) do
           begin
           begin
 {$ifdef arm}
 {$ifdef arm}
-            if current_settings.cputype in cpu_thumb2 then
+            if current_settings.cputype in cpu_thumb2+cpu_thumb then
               list.concat(tai_thumb_func.create);
               list.concat(tai_thumb_func.create);
 {$endif arm}
 {$endif arm}
             { "double link" all procedure entry symbols via .reference }
             { "double link" all procedure entry symbols via .reference }