paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 20:08:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@43776 -
This commit is contained in:
svenbarth 2019-12-24 21:30:00 +00:00
parent abe6e740f5
commit 5610f992b4
1 changed files with 4 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/inc/systemh.inc
View File

@ -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;