Commit 257f3b97 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Work on the AST

parent f3f39439
......@@ -300,6 +300,7 @@ procedure BuildSupport is
Default_Value => US (FS_value),
ASN1_Module => US (FS_module),
ASN1_File_Name => FS_file);
pragma Unreferenced (CP);
end;
end if;
FV_Subco := Next_Node (FV_Subco);
......
......@@ -140,6 +140,7 @@ package body Buildsupport_Utils is
end if;
end if;
Exit_On_Error (True, "Could not determine interface kind");
return Sporadic_Operation;
end Get_RCM_Operation_Kind;
-----------------------
......
......@@ -27,7 +27,7 @@ package Buildsupport_Utils is
package ATN renames Ocarina.ME_AADL.AADL_Tree.Nodes;
package AIN renames Ocarina.ME_AADL.AADL_Instances.Nodes;
function US (Source : in String) return Unbounded_String renames
function US (Source : String) return Unbounded_String renames
To_Unbounded_String;
procedure Banner;
......
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