有没有办法在执行的任何部分终止程序？

Question

例如在c中你可以说有一个条件，如果不符合条件，你可以返回（0）;这将终止程序。

我有办法在Ada做到这一点吗？

Answer 1

在C中你应该调用exit（）函数;

但在调查你的工作时，我找到了一些有关的信息。

if some_condition then Abort_Task (Current_Task); end if;

Ada Process Termination Code

Answer 2

如果可以使用GNAT，请尝试GNAT.OS_Lib.OS_Exit(1); 这将使用给定的退出代码终止程序。

但是，如果您需要一些定稿，请尝试GNAT.OS_Lib.OS_Abort;