paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added types CodePtrInt and CodePtrUInt, defined as integers with the same size as a CodePointer

Browse Source 
git-svn-id: trunk@25118 -
This commit is contained in:
nickysn 2013-07-16 14:58:58 +00:00
parent 79db53b049
commit d377ffdbec
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/systemh.inc
View File

@ -319,6 +319,8 @@ Type
NativeInt = PtrInt;
NativeUint = PtrUint;
CodePointer = Pointer;
CodePtrInt = PtrInt;
CodePtrUInt = PtrUInt;
{$endif CPU64}
{$ifdef CPU32}
@ -331,6 +333,8 @@ Type
NativeInt = PtrInt;
NativeUint = PtrUint;
CodePointer = Pointer;
CodePtrInt = PtrInt;
CodePtrUInt = PtrUInt;
{$endif CPU32}
{$ifdef CPU16}
@ -345,10 +349,16 @@ Type
{$endif}
{$if defined(FPC_X86_CODE_FAR)}
CodePointer = FarPointer;
CodePtrInt = Longint;
CodePtrUInt = DWord;
{$elseif defined(FPC_X86_CODE_NEAR)}
CodePointer = NearPointer;
CodePtrInt = Integer;
CodePtrUInt = Word;
{$else}
CodePointer = Pointer;
CodePtrInt = PtrInt;
CodePtrUInt = PtrUInt;
{$endif}
ValSInt = Integer;
ValUInt = Word;