Enumeration literals and their associated functions

[Maciej Sobczak <no.spam@no.spam.com>]

Hi,

<http://www.adaic.org/standards/95aarm/html/AA-3-5-1.html>, paragraph 6 
states that for each enumeration literal specification there is an 
appropriate parameterless function declated.

    type Color is (RED, GREEN, BLUE);

    type Function_Access is access function return Color;

    Fa : Function_Access := RED'Access;

The compiler reports an error in the last line:

"prefix of "Access" attribute cannot be enumeration literal"

I understand that the use of "RED" in this line is not resolved to be a 
name of the function. If that is the case, then how can I use this function?

Another example:

Some_Function_That_Expects_Color(RED);

Is the use of "RED" above considered to be a function call? If yes, then 
why in RED'Access it is resolved to be a literal?
If instead "RED" above is considered to be a literal, then what's the 
sense of having an associated function at all?


-- 
Maciej Sobczak : http://www.msobczak.com/
Programming    : http://www.msobczak.com/prog/