Commit e1c89179 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Remove printf

parent 6b93db20
...@@ -411,7 +411,7 @@ package body Buildsupport_Utils is ...@@ -411,7 +411,7 @@ package body Buildsupport_Utils is
if Get_Category_Of_Component (CI) = CC_System and then if Get_Category_Of_Component (CI) = CC_System and then
(No (AIN.Subcomponents (CI)) or Result = Functions.Empty_Vector) (No (AIN.Subcomponents (CI)) or Result = Functions.Empty_Vector)
then then
Put_Line ("Terminal: " & AIN_Case (Func)); -- Here, parse the full function
AST_Function.Name := US (AIN_Case (Func)); AST_Function.Name := US (AIN_Case (Func));
Result := Result & AST_Function; Result := Result & AST_Function;
end if; end if;
......
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