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

* moved ARM-specific tprocdef.total_stackframe_size field to cpu-specific

Browse Source 
descendant

git-svn-id: trunk@27437 -
This commit is contained in:
Jonas Maebe 2014-04-01 21:41:24 +00:00
parent f101118cd6
commit 5053a39501
4 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/cpupara.pas
View File

@ -54,7 +54,7 @@ unit cpupara;
uses
verbose,systems,cutils,
defutil,symsym,symtable,
defutil,symsym,symcpu,symtable,
{ PowerPC uses procinfo as well in cpupara, so this should not hurt }
procinfo;
@ -301,7 +301,7 @@ unit cpupara;
curmmreg:=RS_D0;
if (side=calleeside) and (GenerateThumbCode or (pi_estimatestacksize in current_procinfo.flags)) then
cur_stack_offset:=(p as tprocdef).total_stackframe_size
cur_stack_offset:=(p as tcpuprocdef).total_stackframe_size
else
cur_stack_offset:=0;
sparesinglereg := NR_NO;

4
compiler/arm/cpupi.pas
View File

@ -57,7 +57,7 @@ unit cpupi;
globals,systems,
cpubase,
tgobj,
symconst,symtype,symsym,paramgr,
symconst,symtype,symsym,symcpu,paramgr,
cgutils,
cgobj,
defutil;
@ -254,7 +254,7 @@ unit cpupi;
procedure tarmprocinfo.generate_parameter_info;
begin
procdef.total_stackframe_size:=stackframesize;
tcpuprocdef(procdef).total_stackframe_size:=stackframesize;
inherited generate_parameter_info;
end;

6
compiler/arm/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface
uses
symdef,symsym;
symdef,symsym,globtype;
type
{ defs }
@ -91,6 +91,10 @@ type
tcpuprocvardefclass = class of tcpuprocvardef;
tcpuprocdef = class(tprocdef)
{ the arm paramanager might need to know the total size of the stackframe
to avoid cyclic unit dependencies or global variables, this infomatation is
stored in total_stackframe_size }
total_stackframe_size : aint;
end;
tcpuprocdefclass = class of tcpuprocdef;

6
compiler/symdef.pas
View File

@ -714,12 +714,6 @@ interface
{$endif oldregvars}
import_nr : word;
extnumber : word;
{$if defined(arm)}
{ the arm paramanager might need to know the total size of the stackframe
to avoid cyclic unit dependencies or global variables, this infomatation is
stored in total_stackframe_size }
total_stackframe_size : aint;
{$endif defined(arm)}
visibility : tvisibility;
{ set to a value different from tsk_none in case this procdef is for
a routine that has to be internally generated by the compiler }