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,67cf36c3093ae4b8,start
X-Google-Attributes: gid103376,public
From: Roga Danar <work@alphasoft-inc.com>
Subject: Can't be a varient record?
Date: 2000/01/24
Message-ID: <388CA023.2F4001DB@alphasoft-inc.com>#1/1
X-Deja-AN: 577024849
Content-Transfer-Encoding: 7bit
Sender: nntp@news.boeing.com (Boeing NNTP News Access)
X-Nntp-Posting-Host: e699492.he.boeing.com
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
Organization: Boeing
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 2000-01-24T00:00:00+00:00
List-Id: <comp.lang.ada>

Hi,

  I have inherited some code and came across this type and it's
associated "doc".

  Is the reason that record cannot be may a varient record valid?


   type WYPT_Record_Type is

      --% This record defines the data fields that are associated
with      <==
      --% a waypoint.  Note that since this record is stored
in                <==  Is this valid? If so why?
      --% non-elaborated memory, it cannot be a variant
record.           <==

      record
         Kind    : Kind_Type ;
            --% Kind of waypoint.
         Lat     : NAV.Latitude_Type ;
            --% Latitude of waypoint.
         Long    : NAV.Longitude_Type ;
            --% Longitude of waypoint.
         Elev    : Elevation_Type ;
            --% Elevation of waypoint, in MSL.
         MVar    : NAV.Mag_Heading_Type ;
            --% Magnetic variation at waypoint location.
         Tag     : Tag_Type ;
            --% Tag (identifier) for waypoint.
         Comment : Comment_Type ;
            --% Twenty character comment field for waypoint.
         Color           : TAC_DMS_TYPES.Color_Type ;
            --% Color for digital map.
         Map_Symbol      : Map_Symbol_Type ;
            --% Symbol for digital map.
         DEU_Symbol_Code : DEU_Symbol_Type ;
            --% DEU symbol code.
         -- the following three fields are only applicable when
         -- Kind = Moving
            Start_Time : EXEC_TIME.Date_Time_Type ;
               --% Time the waypoint starts moving.
            Course     : Heading_Type ;
               --% Course of moving waypoint with respect to true north.

            Speed      : Speed_Type ;
               --% Ground speed of moving waypoint.
         -- the following three fields are only applicable when
         -- Kind = Offset
            Master_Num   : WYPT_Number_Type ;
               --% Waypoint number of master waypoint.
            Dist_To_Mstr : Range_Type  ;
               --% Distance from master to offset waypoint.
            Bearing      : Heading_Type ;
               --% True bearing from master to offset waypoint.
         -- the following field is only applicable when
         -- Kind = Store
            Store_Time : EXEC_TIME.Date_Time_Type ;
               --% Time the waypoint was stored.
         -- waypoint category, added for digital map usage
         Category : TAC_DMS_TYPES.Category_Type ;
            --% Waypoint category, used for dig map.
         Datum_ID : Tag_type;
            --% Datum identifier
         Datum_Lat : NAV.Latitude_Type ;
            --% Latitude of waypoint.
         Datum_Long : NAV.Longitude_Type ;
            --% Longitude of waypoint.
      end record;