From: "Randy Brukardt" <randy@rrsoftware.com>
Subject: Re: variant record initialisation
Date: Tue, 31 Mar 2015 14:11:47 -0500
Date: 2015-03-31T14:11:47-05:00 [thread overview]
Message-ID: <mferhj$vnk$1@loke.gir.dk> (raw)
In-Reply-To: 9cb5ed17-c63a-4184-bea5-1da4b40bb2c2@googlegroups.com
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?
next prev parent reply other threads:[~2015-03-31 19:11 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-03-31 10:09 variant record initialisation tonyg
2015-03-31 19:11 ` Randy Brukardt [this message]
2015-04-01 8:35 ` tonyg
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox