From e37d4b57364195f681d27ba1655344e09545b083 Mon Sep 17 00:00:00 2001 From: Maxime Perrotin Date: Mon, 13 Feb 2017 13:37:52 +0100 Subject: [PATCH] Remove printfs, etc. --- ada/buildsupport.adb | 6 ++++-- ada/buildsupport_utils.adb | 6 ------ 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/ada/buildsupport.adb b/ada/buildsupport.adb index cfe8cdf..63b52b2 100644 --- a/ada/buildsupport.adb +++ b/ada/buildsupport.adb @@ -729,9 +729,11 @@ procedure BuildSupport is Bus_Classifier : Name_Id := No_Name; Pkg_Name : Name_Id := No_Name; begin + -- Iterate on the BUS Instance properties for each in Properties.Iterate loop - Put_Line (Property_Maps.Key (each) & " : " & - Property_Maps.Element (each)); + null; + -- Put_Line (Property_Maps.Key (each) & " : " & + -- Property_Maps.Element (each)); end loop; Set_Str_To_Name_Buffer (""); if ATN.Namespace diff --git a/ada/buildsupport_utils.adb b/ada/buildsupport_utils.adb index 7abf764..dd376bb 100644 --- a/ada/buildsupport_utils.adb +++ b/ada/buildsupport_utils.adb @@ -262,16 +262,10 @@ package body Buildsupport_Utils is single_val : Node_Id; begin while Present (property) loop - -- pragma Assert (AIN.Kind (property) = - -- AIN.K_Property_Association_Instance); prop_value := AIN.Property_Association_Value (property); - -- prop_value is is of ATN.Kind K_Property_Value - -- Put (Get_Name_String (Display_Name (Identifier (property)))); - -- Put_Line (" of kind " & AIN.Kind (property)'Img); if Present (ATN.Single_Value (prop_value)) then -- Only support single-value properties for now single_val := ATN.Single_Value (prop_value); - Put_Line (ATN.Kind (single_val)'Img); -- e.g. K_Literal! result.Insert (Key => Get_Name_String (Display_Name (Identifier (property))), New_Item => -- GitLab