Peut-on en Ada afficher la valeur d'un type access ?
 
Je m'explique:
 
type Point is
   record
      x,y:integer;
   end record ;
 
type Pt_Point is access Point;
 
pt1 : Pt_Point:= new Point'(5,6);
 
je veux afficher ( si possible en hexadécimal ) la valeur de pt1
 
càd l'équivalent de printf ( "%p" , pt1 ) ;   du c
 
Merci
 
 
 

Il n'y a pas de moyen simple de faire ça, tout simplement parce qu'on en a rarement besoin en Ada.
 
Su tu veux toutefois persister dans cet affichage, tu peux jeter un oeil aux packages System.Storage_Elements et System.Address_To_Access_Conversions

avec le package System.Address_To_Access_Conversions
 
type Object_Pointer is access all Object;
function To_Pointer(Value : Address) return Object_Pointer;
function To_Address(Value : Object_Pointer) return Address;
 
si ca peut vous aider...
 
 
le lien: http://www.grammatech.com/rm95html [...] 07-02.html