paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 00:07:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed linker map

Browse Source 
git-svn-id: trunk@12618 -
This commit is contained in:
florian 2009-01-26 17:25:16 +00:00
parent 6d7d6dbd60
commit 812d159f34
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/systems/t_embed.pas
View File

@ -81,7 +81,11 @@ Var
begin
WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil);
{$ifdef ARM}
prtobj:='';
{$else ARM}
prtobj:='prt0';
{$endif ARM}
cprtobj:='cprt0';
if linklibc then
prtobj:=cprtobj;
@ -112,8 +116,10 @@ begin
{ add objectfiles, start with prt0 always }
//s:=FindObjectFile('prt0','',false);
if prtobj<>'' then
s:=FindObjectFile(prtobj,'',false);
LinkRes.AddFileName(s);
begin
s:=FindObjectFile(prtobj,'',false);
LinkRes.AddFileName(s);
end;
{ try to add crti and crtbegin if linking to C }
if linklibc then
begin
@ -210,18 +216,15 @@ begin
{$ifdef ARM}
with linkres do
begin
add('ENTRY(_START)');
Add('SECTIONS');
Add('{');
Add(' /* interrupt vectors */');
Add(' . = 0x0; /* start of flash */');
Add(' .init :');
Add(' {');
Add(' *(.init)');
Add(' }');
Add(' . = 0x0; /* start of flash */');
Add(' /* code and constants */');
Add(' .text :');
Add(' {');
Add(' *(.text)');
Add(' *(.init, .init.*)');
Add(' *(.text, .text.*)');
Add(' *(.strings)');
Add(' *(.rodata.*)');
Add(' *(.comment)');
@ -230,9 +233,9 @@ begin
Add(' . = 0x40000000; /* start of ram */');
Add(' .bss :');
Add(' {');
Add(' *(.bss)');
Add(' *(.bss, .bss.*)');
Add(' *(COMMON)');
Add(' *(.data)');
Add(' *(.data, .data.*)');
Add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
Add(' }');
Add('}');