paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* create a thumb_func directive before .globl directives in assembler to prevent accidental changes of asm mode

Browse Source 
git-svn-id: trunk@28556 -
This commit is contained in:
florian 2014-08-31 15:01:55 +00:00
parent 1e86d2ba2f
commit 3f18d85434
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aggas.pas
View File

@ -1244,6 +1244,11 @@ implementation
end; end;
if tai_label(hp).labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN] then if tai_label(hp).labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN] then
begin begin
{$ifdef arm}
{ do no change arm mode accidently, .globl seems to reset the mode }
if GenerateThumbCode or GenerateThumb2Code then
AsmWriteln(#9'.thumb_func'#9);
{$endif arm}
AsmWrite('.globl'#9); AsmWrite('.globl'#9);
if replaceforbidden then if replaceforbidden then
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_label(hp).labsym.name)) AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_label(hp).labsym.name))