|
@@ -193,10 +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;
|
|
|
- PComp = ^Comp;
|
|
|
{$endif FPC_HAS_TYPE_EXTENDED}
|
|
|
|
|
|
{$define SUPPORT_SINGLE}
|
|
@@ -225,10 +221,6 @@ Type
|
|
|
ValReal = Real;
|
|
|
{$endif}
|
|
|
|
|
|
- { Comp type does not exist on fpu }
|
|
|
- Comp = int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUM68K}
|
|
|
|
|
@@ -244,10 +236,6 @@ Type
|
|
|
ValReal = Double;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUPOWERPC}
|
|
|
|
|
@@ -263,10 +251,6 @@ Type
|
|
|
ValReal = Double;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUSPARC}
|
|
|
|
|
@@ -280,10 +264,6 @@ Type
|
|
|
ValReal = Double;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUSPARC64}
|
|
|
|
|
@@ -300,10 +280,6 @@ Type
|
|
|
ValReal = Double;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUMIPS32}
|
|
|
|
|
@@ -322,10 +298,6 @@ Type
|
|
|
ValReal = Real;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUARM}
|
|
|
|
|
@@ -345,10 +317,6 @@ Type
|
|
|
ValReal = Real;
|
|
|
{$endif}
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUAVR}
|
|
|
|
|
@@ -360,10 +328,6 @@ Type
|
|
|
|
|
|
ValReal = Double;
|
|
|
|
|
|
- { map comp to int64, but this doesn't mean we compile the comp support in! }
|
|
|
- Comp = Int64;
|
|
|
- PComp = ^Comp;
|
|
|
-
|
|
|
FarPointer = Pointer;
|
|
|
{$endif CPUAARCH64}
|
|
|
|
|
@@ -466,6 +430,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 = type Int64;
|
|
|
+{$endif}
|
|
|
+
|
|
|
{ Zero - terminated strings }
|
|
|
PChar = ^Char;
|
|
|
PPChar = ^PChar;
|
|
@@ -521,9 +490,9 @@ Type
|
|
|
PPDouble = ^PDouble;
|
|
|
{$endif}
|
|
|
PCurrency = ^Currency;
|
|
|
-{$ifdef SUPPORT_COMP}
|
|
|
+{$if declared(Comp)}
|
|
|
PComp = ^Comp;
|
|
|
-{$endif SUPPORT_COMP}
|
|
|
+{$endif declared(Comp)}
|
|
|
|
|
|
PSmallInt = ^Smallint;
|
|
|
PShortInt = ^Shortint;
|