Re: Dynamic Variant Record Creation

["Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org>]

Warren wrote:
>>>         procedure Emit_Token(T : Token_Type) is
>>>             T : Token_Type := Token_Type'Val(Character'Pos(
>> Ch));
>>>         begin
>>>             Token := ( Token => T );
>>>         end;

I missed a bunch of this thread. But you can do what you want:

declare
    Result : Token_Unit (Token => T);
begin
    Token := Result;
end;

Quite possibly this is also "Georg's solution".

-- 
Jeff Carter
"Clear? Why, a 4-yr-old child could understand this
report. Run out and find me a 4-yr-old child. I can't
make head or tail out of it."
Duck Soup
94