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

* map farpointer to pointer on platforms not having farpointers

Browse Source
This commit is contained in:
florian 2005-02-05 10:07:21 +00:00
parent b5114bfed2
commit c73d4a0b96
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/systemh.inc
View File

@ -106,6 +106,8 @@ Type
{$define SUPPORT_COMP} {$define SUPPORT_COMP}
ValReal = Extended; ValReal = Extended;
FarPointer = Pointer;
{$endif CPUX86_64} {$endif CPUX86_64}
{$ifdef CPUM68K} {$ifdef CPUM68K}
@ -124,6 +126,8 @@ Type
{ Comp type does not exist on fpu } { Comp type does not exist on fpu }
Comp = int64; Comp = int64;
PComp = ^Comp; PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUM68K} {$endif CPUM68K}
{$ifdef CPUPOWERPC} {$ifdef CPUPOWERPC}
@ -139,6 +143,8 @@ 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; PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUPOWERPC} {$endif CPUPOWERPC}
{$ifdef CPUSPARC} {$ifdef CPUSPARC}
@ -154,6 +160,8 @@ 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; PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUSPARC} {$endif CPUSPARC}
{$ifdef CPUARM} {$ifdef CPUARM}
@ -171,6 +179,8 @@ 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; PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUARM} {$endif CPUARM}
{$ifdef CPU64} {$ifdef CPU64}
@ -737,7 +747,10 @@ const
{ {
$Log$ $Log$
Revision 1.113 2005-02-01 20:22:49 florian Revision 1.114 2005-02-05 10:07:21 florian
* map farpointer to pointer on platforms not having farpointers
Revision 1.113 2005/02/01 20:22:49 florian
* improved widestring infrastructure manager * improved widestring infrastructure manager
Revision 1.112 2005/01/24 18:03:19 peter Revision 1.112 2005/01/24 18:03:19 peter