From 5610f992b4d4acd26a789433ab11e5a36fdbbac4 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Tue, 24 Dec 2019 21:30:00 +0000
Subject: [PATCH] * 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 | 28 ++++------------------------
 1 file changed, 4 insertions(+), 24 deletions(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 8a1409024a..2f7cfbb091 100644
--- a/rtl/inc/systemh.inc
+++ b/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,10 +346,12 @@ Type
 
     ValReal = Double;
   {$endif}
-
-  FarPointer = Pointer;
 {$endif CPURISCV64}
 
+{$if not declared(FarPointer)}
+  FarPointer = Pointer;
+{$endif}
+
 
 {$ifdef CPU64}
   SizeInt = Int64;