Allocation de tableau dynamique d'un enregistrement dans Ada

Question

J'essaie d'allouer dynamiquement un grand tableau dans Ada (bien, un tableau d'un tableau). Par exemple, je suis en mesure d'allouer dynamiquement un objet comme ceci:

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

J'essaie d'imiter ce code de référence:

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; 

Malheureusement, je suis incapable de le faire même quelque chose comme cela C++ équivalent:

Object *objList = new Object*[500000]; 

je suis venu avec autant jusqu'à présent:

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

Mais je suis probablement loin.

Answer 1

Dans le code Ada votre C++ se traduirait à peu près à ce qui suit:

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; 

Si vous souhaitez utiliser les opérations de répartition avec vos objets (le Object est défini comme un type étiqueté), utilisez Object'class à la place de Object dans la déclaration ObjPtr.