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,9afe16648c0a7435,start
X-Google-Attributes: gid103376,public
From: Larry <lhazel@mindspring.com>
Subject: Problem Compiling with GNAT
Date: 1999/03/15
Message-ID: <7cj6nt$rvh$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 455219899
X-Http-Proxy: 1.0 x4.dejanews.com:80 (Squid/1.1.22) for client 136.205.149.47
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Mon Mar 15 14:50:43 1999 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.5 [en] (WinNT; U)
Date: 1999-03-15T00:00:00+00:00
List-Id: <comp.lang.ada>

First question:  How do you post to GNAT Chat?	I went to the ACT site, then
to GNAT Chat, and could see all the messages, but didn't see how to post.  I
think this post might be more appropriate there.

I have GNAT 3.11P on Windows NT 4.0 and am trying to compile a large amount
of Ada 83 code developed using Rational Apex.  We hope to port/re-develop the
code using GNAT.  This may not be enough information for anyone to diagnose
the problem but there is too much code to post it all and I just got it and
don't know it very well.

There is a type named Class in many packages and in one procedure the compiler
seems to be confused about which Class is used.  Here is abbreviated code for
that procedure:

procedure Display (Next_Timed_Fire_Mission     : in Fire_Missions.Class;
                   Next_Non_Timed_Fire_Mission : in Fire_Missions.Class) is

-- Fire_Missions.Class is a private record type.

   use Fire_Missions.Operators;
   Not_Used : Boolean;
begin

   if Next_Timed_Fire_Mission_Gui.Item_Of
      /= Next_Timed_Fire_Mission then
--    ^ Error messages point to this line
      Next_Timed_Fire_Mission_Gui.Set (Next_Timed_Fire_Mission);

      if Next_Timed_Fire_Mission = Fire_Missions.Null_Value then

            Display_This_Gui (This_Gui =>
                              Next_Timed_Fire_Mission_Gui.Clear_Display,
                              Continue => Not_Used);
      else
            Display_Next_Timed_Fire_Mission_Gui;
      end if;

   end if;
end Display;

This version gives the error messages:

  expected type "Location_Data.Class" defined at location_data.ads:100
  found type "Firing_Points.Class" defined at firing_points.ads:57

If I comment out the use Fire_Missions.Operators; statement, I get:

  operator for private type "Class" defined at fire_missions.ads:166
    is not directly visible
  use clause would make operation legal

I have also tried: not Fire_Missions."=" (...) without the use clause and I
get the first set of error messages.  I'm stumped.  Can anyone explain what
is happening?

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own