数组声明上的Storage_Error

Question

我遇到了一个我在Ada 95中编写的函数的问题。当调用该函数时，我在第一个语句执行之前得到一个Storage_Error（这是一条日志消息）。通过评论声明和测试，我已将问题缩小到以下几行：

Field_Values : Message_Field_Array;

Message_Field_Array的相关类型定义如下：

type Extract_Field_Type is
record
    Field      : String ( 1 .. Comms.Buffer_Type'Size ) := ( others => ' ' );
    Char_Count : Integer := 0;
end record;

type Message_Field is ( MESSAGE, DATETIME, EPOCH, GPS_CLASS, OBJECT_NAME, TRAIN, LAT, LNG );

type Message_Field_Array is array ( Message_Field'Range ) of Extract_Field_Type;

我显然错过了一些东西。我在这里设置的有什么问题？

Answer 1

您的来源不完整，但我猜您的错误是使用'Size，您的意思是'Length。