2

我正在尝试在 Ada 中动态分配一个大数组(嗯,一个数组的数组)。例如,我可以像这样动态分配一个对象:

type Object;
type ObjPtr is access Object;
OP : ObjPtr;
-- sometime later
OP := new Object;
OP.Index := I;--OP.Ptr.all;
Free(OP);

我正在尝试模拟此基准代码:

Object **objList = new Object*[500000];
int32_t *iList = new int32_t[500000];
for (int32_t i = 0; i < 500000; ++i)
{
  objList[i] = new Object;
  iList[i] = Object::getIndex(objList[i]);
  delete objList[i];
}
delete[] iList;
delete[] objList;

可悲的是,我什至无法做这样的 c++ 等价物:

Object *objList = new Object*[500000];

到目前为止,我想出了这么多:

type objs is array (Positive range <>) of Object;
type objList is access objs;

但我可能已经走了。

4

1 回答 1

1

在 Ada 中,您的 C++ 代码将大致转换为以下内容:

Alloc_Count : constant := 500_000;
type ObjPtr is access Object;
type ObjArray is array (1 .. Alloc_Count) of ObjPtr;
OA : ObjArray;
begin
   for I in OA'Range loop
   OA(I) := new Object;
   -- ... do the other things
end loop;

如果您想对您的对象使用调度操作(即Object被定义为标记类型),请在声明中使用Object'class而不是。ObjectObjPtr

于 2010-11-26T11:22:25.070 回答