+ GetPointerSize function

git-svn-id: trunk@4954 -

rtl/inc/macpas.pp

@@ -87,6 +87,8 @@ 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
 
 
@@ -303,6 +305,10 @@ 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