paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 15:18:32 +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}
ValReal = Extended;
FarPointer = Pointer;
{$endif CPUX86_64}
{$ifdef CPUM68K}
@ -124,6 +126,8 @@ Type
{ Comp type does not exist on fpu }
Comp = int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUM68K}
{$ifdef CPUPOWERPC}
@ -139,6 +143,8 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUPOWERPC}
{$ifdef CPUSPARC}
@ -154,6 +160,8 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUSPARC}
{$ifdef CPUARM}
@ -171,6 +179,8 @@ Type
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUARM}
{$ifdef CPU64}
@ -737,7 +747,10 @@ const
{
$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
Revision 1.112 2005/01/24 18:03:19 peter