From a3184d7ff593939043f1f6cf2a874015b4df5d30 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 14 Jun 2012 15:06:40 +0000
Subject: [PATCH]  Merge of 21562 by Foxsen, needs_frame_pointer field added to
 TMIPSProcInfo

git-svn-id: trunk@21611 -
---
 compiler/mips/cpupi.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/mips/cpupi.pas b/compiler/mips/cpupi.pas
index 9c37ad56d0..4318b18ae8 100644
--- a/compiler/mips/cpupi.pas
+++ b/compiler/mips/cpupi.pas
@@ -40,6 +40,7 @@ interface
       floatregstart : aint;
       intregssave,
       floatregssave : byte;
+      needs_frame_pointer: boolean;
       register_used : tparasupregsused;
       register_offset : tparasupregsoffset;
       computed_local_size : longint;
@@ -71,7 +72,8 @@ implementation
           end;
         floatregssave:=12; { f20-f31 }
         intregssave:=12;   { r16-r23,r28-r31 }
-
+        { for testing }
+        needs_frame_pointer := true;//false;
         computed_local_size:=-1;
       end;
 
@@ -84,7 +86,8 @@ implementation
         if tg.direction = -1 then
           tg.setfirsttemp(0)
         else
-          tg.setfirsttemp(maxpushedparasize+floatregssave*sizeof(aint)+intregssave*sizeof(aint));
+          tg.setfirsttemp(maxpushedparasize+
+           floatregssave*sizeof(aint)+intregssave*sizeof(aint));
       end;
 
 
@@ -97,7 +100,7 @@ implementation
         floatregstart:=result;
         inc(result,floatregssave*4);
         intregstart:=result;
-        inc(result,intregssave*4);
+        //inc(result,intregssave*4);
         result:=Align(tg.lasttemp,max(current_settings.alignment.localalignmin,8));
         if computed_local_size=-1 then
           begin