* Fixed warnings.

git-svn-id: trunk@9095 -

rtl/inc/heaptrc.pp

@@ -23,7 +23,7 @@ interface
 
 {$checkpointer off}
 {$goto on}
-{$typedpointer on}
+{$TYPEDADDRESS on}
 
 {$if defined(win32) or defined(wince)}
   {$define windows}

rtl/objpas/fgl.pp

@@ -689,7 +689,7 @@ begin
   if I >= 0 then
     Result := InternalItems[I]+FKeySize
   else
-    Error(SMapKeyError, PtrInt(AKey));
+    Error(SMapKeyError, PtrUInt(AKey));
 end;
 
 procedure TFPSMap.InitOnPtrCompare;