Position : Positive)
return System.Address
is
+ pragma Warnings (Off, Vptr);
+ pragma Warnings (Off, Position);
begin
return Current_This;
-- + Storage_Offset (Vptr.Prims_Ptr (Position).Delta1);
-------------------------------
function CPP_Get_Remotely_Callable (T : Vtable_Ptr) return Boolean is
+ pragma Warnings (Off, T);
begin
return True;
end CPP_Get_Remotely_Callable;
-------------------------------
procedure CPP_Set_Remotely_Callable (T : Vtable_Ptr; Value : Boolean) is
+ pragma Warnings (Off, T);
+ pragma Warnings (Off, Value);
begin
null;
end CPP_Set_Remotely_Callable;
end Length;
procedure CPP_Set_RC_Offset (T : Vtable_Ptr; Value : SSE.Storage_Offset) is
+ pragma Warnings (Off, T);
+ pragma Warnings (Off, Value);
begin
null;
end CPP_Set_RC_Offset;
function CPP_Get_RC_Offset (T : Vtable_Ptr) return SSE.Storage_Offset is
+ pragma Warnings (Off, T);
begin
return 0;
end CPP_Get_RC_Offset;