* if a CPU platform does not provide a FarPointer type then declare it as an alias to a mere Pointer

git-svn-id: trunk@43776 -

rtl/inc/systemh.inc

@@ -197,10 +197,6 @@ Type
 
   {$define SUPPORT_SINGLE}
   {$define SUPPORT_DOUBLE}
-
-  {$ifndef VER2_6}
-  FarPointer = Pointer;
-  {$endif}
 {$endif CPUX86_64}
 
 {$ifdef CPUM68K}
@@ -220,8 +216,6 @@ Type
 
     ValReal = Real;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUM68K}
 
 {$ifdef CPUPOWERPC}
@@ -235,8 +229,6 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUPOWERPC}
 
 {$ifdef CPUSPARC}
@@ -250,8 +242,6 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUSPARC}
 
 {$ifdef CPUSPARC64}
@@ -263,8 +253,6 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUSPARC64}
 
 {$if defined(CPUMIPS32) or defined(CPUMIPSEL32)}
@@ -280,8 +268,6 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUMIPS32}
 
 
@@ -299,8 +285,6 @@ Type
 
     ValReal = Real;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUARM}
 
 {$ifdef CPUAVR}
@@ -318,8 +302,6 @@ Type
 
     ValReal = Real;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPUAVR}
 
 {$ifdef CPUAARCH64}
@@ -329,8 +311,6 @@ Type
   {$define SUPPORT_DOUBLE}
 
   ValReal = Double;
-
-  FarPointer = Pointer;
 {$endif CPUAARCH64}
 
 {$ifdef CPURISCV32}
@@ -349,8 +329,6 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPURISCV32}
 
 {$ifdef CPURISCV64}
@@ -368,9 +346,11 @@ Type
 
     ValReal = Double;
   {$endif}
+{$endif CPURISCV64}
 
+{$if not declared(FarPointer)}
   FarPointer = Pointer;
-{$endif CPURISCV64}
+{$endif}
 
 
 {$ifdef CPU64}