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

* moved insertation of pc relative data for arm target

Browse Source 
git-svn-id: trunk@2438 -
This commit is contained in:
florian 2006-02-05 10:32:19 +00:00
parent f7d546ed5f
commit d28d7e3c12
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -957,16 +957,20 @@ implementation
end;
{$endif NoOpt}
{ Add end symbol and debug info }
aktfilepos:=exitpos;
gen_proc_symbol_end(templist);
aktproccode.concatlist(templist);
{$ifdef ARM}
{ because of the limited constant size of the arm, all data access is done pc relative }
insertpcrelativedata(aktproccode,aktlocaldata);
{$endif ARM}
{ Add end symbol and debug info }
{ this must be done after the pcrelativedata is appended else the distance calculation of
insertpcrelativedata will be wrong, further the pc indirect data is part of the procedure
so it should be inserted before the end symbol (FK)
}
aktfilepos:=exitpos;
gen_proc_symbol_end(templist);
aktproccode.concatlist(templist);
{$ifdef POWERPC}
fixup_jmps(aktproccode);
{$endif POWERPC}