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

* Fix nostackframe related problems

Browse Source 
git-svn-id: trunk@22719 -
This commit is contained in:
pierre 2012-10-18 11:19:27 +00:00
parent 7bd7cf275c
commit 0b63af56aa
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/mips/mips.inc
View File

@ -17,16 +17,12 @@
MIPS specific stuff MIPS specific stuff
****************************************************************************} ****************************************************************************}
function get_fsr : dword;assembler;nostackframe;[public, alias: 'FPC_GETFSR']; function get_fsr : dword;assembler;nostackframe;[public, alias: 'FPC_GETFSR'];
var
fsr : dword;
asm asm
cfc1 $2,$31 cfc1 $2,$31
end; end;
procedure set_fsr(fsr : dword);assembler;[public, alias: 'FPC_SETFSR']; procedure set_fsr(fsr : dword);assembler;nostackframe;[public, alias: 'FPC_SETFSR'];
var
_fsr : dword;
asm asm
ctc1 $4,$31 ctc1 $4,$31
end; end;