paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed FPC_REAL2REAL_FIXED-related checks, FPC 2.6.4 has it

Browse Source 
git-svn-id: trunk@31693 -
This commit is contained in:
Jonas Maebe 2015-09-15 11:51:51 +00:00
parent 2afd8eb802
commit 9ab80874cc
2 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -3248,7 +3248,6 @@ begin
def_system_macro('VER'+version_nr+'_'+release_nr+'_'+patch_nr);
{ Temporary defines, until things settle down }
def_system_macro('FPC_REAL2REAL_FIXED');
def_system_macro('FPC_STRTOCHARARRAYPROC');
def_system_macro('FPC_STRTOSHORTSTRINGPROC');
def_system_macro('FPC_OBJFPC_EXTENDED_IF');

2
compiler/pexpr.pas
View File

@ -1583,7 +1583,6 @@ implementation
Message(parser_e_error_in_real);
d:=1.0;
end;
{$ifdef FPC_REAL2REAL_FIXED}
if current_settings.fputype=fpu_none then
Message(parser_e_unsupported_real);
if (current_settings.minfpconstprec=s32real) and
@ -1593,7 +1592,6 @@ implementation
(d = double(d)) then
result:=crealconstnode.create(d,s64floattype)
else
{$endif FPC_REAL2REAL_FIXED}
result:=crealconstnode.create(d,pbestrealtype^);
val(pattern,cur,code);
if code=0 then