paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +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
systems,globals,verbose,
cpubase,cgbase,cgobj,
tgobj,paramgr,symconst;
tgobj,paramgr,symconst,symcpu;
constructor TMIPSProcInfo.create(aparent: tprocinfo);
begin
@ -143,7 +143,7 @@ implementation
if computed_local_size=-1 then
begin
computed_local_size:=result;
procdef.total_local_size:=result;
tcpuprocdef(procdef).total_local_size:=result;
end
else if computed_local_size <> result then
Comment(V_Error,'TMIPSProcInfo.calc_stackframe_size result changed');
@ -154,7 +154,7 @@ implementation
if procdef=nil then
mips_extra_offset:=0
else
mips_extra_offset:=procdef.total_local_size;
mips_extra_offset:=tcpuprocdef(procdef).total_local_size;
end;
begin

2
compiler/mips/symcpu.pas
View File

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

4
compiler/symdef.pas
View File

@ -720,10 +720,6 @@ interface
stored in total_stackframe_size }
total_stackframe_size : aint;
{$endif defined(arm)}
{$ifdef mips}
{ needed for stabs debugging }
total_local_size : longint;
{$endif mips}
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 }