* Fix nostackframe related problems

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@22719 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 5 deletions

diff --git a/rtl/mips/mips.inc b/rtl/mips/mips.inc
index f0d839c164..841410404e 100644
--- a/rtl/mips/mips.inc
+++ b/rtl/mips/mips.inc
@@ -17,16 +17,12 @@
                            MIPS specific stuff
 ****************************************************************************}
 function get_fsr : dword;assembler;nostackframe;[public, alias: 'FPC_GETFSR'];
-  var
-    fsr : dword;
   asm
     cfc1 $2,$31
   end;
 
 
-procedure set_fsr(fsr : dword);assembler;[public, alias: 'FPC_SETFSR'];
-  var
-    _fsr : dword;
+procedure set_fsr(fsr : dword);assembler;nostackframe;[public, alias: 'FPC_SETFSR'];
   asm
     ctc1 $4,$31
   end;