paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* as long as the Comp type is declared, declare PComp as well

Browse Source 
git-svn-id: trunk@43773 -
This commit is contained in:
svenbarth 2019-12-24 21:29:51 +00:00
parent 12ae68f503
commit 042bbdf613
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/systemh.inc
View File

@ -196,7 +196,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
{$define SUPPORT_SINGLE} {$define SUPPORT_SINGLE}
@ -227,7 +226,6 @@ Type
{ Comp type does not exist on fpu } { Comp type does not exist on fpu }
Comp = int64; Comp = int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUM68K} {$endif CPUM68K}
@ -246,7 +244,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUPOWERPC} {$endif CPUPOWERPC}
@ -265,7 +262,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUSPARC} {$endif CPUSPARC}
@ -282,7 +278,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUSPARC64} {$endif CPUSPARC64}
@ -303,7 +298,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUMIPS32} {$endif CPUMIPS32}
@ -326,7 +320,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUARM} {$endif CPUARM}
@ -349,7 +342,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUAVR} {$endif CPUAVR}
@ -364,7 +356,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUAARCH64} {$endif CPUAARCH64}
@ -388,7 +379,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPURISCV32} {$endif CPURISCV32}
@ -411,7 +401,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPURISCV64} {$endif CPURISCV64}
@ -572,9 +561,9 @@ Type
PPDouble = ^PDouble; PPDouble = ^PDouble;
{$endif} {$endif}
PCurrency = ^Currency; PCurrency = ^Currency;
{$ifdef SUPPORT_COMP} {$if declared(Comp)}
PComp = ^Comp; PComp = ^Comp;
{$endif SUPPORT_COMP} {$endif declared(Comp)}
PSmallInt = ^Smallint; PSmallInt = ^Smallint;
PShortInt = ^Shortint; PShortInt = ^Shortint;