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

    descendant

git-svn-id: trunk@27436 -

compiler/mips/cpupi.pas

@@ -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

compiler/mips/symcpu.pas

@@ -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;
 

compiler/symdef.pas

@@ -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 }