diff --git a/rtl/inc/macpas.pp b/rtl/inc/macpas.pp
index bb9e2ef468..1f89b95e98 100644
--- a/rtl/inc/macpas.pp
+++ b/rtl/inc/macpas.pp
@@ -88,8 +88,6 @@ procedure BClr(var i: int64; j: cardinal); {$ifdef systeminline}inline;{$endif}
 procedure BClr(var i: qword; j: cardinal); {$ifdef systeminline}inline;{$endif}
 
 
-function GetPointerSize(p: pointer): ptrint; {$ifdef systeminline}inline;{$endif}
-
 implementation
 
 
@@ -306,11 +304,6 @@ begin
   i := i and not (qword(1) shl j);
 end;
 
-function GetPointerSize(p: pointer): ptrint; {$ifdef systeminline}inline;{$endif}
-begin
-  GetPointerSize := memsize(p);
-end;
-
 {$ifdef cpupowerpc}
 begin
   asm