git-svn-id: trunk@22719 -
@@ -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'];
- _fsr : dword;
+procedure set_fsr(fsr : dword);assembler;nostackframe;[public, alias: 'FPC_SETFSR'];
ctc1 $4,$31