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

* cleanup of 2.7.0 defines

Browse Source
This commit is contained in:
florian 2021-10-31 13:20:28 +01:00
parent e657aa6431
commit ff3acfb8cd
23 changed files with 6 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aarch64/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type extended; ts80real = type extended;

2
compiler/arm/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type extended; ts80real = type extended;

2
compiler/avr/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type extended; ts80real = type extended;

4
compiler/compiler.pas
View File

@ -36,7 +36,7 @@ uses
{$ifdef WATCOM} {$ifdef WATCOM}
emu387, emu387,
{$endif WATCOM} {$endif WATCOM}
{$if defined(unix) and (FPC_FULLVERSION>20700)} {$if defined(unix)}
{ system code page stuff for unix } { system code page stuff for unix }
unixcp, unixcp,
fpwidestring, fpwidestring,
@ -197,7 +197,7 @@ procedure InitCompiler(const cmd:TCmdStr);
begin begin
if CompilerInited then if CompilerInited then
DoneCompiler; DoneCompiler;
{$if defined(unix) and (FPC_FULLVERSION>20700)} {$if defined(unix)}
{ Set default code page for ansistrings on unix-like systems } { Set default code page for ansistrings on unix-like systems }
DefaultSystemCodePage:=GetSystemCodePage; DefaultSystemCodePage:=GetSystemCodePage;
{$endif} {$endif}

3
compiler/cresstr.pas
View File

@ -32,9 +32,6 @@ implementation
uses uses
SysUtils, SysUtils,
{$if FPC_FULLVERSION<20700}
ccharset,
{$endif}
cclasses,widestr, cclasses,widestr,
cutils,globtype,globals,systems, cutils,globtype,globals,systems,
symbase,symconst,symtype,symdef,symsym,symtable, symbase,symconst,symtype,symdef,symsym,symtable,

2
compiler/generic/cpuinfo.pas
View File

@ -24,13 +24,11 @@ Interface
Type Type
bestreal = extended; bestreal = extended;
{$if FPC_FULLVERSION>20700}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
bestrealrec = TExtended80Rec; bestrealrec = TExtended80Rec;
{$else} {$else}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif} {$endif}
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type extended; ts80real = type extended;

2
compiler/i386/cpuinfo.pas
View File

@ -30,9 +30,7 @@ Interface
Type Type
bestreal = extended; bestreal = extended;
{$if FPC_FULLVERSION>20700}
bestrealrec = TExtended80Rec; bestrealrec = TExtended80Rec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/i8086/cpuinfo.pas
View File

@ -30,9 +30,7 @@ Interface
Type Type
bestreal = extended; bestreal = extended;
{$if FPC_FULLVERSION>20700}
bestrealrec = TExtended80Rec; bestrealrec = TExtended80Rec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/jvm/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/m68k/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/mips/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type double; ts80real = type double;

4
compiler/nadd.pas
View File

@ -1121,7 +1121,7 @@ implementation
end; end;
end; end;
{$if (FPC_FULLVERSION>20700) and not defined(FPC_SOFT_FPUX80)} {$if not defined(FPC_SOFT_FPUX80)}
{ bestrealrec is 2.7.1+ only } { bestrealrec is 2.7.1+ only }
{ replace .../const by a multiplication, but only if fastmath is enabled or { replace .../const by a multiplication, but only if fastmath is enabled or
@ -1170,7 +1170,7 @@ implementation
else else
; ;
end; end;
{$endif FPC_FULLVERSION>20700} {$endif not defined(FPC_SOFT_FPUX80)}
{ first, we handle widestrings, so we can check later for } { first, we handle widestrings, so we can check later for }
{ stringconstn only } { stringconstn only }

2
compiler/options.pas
View File

@ -95,7 +95,7 @@ implementation
uses uses
widestr, widestr,
{$if FPC_FULLVERSION<20700}ccharset{$else}charset{$endif}, charset,
SysUtils, SysUtils,
version, version,
cutils,cmsgs, cutils,cmsgs,

2
compiler/powerpc/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/powerpc64/cpuinfo.pas
View File

@ -23,9 +23,7 @@ uses
type type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/riscv32/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/riscv64/cpuinfo.pas
View File

@ -23,9 +23,7 @@ uses
type type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

6
compiler/scanner.pas
View File

@ -291,11 +291,7 @@ implementation
cpuinfo, cpuinfo,
fmodule,fppu, fmodule,fppu,
{ this is needed for $I %CURRENTROUTINE%} { this is needed for $I %CURRENTROUTINE%}
procinfo procinfo;
{$if FPC_FULLVERSION<20700}
,ccharset
{$endif}
;
var var
{ dictionaries with the supported directives } { dictionaries with the supported directives }

2
compiler/sparc/cpuinfo.pas
View File

@ -30,9 +30,7 @@ uses
type type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/sparc64/cpuinfo.pas
View File

@ -30,9 +30,7 @@ uses
type type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/wasm32/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/x86_64/cpuinfo.pas
View File

@ -30,13 +30,11 @@ Interface
Type Type
bestreal = extended; bestreal = extended;
{$if FPC_FULLVERSION>20700}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
bestrealrec = TExtended80Rec; bestrealrec = TExtended80Rec;
{$else} {$else}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif} {$endif}
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

2
compiler/z80/cpuinfo.pas
View File

@ -23,9 +23,7 @@ Interface
Type Type
bestreal = double; bestreal = double;
{$if FPC_FULLVERSION>20700}
bestrealrec = TDoubleRec; bestrealrec = TDoubleRec;
{$endif FPC_FULLVERSION>20700}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = type extended; ts80real = type extended;