paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved MIPS-specific tprocdef.total_local_size field to cpu-specific

Browse Source 
descendant

git-svn-id: trunk@27436 -
This commit is contained in:
Jonas Maebe 2014-04-01 21:41:21 +00:00
parent d020a32b9a
commit f101118cd6
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/mips/cpupi.pas
View File

@ -60,7 +60,7 @@ implementation
uses uses
systems,globals,verbose, systems,globals,verbose,
cpubase,cgbase,cgobj, cpubase,cgbase,cgobj,
tgobj,paramgr,symconst; tgobj,paramgr,symconst,symcpu;
constructor TMIPSProcInfo.create(aparent: tprocinfo); constructor TMIPSProcInfo.create(aparent: tprocinfo);
begin begin
@ -143,7 +143,7 @@ implementation
if computed_local_size=-1 then if computed_local_size=-1 then
begin begin
computed_local_size:=result; computed_local_size:=result;
procdef.total_local_size:=result; tcpuprocdef(procdef).total_local_size:=result;
end end
else if computed_local_size <> result then else if computed_local_size <> result then
Comment(V_Error,'TMIPSProcInfo.calc_stackframe_size result changed'); Comment(V_Error,'TMIPSProcInfo.calc_stackframe_size result changed');
@ -154,7 +154,7 @@ implementation
if procdef=nil then if procdef=nil then
mips_extra_offset:=0 mips_extra_offset:=0
else else
mips_extra_offset:=procdef.total_local_size; mips_extra_offset:=tcpuprocdef(procdef).total_local_size;
end; end;
begin begin

2
compiler/mips/symcpu.pas
View File

@ -91,6 +91,8 @@ type
tcpuprocvardefclass = class of tcpuprocvardef; tcpuprocvardefclass = class of tcpuprocvardef;
tcpuprocdef = class(tprocdef) tcpuprocdef = class(tprocdef)
{ needed for stabs debugging }
total_local_size : longint;
end; end;
tcpuprocdefclass = class of tcpuprocdef; tcpuprocdefclass = class of tcpuprocdef;

4
compiler/symdef.pas
View File

@ -720,10 +720,6 @@ interface
stored in total_stackframe_size } stored in total_stackframe_size }
total_stackframe_size : aint; total_stackframe_size : aint;
{$endif defined(arm)} {$endif defined(arm)}
{$ifdef mips}
{ needed for stabs debugging }
total_local_size : longint;
{$endif mips}
visibility : tvisibility; visibility : tvisibility;
{ set to a value different from tsk_none in case this procdef is for { 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 } a routine that has to be internally generated by the compiler }