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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2d56530d3025e324,start
X-Google-Attributes: gid103376,public
From: dennison@telepath.com
Subject: Program error from assignment??
Date: 1998/07/21
Message-ID: <6p3070$bvn$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 373583060
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Tue Jul 21 21:12:00 1998 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.0 (compatible; MSIE 4.0; Windows NT; Gateway2000)
Date: 1998-07-21T00:00:00+00:00
List-Id: <comp.lang.ada>

OK. I give up.

I have the following code:

   type User_Interface_Link is access all User_Interface.Instance'Class;

   type Instance is new User_Interface.Instance with record
      Valid         : Boolean := False;
      Backup        : User_Interface_Link;
   end record;
   .
   .
   .
   procedure Set_Backup (Interface : in out Instance;
                         Backup    : access User_Interface.Instance'Class) is
   begin
      Interface.Valid := True;
      Interface.Backup := User_Interface_Link(Backup);
   end Set_Backup;


The problem is that I'm getting a Program_Error on the second assignment at
runtime. What could cause that?

T.E.D.

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum