diff options
Diffstat (limited to 'gcc/ada/i-cpp.adb')
| -rw-r--r-- | gcc/ada/i-cpp.adb | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/gcc/ada/i-cpp.adb b/gcc/ada/i-cpp.adb index 387dcb5583c..24015f10d0b 100644 --- a/gcc/ada/i-cpp.adb +++ b/gcc/ada/i-cpp.adb @@ -38,6 +38,8 @@ with Unchecked_Conversion; package body Interfaces.CPP is + -- The declarations below need (extensive) comments ??? + subtype Cstring is String (Positive); type Cstring_Ptr is access all Cstring; type Tag_Table is array (Natural range <>) of Vtable_Ptr; @@ -52,7 +54,7 @@ package body Interfaces.CPP is end record; type Vtable_Entry is record - Pfn : System.Address; + Pfn : System.Address; end record; type Type_Specific_Data_Ptr is access all Type_Specific_Data; @@ -97,8 +99,7 @@ package body Interfaces.CPP is function CPP_CW_Membership (Obj_Tag : Vtable_Ptr; - Typ_Tag : Vtable_Ptr) - return Boolean + Typ_Tag : Vtable_Ptr) return Boolean is Pos : constant Integer := Obj_Tag.TSD.Idepth - Typ_Tag.TSD.Idepth; begin @@ -138,8 +139,8 @@ package body Interfaces.CPP is function CPP_Get_Prim_Op_Address (T : Vtable_Ptr; - Position : Positive) - return Address is + Position : Positive) return Address + is begin return T.Prims_Ptr (Position).Pfn; end CPP_Get_Prim_Op_Address; @@ -150,7 +151,6 @@ package body Interfaces.CPP is 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; @@ -161,7 +161,6 @@ package body Interfaces.CPP is function CPP_Get_Remotely_Callable (T : Vtable_Ptr) return Boolean is pragma Warnings (Off, T); - begin return True; end CPP_Get_Remotely_Callable; @@ -199,8 +198,8 @@ package body Interfaces.CPP is (Old_TSD : Address; New_Tag : Vtable_Ptr) is - TSD : constant Type_Specific_Data_Ptr - := To_Type_Specific_Data_Ptr (Old_TSD); + TSD : constant Type_Specific_Data_Ptr := + To_Type_Specific_Data_Ptr (Old_TSD); New_TSD : Type_Specific_Data renames New_Tag.TSD.all; @@ -266,7 +265,6 @@ package body Interfaces.CPP is 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; @@ -278,7 +276,6 @@ package body Interfaces.CPP is 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; @@ -318,7 +315,6 @@ package body Interfaces.CPP is function Expanded_Name (T : Vtable_Ptr) return String is Result : constant Cstring_Ptr := T.TSD.Expanded_Name; - begin return Result (1 .. Length (Result)); end Expanded_Name; @@ -329,7 +325,6 @@ package body Interfaces.CPP is function External_Tag (T : Vtable_Ptr) return String is Result : constant Cstring_Ptr := T.TSD.External_Tag; - begin return Result (1 .. Length (Result)); end External_Tag; @@ -348,4 +343,5 @@ package body Interfaces.CPP is return Len - 1; end Length; + end Interfaces.CPP; |