40    procedure Initialize (Mode1 : Character; Mode2 : Character) is  subprogram
41       C1 : Character := Mode1;
42       C2 : Character := Mode2;
44       procedure Get_Env_Value_Ptr (Name, Length, Ptr : Address);
47       subtype String2 is String (1 .. 2);
48       type String2_Ptr is access all String2;
50       Env_Value_Ptr    : aliased String2_Ptr;
51       Env_Value_Length : aliased Integer;
53       EV_Val : aliased constant String :=
56       B : Byte1;
58       EFloat : constant Boolean := Long_Long_Float'Size > Long_Float'Size;
61       AFloat : constant Boolean :=
65       type ByteLF is array (0 .. 7 - 2 * Boolean'Pos (AFloat)) of Byte1;
96       IV_Isf : aliased Byte4;     -- Initialize short float  argument
97       IV_Ifl : aliased Byte4;     -- Initialize float  argument
98       IV_Ilf : aliased ByteLF;    -- Initialize long float  argument
99       IV_Ill : aliased ByteLLF;   -- Initialize long long float  argument