Add .force_thumb pseudo-directive support forarm reader

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49271 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 0 deletions

diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index aab41ccc2b..56b8426401 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -1719,6 +1719,11 @@ Implementation
 {$ifdef ARM}
                    asd_thumb_func:
                      ObjData.ThumbFunc:=true;
+                   asd_force_thumb:
+                     begin
+                       ObjData.ThumbFunc:=true;
+                       Code16:=true;
+                     end;
                    asd_code:
                      begin
                        { ai_directive(hp).name can be only 16 or 32, this is checked by the reader }
@@ -1924,6 +1929,9 @@ Implementation
                    asd_thumb_func:
                      { ignore for now, but should be added}
                      ;
+                   asd_force_thumb:
+                     { ignore for now, but should be added}
+                     ;
                    asd_code:
                      { ignore for now, but should be added}
                      ;