* moved pbestrealtype from symdef to symcpu

git-svn-id: trunk@27441 -

compiler/aarch64/symcpu.pas

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

compiler/alpha/symcpu.pas

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

compiler/arm/symcpu.pas

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

compiler/avr/symcpu.pas

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

compiler/generic/symcpu.pas

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

compiler/i386/symcpu.pas

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

compiler/i8086/symcpu.pas

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

compiler/ia64/symcpu.pas

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

compiler/jvm/symcpu.pas

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

compiler/m68k/symcpu.pas

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

compiler/mips/symcpu.pas

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

compiler/nadd.pas

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

compiler/ncnv.pas

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

compiler/ninl.pas

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

compiler/pexpr.pas

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

compiler/powerpc/nppccnv.pas

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

compiler/powerpc/symcpu.pas

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

compiler/powerpc64/nppccnv.pas

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

compiler/powerpc64/symcpu.pas

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

compiler/sparc/symcpu.pas

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

compiler/symdef.pas

@@ -1047,52 +1047,6 @@ interface
        { FPC java procvar base class }
        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_dllmangledname(const dllname,importname:TSymStr;

compiler/x86/nx86inl.pas

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

compiler/x86_64/symcpu.pas

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