Commit ab4605f0 authored by Maxime Perrotin's avatar Maxime Perrotin

Fix non-caught error when deployment is buggy

reported in ocarina#5
parent e32aae96
......@@ -1051,13 +1051,12 @@ procedure BuildSupport is
Find_Connected_Bus (Tmp_CI, Accessed_Bus, Accessed_Port);
if Accessed_Bus /= No_Node and then
Accessed_Port /= No_Node
Accessed_Port /= No_Node and then
Associated_Processor_Name /= No_Name
then
Accessed_Bus_Name := Name (Identifier (Accessed_Bus));
Accessed_Port_Name := Name (Identifier (Accessed_Port));
end if;
if Associated_Processor_Name /= No_Name then
C_New_Device
(Get_Name_String (Name (Identifier (Processes))),
Get_Name_String
......@@ -1079,6 +1078,13 @@ procedure BuildSupport is
Get_Name_String (Device_ASN1_Module),
Device_ASN1_Module_Len);
C_End_Device;
else
Exit_On_Error (True,
"[ERROR] In your deployment view, check the connection of"
& " this driver: "
& Get_Name_String (Name (Identifier (Processes)))
& " - in processor "
& Get_Name_String (Associated_Processor_Name));
end if;
end;
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