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

+ first linker script for arm-embedded

Browse Source 
git-svn-id: trunk@12596 -
This commit is contained in:
florian 2009-01-25 21:48:38 +00:00
parent 9f9c01cef8
commit 2a29180517
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/systems/t_embed.pas
View File

@ -207,7 +207,36 @@ begin
end;
end;
{ Write and Close response }
{$ifdef ARM}
Add('SECTIONS');
Add('{');
Add(' /* interrupt vectors */');
Add(' . = 0x0; /* start of flash */');
Add(' .init :');
Add(' {');
Add(' *(.init)');
Add(' }');
Add(' /* code and constants */');
Add(' .text :');
Add(' {');
Add(' *(.text)');
Add(' *(.strings)');
Add(' *(.rodata.*)');
Add(' *(.comment)');
Add(' }');
Add(' /* uninitialized data */');
Add(' . = 0x40000000; /* start of ram */');
Add(' .bss :');
Add(' {');
Add(' *(.bss)');
Add(' *(COMMON)');
Add(' *(.data)');
Add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
Add(' }');
Add('}');
{$endif ARM}
{ Write and Close response }
linkres.writetodisk;
linkres.free;