From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!feeder.erje.net!eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!reality.xs3.de!news.jacob-sparre.dk!loke.jacob-sparre.dk!pnx.dk!.POSTED!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: variant record initialisation
Date: Tue, 31 Mar 2015 14:11:47 -0500
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <mferhj$vnk$1@loke.gir.dk>
References: <9cb5ed17-c63a-4184-bea5-1da4b40bb2c2@googlegroups.com>
NNTP-Posting-Host: rrsoftware.com
X-Trace: loke.gir.dk 1427829108 32500 24.196.82.226 (31 Mar 2015 19:11:48 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Tue, 31 Mar 2015 19:11:48 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
Xref: news.eternal-september.org comp.lang.ada:25351
Date: 2015-03-31T14:11:47-05:00
List-Id: <comp.lang.ada>

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?