diff options
Diffstat (limited to 'gcc/ada/exp_prag.adb')
-rw-r--r-- | gcc/ada/exp_prag.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index 43ecdcd..55842f7 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -752,10 +752,10 @@ package body Exp_Prag is -- value of which is Init_Val if present or null if not. function Build_Simple_Declaration_With_Default - (Decl_Id : Entity_Id; - Init_Val : Entity_Id; - Typ : Entity_Id; - Default_Val : Entity_Id) return Node_Id; + (Decl_Id : Entity_Id; + Init_Val : Node_Id; + Typ : Node_Id; + Default_Val : Node_Id) return Node_Id; -- Build a declaration the Defining_Identifier of which is Decl_Id, the -- Object_Definition of which is Typ, the value of which is Init_Val if -- present or Default otherwise. @@ -983,7 +983,7 @@ package body Exp_Prag is function Build_Simple_Declaration_With_Default (Decl_Id : Entity_Id; Init_Val : Node_Id; - Typ : Entity_Id; + Typ : Node_Id; Default_Val : Node_Id) return Node_Id is Value : Node_Id := Init_Val; @@ -2862,7 +2862,7 @@ package body Exp_Prag is procedure Expand_Pragma_Subprogram_Variant (Prag : Node_Id; - Subp_Id : Node_Id; + Subp_Id : Entity_Id; Body_Decls : List_Id) is Curr_Decls : List_Id; |