paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 13:08:00 +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! }
Comp = Int64;
PComp = ^Comp;
{$endif FPC_HAS_TYPE_EXTENDED}
{$define SUPPORT_SINGLE}
@ -227,7 +226,6 @@ Type
{ Comp type does not exist on fpu }
Comp = int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUM68K}
@ -246,7 +244,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUPOWERPC}
@ -265,7 +262,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUSPARC}
@ -282,7 +278,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUSPARC64}
@ -303,7 +298,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUMIPS32}
@ -326,7 +320,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUARM}
@ -349,7 +342,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUAVR}
@ -364,7 +356,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUAARCH64}
@ -388,7 +379,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPURISCV32}
@ -411,7 +401,6 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPURISCV64}
@ -572,9 +561,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;