は声明

Question

私はADAのプログラムでタスクを中止しようとしているが、私はコンパイル時にこのエラーが発生しますが中止：

expect task name or task interface class-wide object for "abort" 

コードは次のようになります。

task type Sending_Message; 
type Send_Message is access Sending_Message; 

declare 
    send : Send_Message; 
begin 
    send := new Sending_Message; 
    ... 
    abort send; -- this line throws error 
end; 

そして再び、私はラインを試してみてくださいこのように：

：

abort Sending_Message; 

私はエラーを取得します

何が悪いと思いますか？

Answer 1

あなたが明示的にアクセスタイプを逆参照する必要があります：D：

abort send.all;