Re: Functions vs constants

[Shark8 <OneWingedShark@gmail.com>]

On 21-Jul-14 15:28, Victor Porton wrote:
> This would additionally allow to rename constants as functions.

You can already do that:

     package CPU is
         Type Register is (
                           -- General registers
                           EAX, EBX, ECX, EDX,

                           -- Segment registers
                           CS, DS, ES, FS, GS, SS,

                           -- Index and pointers
                           ESI, EDI, EBP, EIP, ESP,

                           --Indicator
                           EFLAGS
                          );

         function Default return Register;
     private
         function Default Return Register Renames EAX;
     end CPU;

Or
         function Default_User Return String is ("Dave");