Commit e37d4b57 authored by Maxime Perrotin's avatar Maxime Perrotin

Remove printfs, etc.

parent fd2e288c
...@@ -729,9 +729,11 @@ procedure BuildSupport is ...@@ -729,9 +729,11 @@ procedure BuildSupport is
Bus_Classifier : Name_Id := No_Name; Bus_Classifier : Name_Id := No_Name;
Pkg_Name : Name_Id := No_Name; Pkg_Name : Name_Id := No_Name;
begin begin
-- Iterate on the BUS Instance properties
for each in Properties.Iterate loop for each in Properties.Iterate loop
Put_Line (Property_Maps.Key (each) & " : " & null;
Property_Maps.Element (each)); -- Put_Line (Property_Maps.Key (each) & " : " &
-- Property_Maps.Element (each));
end loop; end loop;
Set_Str_To_Name_Buffer (""); Set_Str_To_Name_Buffer ("");
if ATN.Namespace if ATN.Namespace
......
...@@ -262,16 +262,10 @@ package body Buildsupport_Utils is ...@@ -262,16 +262,10 @@ package body Buildsupport_Utils is
single_val : Node_Id; single_val : Node_Id;
begin begin
while Present (property) loop while Present (property) loop
-- pragma Assert (AIN.Kind (property) =
-- AIN.K_Property_Association_Instance);
prop_value := AIN.Property_Association_Value (property); 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 if Present (ATN.Single_Value (prop_value)) then
-- Only support single-value properties for now -- Only support single-value properties for now
single_val := ATN.Single_Value (prop_value); single_val := ATN.Single_Value (prop_value);
Put_Line (ATN.Kind (single_val)'Img); -- e.g. K_Literal!
result.Insert (Key => Get_Name_String result.Insert (Key => Get_Name_String
(Display_Name (Identifier (property))), (Display_Name (Identifier (property))),
New_Item => New_Item =>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment