* variant record initialisation
@ 2015-03-31 10:09 tonyg
2015-03-31 19:11 ` Randy Brukardt
0 siblings, 1 reply; 3+ messages in thread
From: tonyg @ 2015-03-31 10:09 UTC (permalink / raw)
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?
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: variant record initialisation
2015-03-31 10:09 variant record initialisation tonyg
@ 2015-03-31 19:11 ` Randy Brukardt
2015-04-01 8:35 ` tonyg
0 siblings, 1 reply; 3+ messages in thread
From: Randy Brukardt @ 2015-03-31 19:11 UTC (permalink / raw)
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?
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: variant record initialisation
2015-03-31 19:11 ` Randy Brukardt
@ 2015-04-01 8:35 ` tonyg
0 siblings, 0 replies; 3+ messages in thread
From: tonyg @ 2015-04-01 8:35 UTC (permalink / raw)
I am going to start another post because the title I used is not causing the problem. There'll be plenty of code
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2015-04-01 8:35 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-03-31 10:09 variant record initialisation tonyg
2015-03-31 19:11 ` Randy Brukardt
2015-04-01 8:35 ` tonyg
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox