Re: Please Help: Sun Ada Bug

[mcsun!ub4b!cfmu!news@uunet.uu.net (Stef Van Vlierberghe)]

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