comp.lang.ada
 help / color / mirror / Atom feed
From: dennison@telepath.com
Subject: Program error from assignment??
Date: 1998/07/21
Date: 1998-07-21T00:00:00+00:00	[thread overview]
Message-ID: <6p3070$bvn$1@nnrp1.dejanews.com> (raw)

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




             reply	other threads:[~1998-07-21  0:00 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1998-07-21  0:00 dennison [this message]
1998-07-22  0:00 ` Program error from assignment?? dennison
1998-07-22  0:00   ` Jean-Pierre Rosen
1998-07-22  0:00     ` dennison
1998-07-23  0:00       ` Jean-Pierre Rosen
1998-07-24  0:00         ` tedennison
1998-07-23  0:00       ` Robert Dewar
1998-07-23  0:00         ` dennison
1998-07-22  0:00   ` Stephen Leake
1998-07-22  0:00     ` dennison
1998-07-22  0:00   ` David C. Hoos, Sr.
1998-07-22  0:00   ` Robert Dewar
1998-07-22  0:00   ` dennison
1998-07-23  0:00     ` Robert Dewar
1998-07-23  0:00     ` Tucker Taft
1998-07-23  0:00   ` Dale Stanbrough
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox