* if a CPU platform doesn't explicitely provide the Comp type we declare it as an alias to Int64

git-svn-id: trunk@43774 -

rtl/inc/systemh.inc

@@ -193,9 +193,6 @@ Type
   {$ifndef FPUNONE}
     ValReal = Double;
   {$endif}
-
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
 {$endif FPC_HAS_TYPE_EXTENDED}
 
   {$define SUPPORT_SINGLE}
@@ -224,9 +221,6 @@ Type
     ValReal = Real;
   {$endif}
 
-  { Comp type does not exist on fpu }
-  Comp    = int64;
-
   FarPointer = Pointer;
 {$endif CPUM68K}
 
@@ -242,9 +236,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUPOWERPC}
 
@@ -260,9 +251,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUSPARC}
 
@@ -276,9 +264,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUSPARC64}
 
@@ -296,9 +281,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUMIPS32}
 
@@ -318,9 +300,6 @@ Type
     ValReal = Real;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUARM}
 
@@ -340,9 +319,6 @@ Type
     ValReal = Real;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUAVR}
 
@@ -354,9 +330,6 @@ Type
 
   ValReal = Double;
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPUAARCH64}
 
@@ -377,9 +350,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPURISCV32}
 
@@ -399,9 +369,6 @@ Type
     ValReal = Double;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-
   FarPointer = Pointer;
 {$endif CPURISCV64}
 
@@ -504,6 +471,11 @@ Type
   UInt32  = Cardinal;
   UIntPtr = PtrUInt;
 
+{$if not declared(Comp)}
+  { map comp to int64, but this doesn't mean we compile the comp support in! }
+  Comp = Int64;
+{$endif}
+
 { Zero - terminated strings }
   PChar               = ^Char;
   PPChar              = ^PChar;