From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 16 Sep 93 16:59:49 GMT
From: mcsun!ub4b!cfmu!news@uunet.uu.net  (Stef Van Vlierberghe)
Subject: Re: Please Help: Sun Ada Bug
Message-ID: <1993Sep16.165949.2503@cfmu.eurocontrol.be>
List-Id: <comp.lang.ada>

In article <37106@hacgate.SCG.HAC.COM> bdarr@atr-16 (Byron Darrah) writes:
>     I am getting an internal error from a Sun Ada 1.0
>compiler that reads:
>
>     internal: assertion error at file lreg.c line xxx
>cg_ret: 1

I once had something similar with Verdix on HP700, and it had an
easy workaround :

internal: assertion error at file il_load.c, line 246

If you compile :

package Operator is
   type T is private;
   Name_Max_Length : constant := 12;
   type Name_T is private;
   function NONE return NAME_T;
private
   type T is record
      Name : Name_T := NONE;
   end record;

   type Name_T is new String ( 1 .. Name_max_length );
end Operator;

Putting the complete declaration of Name_t before the complete declaration of
T (a better place for it anyway), solves the problem.

Perhaps you problem is similar ?
-- 
Stef VAN VLIERBERGHE            Eurocontrol - Central Flow Management Unit
stef@cfmu.eurocontrol.be        Avenue des Arts 19H
Tel: +32 2 729 33 42            B-1040 BRUSSELS
Fax: +32 2 729 32 16            Belgium