diff --git a/ada/buildsupport.adb b/ada/buildsupport.adb index a2f9ba8a082f0e894d2b513075734f742b80c17c..7dc5b1ba62814c02d86e5ac0274049d7ee04046c 100644 --- a/ada/buildsupport.adb +++ b/ada/buildsupport.adb @@ -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;