那么为什么在Free之前和之后打印相同的地址呢?with ada.Text_IO,ada.Integer_Text_IO;with System.Address_Image; type my_access is access all integer;
procedure free is new ada.Unchecked_Deallocation(integer,my_ac
有没有办法让GNAT确保所有异常情况都得到了处理?举个例子: package IO renames Ada.Text_IO;
procedure Open_Filewarning: this handler can never be entered, and has been removed 例如,我希望从另一种语言中获得什么;Nim有一个raises杂注来注释过程可能引发的异常,编译器会强制执行这些