paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

if not ps1 setup FPU defines

Browse Source
This commit is contained in:
Kirill Kranz 2024-09-24 14:03:38 +02:00 committed by Nikolay Nikolov
parent 17c0765655
commit d7e24e8708
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/options.pas
View File

@ -4658,14 +4658,11 @@ procedure read_arguments(cmd:TCmdStr);
def_system_macro('CPUMIPS32');
def_system_macro('CPUMIPSEL32');
def_system_macro('CPU32');
if target_info.system=system_x86_64_win64 then
begin
def_system_macro('FPC_CURRENCY_IS_INT64');
def_system_macro('FPC_COMP_IS_INT64');
end;
// def_system_macro('FPC_HAS_TYPE_DOUBLE');
// def_system_macro('FPC_HAS_TYPE_SINGLE');
// def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
if target_info.system <> system_mipsel_ps1 then begin
def_system_macro('FPC_HAS_TYPE_DOUBLE');
def_system_macro('FPC_HAS_TYPE_SINGLE');
def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
end;
def_system_macro('FPC_CURRENCY_IS_INT64');
def_system_macro('FPC_COMP_IS_INT64');
def_system_macro('FPC_REQUIRES_PROPER_ALIGNMENT');