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

* don't include the compiler's ident in stabs for main and put it

Browse Source 
back in the data section

git-svn-id: trunk@2568 -
This commit is contained in:
Jonas Maebe 2006-02-14 15:35:24 +00:00
parent 85c6a6d8e6
commit 2634176ed8
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ncgutil.pas
View File

@ -1769,21 +1769,6 @@ implementation
procedure gen_proc_symbol_end(list:Taasmoutput);
begin
if (current_procinfo.procdef.proctypeoption=potype_proginit) then
begin
{ Insert Ident of the compiler in the main .text section }
if (not (cs_create_smart in aktmoduleswitches)) then
begin
list.insert(Tai_align.Create(const_align(32)));
list.insert(Tai_string.Create('FPC '+full_version_string+
' ['+date_string+'] for '+target_cpu_string+' - '+target_info.shortname));
end;
{ Reference all DEBUGINFO sections from the main .text section }
if (cs_debuginfo in aktmoduleswitches) then
debuginfo.referencesections(list);
end;
list.concat(Tai_symbol_end.Createname(current_procinfo.procdef.mangledname));
current_procinfo.procdef.procendtai:=tai(list.last);
@ -1802,6 +1787,21 @@ implementation
list.concat(Tai_const.Createname(current_procinfo.procdef.mangledname,AT_FUNCTION,0));
end;
if (current_procinfo.procdef.proctypeoption=potype_proginit) then
begin
{ Reference all DEBUGINFO sections from the main .text section }
if (cs_debuginfo in aktmoduleswitches) then
debuginfo.referencesections(list);
{ Insert Ident of the compiler in the main .text section }
if (not (cs_create_smart in aktmoduleswitches)) then
begin
list.concat(Tai_section.create(sec_data,'',0));
list.concat(Tai_align.Create(const_align(32)));
list.concat(Tai_string.Create('FPC '+full_version_string+
' ['+date_string+'] for '+target_cpu_string+' - '+target_info.shortname));
end;
end;
end;