* Add ptr types for fixed(u)int, fixes #40205

rtl/objpas/objpas.pp

@@ -56,8 +56,11 @@ interface
        PPointerArray = ^PointerArray;
 
        // Delphi Berlin compatibility 
-       FixedInt = Int32;
+       FixedInt  = Int32;
        FixedUInt = UInt32;
+       PFixedInt = ^FixedInt;
+       PFixedUInt= ^FixedUInt;
+   
        
 {$if FPC_FULLVERSION >= 20701}