From 20250fb87c79d840eb23c51bbe63467910c14fd9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Jun 2016 14:31:47 +0200 Subject: [multiple changes] 2016-06-20 Hristian Kirtchev * make.adb, gnatbind.adb, g-socket.adb, sem_ch13.adb: Minor reformatting. * lib.ads, sem_util.adb: Minor typo in comment. 2016-06-20 Yannick Moy * sem_prag.adb, sem_prag.ads (Build_Pragma_Check_Equivalent): Add parameter Keep_Pragma_Id to optionally keep the identifier of the pragma instead of converting to pragma Check. Also set type of new function call appropriately. (Collect_Inherited_Class_Wide_Conditions): Call Build_Pragma_Check_Equivalent with the new parameter Keep_Pragma_Id set to True to keep the identifier of the copied pragma. * sinfo.ads: Add comment. 2016-06-20 Hristian Kirtchev * exp_ch7.adb (Build_Invariant_Procedure_Body): Always install the scope of the invariant procedure in order to produce better error messages. Do not insert the body when the context is a generic unit. (Build_Invariant_Procedure_Declaration): Perform minimal decoration of the invariant procedure and its formal parameter in case they are not analyzed. Do not insert the declaration when the context is a generic unit. From-SVN: r237600 --- gcc/ada/gnatbind.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gnatbind.adb') diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 1fa489a..85f6707 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -90,7 +90,7 @@ procedure Gnatbind is -- only with switch -R. procedure Add_Artificial_ALI_File (Name : String); - -- Artificially add ALI file Name in the closure. + -- Artificially add ALI file Name in the closure function Gnatbind_Supports_Auto_Init return Boolean; -- Indicates if automatic initialization of elaboration procedure @@ -123,6 +123,7 @@ procedure Gnatbind is procedure Add_Artificial_ALI_File (Name : String) is Id : ALI_Id; pragma Warnings (Off, Id); + begin Name_Len := Name'Length; Name_Buffer (1 .. Name_Len) := Name; -- cgit v1.1