Discussion :

[touf26]

Bonjour,
J'essaye de comprendre le fonctionnement des pointeurs en ada et je bloque sur les tableaux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
with Ada.Text_IO, Ada.Integer_Text_IO ; 
use Ada.Text_IO, Ada.Integer_Text_IO ; 
 
procedure Test is
   Type T_Pointeur is access all integer ;
   Ptr : T_Pointeur ; 
   Type T_Tableau is array(0..5) of aliased integer ;
   MyTab : T_Tableau;
begin
   MyTab(0) := 374 ;
   MyTab(1) := 320 ;
   Ptr := MyTab(0)'access ;
   Put(Ptr.all);
   Ptr:=Ptr+1;
   Put(Ptr.all);
end Test ;

Ce qui m'est interdit c'est l'incrément du pointeur. Ce que je veux essayer de faire c'est incrémenter le pointeur (donc l'adresse qui est pointée) pour accéder à la case suivante du tableau.
Qu'est ce que je n'ai pas compris ?
Merci

[Zerte]

Les pointeurs (en Ada) sont prévus pour des cas assez particuliers: allocation dynamique, arbres spéciaux, communication avec le C.
Il y a un paquetage Ada.* qui permet de faire de l'arithmétique de pointeurs (jamais utilisé). Est-ce que c'est le but de l'exercice?

[touf26]

Bonjour, le but est de faire le lien avec ce que je connais des pointeurs. Si on alloue une zone mémoire d'un tableau, les items sont normalement consecutifs donc on doit pouvoir incrementer l'adresse du pointeur pour parcourir les cases. Mais apparemment non et je voulais savoir pourquoi ou ce que je n'avais pas compris.

[touf26]

Ok en fait apparement un pointeur d'entier ou un pointeur d'element de tableau d'entier est différent. C'est pourquoi ça ne marche pas. Je regarde ton lien, merci

[Zerte]

Bonjour, le but est de faire le lien avec ce que je connais des pointeurs. Si on alloue une zone mémoire d'un tableau, les items sont normalement consecutifs donc on doit pouvoir incrementer l'adresse du pointeur pour parcourir les cases. Mais apparemment non et je voulais savoir pourquoi ou ce que je n'avais pas compris.

En effet le compilateur peut choisir l'alignement des éléments selon son efficacité.
Pour parcourir les cases il faut utiliser un index. Cela permet au compilateur d'ajouter un test qui vérifie s'il y a débordement (impossible avec les pointeurs).
Pour parcourir l'ensemble du tableau tu peux même utiliser la forme sans index

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for element of my_array loop Do_Something (element); end loop;