ADA polymorphisme

Bonjour,

j'ai un petit problème avec du polymorphisme en ada !

Voila le projet fait sous GPS GNAT
http://dl.free.fr/mXPJnwFYs/poly.rar

Le problème est le cast de t_pt_obstacle en t_pt_voiture !!! j'ai
l'erreur suivante :

target type must be general access type
add "all" to type "t_pt_voiture" defined at voiture.ads:7


Je ne veux pas envoyer mon type t_voiture mais un pointeur...