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

+ All sections get names in macos

Browse Source
This commit is contained in:
olle 2004-10-31 15:29:39 +00:00
parent c9eba4e861
commit f8c9ad629c
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/pmodules.pas
View File

@ -48,10 +48,13 @@ implementation
{$endif GDB} {$endif GDB}
scanner,pbase,pexpr,psystem,psub; scanner,pbase,pexpr,psystem,psub;
procedure fixseg(p:TAAsmoutput;sec:TAsmSectionType); procedure fixseg(p:TAAsmoutput; sec:TAsmSectionType; secname: string);
begin begin
maybe_new_object_file(p); maybe_new_object_file(p);
p.insert(Tai_section.Create(sec,'',0)); if target_info.system <> system_powerpc_macos then
p.insert(Tai_section.Create(sec,'',0))
else
p.insert(Tai_section.Create(sec,secname,0));
end; end;
@ -148,6 +151,7 @@ implementation
procedure insertsegment; procedure insertsegment;
var var
oldaktfilepos : tfileposinfo; oldaktfilepos : tfileposinfo;
{Note: Sections get names in macos only.}
begin begin
{ Insert Ident of the compiler } { Insert Ident of the compiler }
if (not (cs_create_smart in aktmoduleswitches)) if (not (cs_create_smart in aktmoduleswitches))
@ -163,17 +167,17 @@ implementation
end; end;
{ align code segment } { align code segment }
codeSegment.concat(Tai_align.Create(aktalignment.procalign)); codeSegment.concat(Tai_align.Create(aktalignment.procalign));
{ Insert start and end of sections } { Insert start and end of sections }
fixseg(codesegment,sec_code); fixseg(codesegment,sec_code,'____seg_code');
fixseg(datasegment,sec_data); fixseg(datasegment,sec_data,'____seg_data');
fixseg(bsssegment,sec_bss); fixseg(bsssegment,sec_bss,'____seg_bss');
{ we should use .rdata section for these two no ? { we should use .rdata section for these two no ?
.rdata is a read only data section (PM) } .rdata is a read only data section (PM) }
fixseg(rttilist,sec_data); fixseg(rttilist,sec_data,'____seg_rtti');
fixseg(consts,sec_data); fixseg(consts,sec_data,'____seg_consts');
fixseg(picdata,sec_data); fixseg(picdata,sec_data,'____seg_picdata');
if assigned(resourcestringlist) then if assigned(resourcestringlist) then
fixseg(resourcestringlist,sec_data); fixseg(resourcestringlist,sec_data,'____seg_resstrings');
{$ifdef GDB} {$ifdef GDB}
if assigned(debuglist) then if assigned(debuglist) then
begin begin
@ -181,7 +185,7 @@ implementation
aktfilepos.line:=0; aktfilepos.line:=0;
debugList.insert(Tai_symbol.Createname('gcc2_compiled',AT_DATA,0)); debugList.insert(Tai_symbol.Createname('gcc2_compiled',AT_DATA,0));
debugList.insert(Tai_symbol.Createname('fpc_compiled',AT_DATA,0)); debugList.insert(Tai_symbol.Createname('fpc_compiled',AT_DATA,0));
fixseg(debuglist,sec_code); fixseg(debuglist,sec_code,'____seg_debug');
aktfilepos:=oldaktfilepos; aktfilepos:=oldaktfilepos;
end; end;
{$endif GDB} {$endif GDB}
@ -1508,7 +1512,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.168 2004-10-26 15:11:01 peter Revision 1.169 2004-10-31 15:29:39 olle
+ All sections get names in macos
Revision 1.168 2004/10/26 15:11:01 peter
* -Ch for heapsize added again * -Ch for heapsize added again
* __heapsize contains the heapsize * __heapsize contains the heapsize