diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-07-20 20:52:59 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-07-20 20:52:59 +0000 |
commit | eddec299b3afa5949cd9f74d710257357008ac93 (patch) | |
tree | 33aa3a662d5fa7a766acad4d76c6fe02b54b2b4f /compiler/hlcgobj.pas | |
parent | 1253175281bfd8bc068aaa7aee9487c09b14d066 (diff) | |
download | fpc-eddec299b3afa5949cd9f74d710257357008ac93.tar.gz |
* specify the def of assembler level symbols defined via
tasmdata.DefineAsmSymbol() and all routines that call it
o will be used to automatically generate AB_INDIRECT sybols when
necessary
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34164 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/hlcgobj.pas')
-rw-r--r-- | compiler/hlcgobj.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas index 272a7603c9..2b92e8b303 100644 --- a/compiler/hlcgobj.pas +++ b/compiler/hlcgobj.pas @@ -3788,12 +3788,12 @@ implementation new_section(list,sec_code,wrappername,target_info.alignment.procalign); if global then begin - sym:=current_asmdata.DefineAsmSymbol(wrappername,AB_GLOBAL,AT_FUNCTION); + sym:=current_asmdata.DefineAsmSymbol(wrappername,AB_GLOBAL,AT_FUNCTION,procdef); list.concat(Tai_symbol.Create_global(sym,0)); end else begin - sym:=current_asmdata.DefineAsmSymbol(wrappername,AB_LOCAL,AT_FUNCTION); + sym:=current_asmdata.DefineAsmSymbol(wrappername,AB_LOCAL,AT_FUNCTION,procdef); list.concat(Tai_symbol.Create(sym,0)); end; a_jmp_external_name(list,externalname); @@ -4464,9 +4464,9 @@ implementation for msdos target with -CX option for instance } (create_smartlink_library and not is_nested_pd(current_procinfo.procdef)) or (po_global in current_procinfo.procdef.procoptions) then - list.concat(Tai_symbol.createname_global(item.str,AT_FUNCTION,0)) + list.concat(Tai_symbol.createname_global(item.str,AT_FUNCTION,0,current_procinfo.procdef)) else - list.concat(Tai_symbol.createname(item.str,AT_FUNCTION,0)); + list.concat(Tai_symbol.createname(item.str,AT_FUNCTION,0,current_procinfo.procdef)); if assigned(previtem) and (target_info.system in systems_darwin) then list.concat(tai_directive.create(asd_reference,previtem.str)); |