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

* move the indirect symbols from al_exports to a new assembler list al_indirectglobals; otherwise compilation would fail horribly if we'd try to compile with a .def file as then the al_exports sections are ignored by the internal linker

Browse Source 
git-svn-id: trunk@35258 -
This commit is contained in:
svenbarth 2017-01-07 20:18:17 +00:00
parent 29a2c433f7
commit 729d582822
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmdata.pas
View File

@ -58,6 +58,8 @@ interface
al_exports, al_exports,
al_resources, al_resources,
al_rtti, al_rtti,
{ all symbols with indirect suffix }
al_indirectglobals,
al_dwarf_frame, al_dwarf_frame,
al_dwarf_info, al_dwarf_info,
al_dwarf_abbrev, al_dwarf_abbrev,
@ -112,6 +114,7 @@ interface
'al_exports', 'al_exports',
'al_resources', 'al_resources',
'al_rtti', 'al_rtti',
'al_indirectglobals',
'al_dwarf_frame', 'al_dwarf_frame',
'al_dwarf_info', 'al_dwarf_info',
'al_dwarf_abbrev', 'al_dwarf_abbrev',

2
compiler/aasmdef.pas
View File

@ -68,7 +68,7 @@ function TAsmDataDef.DefineAsmSymbolByClass(symclass: TAsmSymbolClass; const s:
symind:=current_asmdata.DefineAsmSymbol(s,AB_INDIRECT,AT_DATA,ptrdef); symind:=current_asmdata.DefineAsmSymbol(s,AB_INDIRECT,AT_DATA,ptrdef);
tcb:=ctai_typedconstbuilder.create([tcalo_make_dead_strippable,tcalo_new_section]); tcb:=ctai_typedconstbuilder.create([tcalo_make_dead_strippable,tcalo_new_section]);
tcb.emit_tai(Tai_const.Create_sym_offset(result,0),ptrdef); tcb.emit_tai(Tai_const.Create_sym_offset(result,0),ptrdef);
current_asmdata.AsmLists[al_exports].concatlist(tcb.get_final_asmlist( current_asmdata.AsmLists[al_indirectglobals].concatlist(tcb.get_final_asmlist(
symind,ptrdef, symind,ptrdef,
sec_rodata, sec_rodata,
lower(symind.name), lower(symind.name),