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

* create new object file when creating new section for ansistring/

Browse Source 
unicodestring constants so they can be smartlinked away on
    platforms using library-based smartlinking (mantis #22888)

git-svn-id: trunk@22417 -
This commit is contained in:
Jonas Maebe 2012-09-17 22:30:16 +00:00
parent f5ddc02a5c
commit a13c9d93ff
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/asmutils.pas
View File

@ -60,7 +60,10 @@ uses
current_asmdata.getdatalabel(result.lab); current_asmdata.getdatalabel(result.lab);
result.ofs:=0; result.ofs:=0;
if NewSection then if NewSection then
new_section(list,sec_rodata,result.lab.name,const_align(sizeof(pint))); begin
maybe_new_object_file(list);
new_section(list,sec_rodata,result.lab.name,const_align(sizeof(pint)));
end;
{ put label before header on Darwin, because there the linker considers { put label before header on Darwin, because there the linker considers
a global symbol to be the start of a new subsection } a global symbol to be the start of a new subsection }
if target_info.system in systems_darwin then if target_info.system in systems_darwin then
@ -101,6 +104,7 @@ uses
begin begin
current_asmdata.getdatalabel(result.lab); current_asmdata.getdatalabel(result.lab);
result.ofs:=0; result.ofs:=0;
maybe_new_object_file(list);
new_section(list,sec_rodata,result.lab.name,const_align(sizeof(pint))); new_section(list,sec_rodata,result.lab.name,const_align(sizeof(pint)));
strlength := getlengthwidestring(pcompilerwidestring(data)); strlength := getlengthwidestring(pcompilerwidestring(data));
if Winlike then if Winlike then