diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 878a60cfe7..765a8ef3cc 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -318,6 +318,7 @@ Type
   ValUInt = qword;
   NativeInt  = PtrInt;
   NativeUint = PtrUint;
+  CodePointer = Pointer;
 {$endif CPU64}
 
 {$ifdef CPU32}
@@ -329,6 +330,7 @@ Type
   ValUInt = Cardinal;
   NativeInt  = PtrInt;
   NativeUint = PtrUint;
+  CodePointer = Pointer;
 {$endif CPU32}
 
 {$ifdef CPU16}
@@ -341,6 +343,13 @@ Type
     PtrInt = Integer;
     PtrUInt = Word;
   {$endif}
+  {$if defined(FPC_X86_CODE_FAR)}
+    CodePointer = FarPointer;
+  {$elseif defined(FPC_X86_CODE_NEAR)}
+    CodePointer = NearPointer;
+  {$else}
+    CodePointer = Pointer;
+  {$endif}
   ValSInt = Integer;
   ValUInt = Word;
   NativeInt  = Integer;