diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 049abc3bca..74bfdf2ca0 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -1245,7 +1245,7 @@ type
     function GetDispatchKind: TDispatchKind; override;
     function GetMethodKind: TMethodKind; override;
     function GetHasExtendedInfo: Boolean; override;
-    function GetCodeAddress: Pointer; override;
+    function GetCodeAddress: CodePointer; override;
     function GetIsClassMethod: Boolean; override;
     function GetIsStatic: Boolean; override;
     function GetVisibility: TMemberVisibility; override;
@@ -6998,7 +6998,7 @@ begin
   Result:=False
 end;
 
-function TRttiRecordMethod.GetCodeAddress: Pointer;
+function TRttiRecordMethod.GetCodeAddress: CodePointer;
 begin
   Result := Nil;
 end;