paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 12:47:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

- MIPS: removed functions get_fsr and set_fsr from the RTL in case the SoftFPU

Browse Source 
is enabled, because they contain inline assembler, containing FPU code
This commit is contained in:
Nikolay Nikolov 2024-10-02 20:25:56 +03:00
parent b78679afa1
commit 1b26f5c3a3
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/mips/cpuh.inc
View File

@ -14,5 +14,9 @@
**********************************************************************}
{$if defined(FPUNONE) or defined(FPUSOFT)}
{$define FPC_SYSTEM_FPUCW_IMMUTABLE}
{$else}
type
TNativeFPUControlWord = dword;
{$endif}

4
rtl/mips/mips.inc
View File

@ -16,7 +16,7 @@
{****************************************************************************
MIPS specific stuff
****************************************************************************}
{$IFNDEF FPUNONE}
{$if not defined(FPUNONE) and not defined(FPUSOFT)}
function get_fsr : dword;assembler;nostackframe;[public, alias: 'FPC_GETFSR'];
asm
cfc1 $2,$31
@ -72,7 +72,7 @@ const
fpu_all_bits = fpu_enable_mask or fpu_flags_mask or fpu_cause_mask or fpu_rounding_mask;
{$ENDIF}
{$endif}
{$if defined(FPUMIPS2) or defined(FPUMIPS3)}