variant record initialisation

variant record initialisation

[tonyg]

I am trying to initialise a variant record

The_Device : Device_Details_Type(Get_The_Class_Type(The_Index));


The_Class_Type goes to find the variant discriminant and I have checked this returns a value correctly


Then when I initialise it using the code above inside the declaration of a function  I get 

2015-03-31 10:55:48.82 : Exception name: PROGRAM_ERROR
Message: device_file_storage.adb:217 finalize/adjust raised exception


Any ideas?

Re: variant record initialisation

[Randy Brukardt]

I think you have to show us more of the program, since the error is coming 
from finalization or adjust (and there shouldn't be any finalization or 
adjust involved in that declaration, but there might be in the default 
initialization).

                             Randy.

"tonyg" <tonythegair@gmail.com> wrote in message 
news:9cb5ed17-c63a-4184-bea5-1da4b40bb2c2@googlegroups.com...
>
>
> I am trying to initialise a variant record
>
> The_Device : Device_Details_Type(Get_The_Class_Type(The_Index));
>
>
> The_Class_Type goes to find the variant discriminant and I have checked 
> this returns a value correctly
>
>
> Then when I initialise it using the code above inside the declaration of a 
> function  I get
>
> 2015-03-31 10:55:48.82 : Exception name: PROGRAM_ERROR
> Message: device_file_storage.adb:217 finalize/adjust raised exception
>
>
> Any ideas? 

Re: variant record initialisation

[tonyg]

I am going to start another post because the title I used is not causing the problem. There'll be plenty of code