Warning GNAT 2021 applying 'Class to an untagged incomplete type is an obsolescent feature

Bonjour à tous,

Avec le nouveau compilateur GNAT 2021, j'ai découvert un nouveaux warning:

servlet-routes.ads:112:56: warning: applying 'Class to an untagged incomplete type is an obsolescent feature (RM J.11) [-gnatwr]

Dans la partie privée d'un paquetage, j'avais:

    type Route_Node_Type;
    type Route_Node_Access is access all Route_Node_Type'Class;

et plus loin la définition du type Route_Node_Type qui utilise
le type Route_Node_Access (mon type Root_Type_Node_Type est en plus 'abstract').

Les experts du RM me diront que c'était évident que ce code était faux
et qu'il fallait écrire:

type Route_Node_Type is abstract tagged;

Voila, c'était pour partager ce nouveau warning que je n'avais jamais rencontré...

Stephane
_______________________________________________
Ada-france mailing list
[email protected]
https://mail.ada-france.org/cgi-bin/mailman/listinfo/ada-france