Re: exceptions

Le 23 mai 10 à 02:48, Thomas De Contes a écrit :

> sauf qu'il faudrait que je puisse faire
>
> 	procedure erreur (erreur : not null access  
> Ada.Exceptions.Exception_Occurrence; genre : in String; Parent :  
> Gtk.Window.Gtk_Window := null);
>
> 		when E : others =>
> 			erreur( E'Access , "imprévue" ,Gtk_Window(w));
>
> pour pouvoir balader ce pointeur sur mon erreur dans toutes mes  
> procédures, pour pouvoir la traiter dans celle que je veux.

(En l'occurrence j'avais besoin de la stocker pour pouvoir la traiter  
dans une fenêtre, pas forcément immédiatement à l'affichage de celle ci)

>
> Mais apparemment c'est interdit de faire ça ...
> ("error: prefix of "access" attribute must be aliased")
>
> Y a t il une autre solution ?


Il suffisait que j'utilise la procédure Save_Occurrence, pour  
recopier l'erreur dans une variable "aliased", ou même directement  
dans un espace allouée dans le "tas"
(Pas encore testé parce qu'entre temps j'ai fait autrement, mais là  
je ne vois pas ce qui pourrait empêcher que ça marche, au moins la  
2eme façon)


Désolé pour cette série de msgs pour lesquels j'ai tjr fini par  
trouver la solution tout seul, alors qu'au moment de les poster  
j'etais persuadé de ne pas réussir sans avoir au moins un coup de pouce,

J'ai tjr eu du mal avec la doc, pour savoir où trouver l'information  
que je cherche quand elle y est,
mais en ce moment j'ai la sensation de faire des progrès dans ce  
domaine :-)


-- 
Téléassistance / Télémaintenance
http://www.portparallele.com/ThomasDECONTES/

_______________________________________________
Site WWW de l'association Ada-France: http://www.ada-france.org/
[email protected]
http://www.ada-france.org/mailman/listinfo/ada-france