Commit e37d4b57 authored by Maxime Perrotin's avatar Maxime Perrotin

Remove printfs, etc.

parent fd2e288c
......@@ -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
......
......@@ -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 =>
......
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