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

* moved pbestrealtype from symdef to symcpu

Browse Source 
git-svn-id: trunk@27441 -
This commit is contained in:
Jonas Maebe 2014-04-01 21:41:37 +00:00
parent a251b270b6
commit d452686c39
23 changed files with 78 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aarch64/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -131,6 +131,10 @@ type
end; end;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

6
compiler/alpha/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

6
compiler/arm/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym,globtype; symtype,symdef,symsym,globtype;
type type
{ defs } { defs }
@ -168,6 +168,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

6
compiler/avr/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

6
compiler/generic/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @<somestandardfloattype>;
implementation implementation
begin begin

6
compiler/i386/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym,symx86,symi86; symtype,symdef,symsym,symx86,symi86;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s80floattype;
implementation implementation
begin begin

4
compiler/i8086/symcpu.pas
View File

@ -171,6 +171,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s80floattype;
implementation implementation
uses uses

6
compiler/ia64/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

4
compiler/jvm/symcpu.pas
View File

@ -197,6 +197,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
uses uses

4
compiler/m68k/symcpu.pas
View File

@ -173,6 +173,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
{**************************************************************************** {****************************************************************************

6
compiler/mips/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -166,6 +166,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

2
compiler/nadd.pas
View File

@ -110,7 +110,7 @@ implementation
{$ENDIF} {$ENDIF}
globtype,systems,constexp, globtype,systems,constexp,
cutils,verbose,globals,widestr, cutils,verbose,globals,widestr,
symconst,symdef,symsym,symtable,defutil,defcmp, symconst,symdef,symsym,symcpu,symtable,defutil,defcmp,
cgbase, cgbase,
htypechk,pass_1, htypechk,pass_1,
nld,nbas,nmat,ncnv,ncon,nset,nopt,ncal,ninl,nmem,nutils, nld,nbas,nmat,ncnv,ncon,nset,nopt,ncal,ninl,nmem,nutils,

2
compiler/ncnv.pas
View File

@ -293,7 +293,7 @@ implementation
uses uses
globtype,systems,constexp, globtype,systems,constexp,
cutils,verbose,globals,widestr, cutils,verbose,globals,widestr,
symconst,symdef,symsym,symtable, symconst,symdef,symsym,symcpu,symtable,
ncon,ncal,nset,nadd,nmem,nmat,nbas,nutils,ninl, ncon,ncal,nset,nadd,nmem,nmat,nbas,nutils,ninl,
cgbase,procinfo, cgbase,procinfo,
htypechk,pass_1,cpuinfo; htypechk,pass_1,cpuinfo;

2
compiler/ninl.pas
View File

@ -108,7 +108,7 @@ implementation
uses uses
verbose,globals,systems,constexp, verbose,globals,systems,constexp,
globtype,cutils,fmodule, globtype,cutils,fmodule,
symconst,symdef,symsym,symtable,paramgr,defutil,symbase, symconst,symdef,symsym,symcpu,symtable,paramgr,defutil,symbase,
pass_1, pass_1,
ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,nmat,nutils, ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,nmat,nutils,
nobjc,objcdef, nobjc,objcdef,

2
compiler/pexpr.pas
View File

@ -62,7 +62,7 @@ implementation
verbose, verbose,
systems,widestr, systems,widestr,
{ symtable } { symtable }
symconst,symtable,symsym,defutil,defcmp, symconst,symtable,symsym,symcpu,defutil,defcmp,
{ module } { module }
fmodule,ppu, fmodule,ppu,
{ pass 1 } { pass 1 }

2
compiler/powerpc/nppccnv.pas
View File

@ -58,7 +58,7 @@ implementation
uses uses
verbose,globtype,globals,systems, verbose,globtype,globals,systems,
symconst,symdef,aasmbase,aasmtai,aasmdata, symconst,symdef,aasmbase,aasmtai,aasmdata,
defutil, defutil,symcpu,
cgbase,cgutils,pass_1,pass_2, cgbase,cgutils,pass_1,pass_2,
ncon,ncal, ncon,ncal,
ncgutil,procinfo, ncgutil,procinfo,

4
compiler/powerpc/symcpu.pas
View File

@ -173,6 +173,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
{**************************************************************************** {****************************************************************************

2
compiler/powerpc64/nppccnv.pas
View File

@ -58,7 +58,7 @@ implementation
uses uses
verbose, globtype, globals, systems, verbose, globtype, globals, systems,
symconst, symdef, aasmbase, aasmtai,aasmdata, symconst, symdef, aasmbase, aasmtai,aasmdata,
defutil, defutil, symcpu,
cgbase, cgutils, pass_1, pass_2, cgbase, cgutils, pass_1, pass_2,
ncon, ncal,procinfo, ncon, ncal,procinfo,
ncgutil, ncgutil,

6
compiler/powerpc64/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

6
compiler/sparc/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym; symtype,symdef,symsym;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s64floattype;
implementation implementation
begin begin

46
compiler/symdef.pas
View File

@ -1047,52 +1047,6 @@ interface
{ FPC java procvar base class } { FPC java procvar base class }
java_procvarbase : tobjectdef; java_procvarbase : tobjectdef;
const
{$ifdef i8086}
pbestrealtype : ^tdef = @s80floattype;
{$endif}
{$ifdef i386}
pbestrealtype : ^tdef = @s80floattype;
{$endif}
{$ifdef x86_64}
pbestrealtype : ^tdef = @s80floattype;
{$endif}
{$ifdef m68k}
pbestrealtype : ^tdef = @s64floattype;
{$endif}
{$ifdef alpha}
pbestrealtype : ^tdef = @s64floattype;
{$endif}
{$ifdef powerpc}
pbestrealtype : ^tdef = @s64floattype;
{$endif}
{$ifdef POWERPC64}
pbestrealtype : ^tdef = @s64floattype;
{$endif}
{$ifdef ia64}
pbestrealtype : ^tdef = @s64floattype;
{$endif}
{$ifdef SPARC}
pbestrealtype : ^tdef = @s64floattype;
{$endif SPARC}
{$ifdef vis}
pbestrealtype : ^tdef = @s64floattype;
{$endif vis}
{$ifdef ARM}
pbestrealtype : ^tdef = @s64floattype;
{$endif ARM}
{$ifdef MIPS}
pbestrealtype : ^tdef = @s64floattype;
{$endif MIPS}
{$ifdef AVR}
pbestrealtype : ^tdef = @s64floattype;
{$endif AVR}
{$ifdef JVM}
pbestrealtype : ^tdef = @s64floattype;
{$endif JVM}
{$ifdef AARCH64}
pbestrealtype : ^tdef = @s64floattype;
{$endif AARCH64}
function make_mangledname(const typeprefix:TSymStr;st:TSymtable;const suffix:TSymStr):TSymStr; function make_mangledname(const typeprefix:TSymStr;st:TSymtable;const suffix:TSymStr):TSymStr;
function make_dllmangledname(const dllname,importname:TSymStr; function make_dllmangledname(const dllname,importname:TSymStr;

2
compiler/x86/nx86inl.pas
View File

@ -77,7 +77,7 @@ implementation
symconst, symconst,
defutil, defutil,
aasmbase,aasmtai,aasmdata,aasmcpu, aasmbase,aasmtai,aasmdata,aasmcpu,
symtype,symdef, symtype,symdef,symcpu,
cgbase,pass_2, cgbase,pass_2,
cpuinfo,cpubase,paramgr, cpuinfo,cpubase,paramgr,
nbas,ncon,ncal,ncnv,nld,ncgutil, nbas,ncon,ncal,ncnv,nld,ncgutil,

6
compiler/x86_64/symcpu.pas
View File

@ -26,7 +26,7 @@ unit symcpu;
interface interface
uses uses
symdef,symsym,symx86; symtype,symdef,symsym,symx86;
type type
{ defs } { defs }
@ -164,6 +164,10 @@ type
tcpusyssymclass = class of tcpusyssym; tcpusyssymclass = class of tcpusyssym;
const
pbestrealtype : ^tdef = @s80floattype;
implementation implementation
begin begin