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

* compilation fixed

Browse Source 
git-svn-id: trunk@12613 -
This commit is contained in:
florian 2009-01-26 14:28:07 +00:00
parent 35aed58faa
commit e86a03553e
1 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
compiler/systems/t_embed.pas
View File

@ -208,32 +208,35 @@ begin
end;
{$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('}');
with linkres do
begin
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('}');
end;
{$endif ARM}
{ Write and Close response }