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

+ added System.CodePointer - a pointer that is able to hold a procedure address in the current memory model

Browse Source 
git-svn-id: trunk@24839 -
This commit is contained in:
nickysn 2013-06-09 17:23:31 +00:00
parent 0e4e329228
commit 3e1e5cb7e8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/systemh.inc
View File

@ -318,6 +318,7 @@ Type
ValUInt = qword; ValUInt = qword;
NativeInt = PtrInt; NativeInt = PtrInt;
NativeUint = PtrUint; NativeUint = PtrUint;
CodePointer = Pointer;
{$endif CPU64} {$endif CPU64}
{$ifdef CPU32} {$ifdef CPU32}
@ -329,6 +330,7 @@ Type
ValUInt = Cardinal; ValUInt = Cardinal;
NativeInt = PtrInt; NativeInt = PtrInt;
NativeUint = PtrUint; NativeUint = PtrUint;
CodePointer = Pointer;
{$endif CPU32} {$endif CPU32}
{$ifdef CPU16} {$ifdef CPU16}
@ -341,6 +343,13 @@ Type
PtrInt = Integer; PtrInt = Integer;
PtrUInt = Word; PtrUInt = Word;
{$endif} {$endif}
{$if defined(FPC_X86_CODE_FAR)}
CodePointer = FarPointer;
{$elseif defined(FPC_X86_CODE_NEAR)}
CodePointer = NearPointer;
{$else}
CodePointer = Pointer;
{$endif}
ValSInt = Integer; ValSInt = Integer;
ValUInt = Word; ValUInt = Word;
NativeInt = Integer; NativeInt = Integer;