PROGRAM_ERROR : access before elaboration

bonjour :-)



un paquetage dans lequel je veux simplement mettre des constantes,  
qui sont trop compliquées à construire pour pouvoir se faire  
directement avec des agrégats, par exemple :


package defaut is
	pragma Elaborate_Body;

	pageParDefaut : constant page;

private
	function constructionPageParDefaut return page;
	pageParDefaut : constant page := constructionPageParDefaut;
end defaut;


ça donne
warning: cannot call "constructionPageParDefaut" before body seen
puis
PROGRAM_ERROR : access before elaboration



Pour que ça marche,

Est ce qu'on peut éviter de mettre la constante et la fonction dans  
des paquetages physiquement séparés ? (cad qui sont dans des fichiers  
différents)
En mettant la constante, ou la fonction, dans un paquetage à  
l'intérieur du paquetage defaut ?

Si non,
Est ce qu'on peut au moins empêcher l'accès à la fonction par  
d'autres paquetages que celui qui contient la constante ?
avec
private package defaut is
Mais si oui, je ne sas pas comment les positionner entre eux


-- 
j'agis contre l'assistanat, je travaille dans une SCOP !


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