Re: Dynamic Variant Record Creation

[Warren <ve3wwg@gmail.com>]

Jeffrey R. Carter expounded in news:hnoosj$a1e$1@tornado.tornevall.net:

> 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".

I haven't had a chance to see if this "works", but the
compiler seems a little happier now- but warns:

*.adb:327:13: warning: variable "Result" is read but never assigned

Perhaps a dummy assignment after I am through with it
would be enough. Is there a better way of dealing with
the warning? 

I'll give this a go later tonight, when I have more time.

Warren