gcc/ada/impunit.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                              I M P U N I T                               --
   6 --                                                                          --
   7 --                                 B o d y                                  --
   8 --                                                                          --
   9 --           Copyright (C) 2000-2019, Free Software Foundation, Inc.        --
  10 --                                                                          --
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --
  13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  17 -- for  more details.  You should have  received  a copy of the GNU General --
  18 -- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
  19 -- http://www.gnu.org/licenses for a complete copy of the license.          --
  20 --                                                                          --
  21 -- GNAT was originally developed  by the GNAT team at  New York University. --
  22 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  23 --                                                                          --
  24 ------------------------------------------------------------------------------
  25
  26 with Atree;    use Atree;
  27 with Errout;   use Errout;
  28 with Sinfo;    use Sinfo;
  29 with Fname.UF; use Fname.UF;
  30 with Lib;      use Lib;
  31 with Namet;    use Namet;
  32 with Opt;      use Opt;
  33 with Uname;    use Uname;
  34
  35 --  Note: this package body is used by GPS and GNATBench to supply a list of
  36 --  entries for help on available library routines.
  37
  38 package body Impunit is
  39
  40    subtype File_Name_8 is String (1 .. 8);
  41
  42    type File_Name_Record is record
  43       Fname : File_Name_8;
  44       --  8 character name of unit
  45
  46       RMdef : Boolean;
  47       --  True if unit is RM defined. False for any unit that is implementation
  48       --  defined (and thus not with'able in No_Implementation_Units mode).
  49    end record;
  50
  51    type File_List is array (Nat range <>) of File_Name_Record;
  52
  53    T : constant Boolean := True;
  54    F : constant Boolean := False;
  55    --  Short hand for RM_Defined values in lists below
  56
  57    ------------------
  58    -- Ada 95 Units --
  59    ------------------
  60
  61    --  The following is a giant string list containing the names of all non-
  62    --  implementation internal files, i.e. the complete list of files for
  63    --  internal units which a program may legitimately WITH when operating in
  64    --  either Ada 95 or Ada 2005 mode.
  65
  66    --  Note that this list should match the list of units documented in the
  67    --  "GNAT Library" section of the GNAT Reference Manual. A unit listed here
  68    --  must either be documented in that section or described in the Ada RM.
  69
  70    Non_Imp_File_Names_95 : constant File_List := (
  71
  72    ------------------------------------------------------
  73    -- Ada Hierarchy Units from Ada-95 Reference Manual --
  74    ------------------------------------------------------
  75
  76     ("a-astaco", T),  -- Ada.Asynchronous_Task_Control
  77     ("a-calend", T),  -- Ada.Calendar
  78     ("a-chahan", T),  -- Ada.Characters.Handling
  79     ("a-charac", T),  -- Ada.Characters
  80     ("a-chlat1", T),  -- Ada.Characters.Latin_1
  81     ("a-comlin", T),  -- Ada.Command_Line
  82     ("a-decima", T),  -- Ada.Decimal
  83     ("a-direio", T),  -- Ada.Direct_IO
  84     ("a-dynpri", T),  -- Ada.Dynamic_Priorities
  85     ("a-except", T),  -- Ada.Exceptions
  86     ("a-finali", T),  -- Ada.Finalization
  87     ("a-flteio", T),  -- Ada.Float_Text_IO
  88     ("a-fwteio", T),  -- Ada.Float_Wide_Text_IO
  89     ("a-inteio", T),  -- Ada.Integer_Text_IO
  90     ("a-interr", T),  -- Ada.Interrupts
  91     ("a-intnam", T),  -- Ada.Interrupts.Names
  92     ("a-ioexce", T),  -- Ada.IO_Exceptions
  93     ("a-iwteio", T),  -- Ada.Integer_Wide_Text_IO
  94     ("a-ncelfu", T),  -- Ada.Numerics.Complex_Elementary_Functions
  95     ("a-ngcefu", T),  -- Ada.Numerics.Generic_Complex_Elementary_Functions
  96     ("a-ngcoty", T),  -- Ada.Numerics.Generic_Complex_Types
  97     ("a-ngelfu", T),  -- Ada.Numerics.Generic_Elementary_Functions
  98     ("a-nucoty", T),  -- Ada.Numerics.Complex_Types
  99     ("a-nudira", T),  -- Ada.Numerics.Discrete_Random
 100     ("a-nuelfu", T),  -- Ada.Numerics.Elementary_Functions
 101     ("a-nuflra", T),  -- Ada.Numerics.Float_Random
 102     ("a-numeri", T),  -- Ada.Numerics
 103     ("a-reatim", T),  -- Ada.Real_Time
 104     ("a-sequio", T),  -- Ada.Sequential_IO
 105     ("a-stmaco", T),  -- Ada.Strings.Maps.Constants
 106     ("a-storio", T),  -- Ada.Storage_IO
 107     ("a-strbou", T),  -- Ada.Strings.Bounded
 108     ("a-stream", T),  -- Ada.Streams
 109     ("a-strfix", T),  -- Ada.Strings.Fixed
 110     ("a-string", T),  -- Ada.Strings
 111     ("a-strmap", T),  -- Ada.Strings.Maps
 112     ("a-strunb", T),  -- Ada.Strings.Unbounded
 113     ("a-ststio", T),  -- Ada.Streams.Stream_IO
 114     ("a-stwibo", T),  -- Ada.Strings.Wide_Bounded
 115     ("a-stwifi", T),  -- Ada.Strings.Wide_Fixed
 116     ("a-stwima", T),  -- Ada.Strings.Wide_Maps
 117     ("a-stwiun", T),  -- Ada.Strings.Wide_Unbounded
 118     ("a-swmwco", T),  -- Ada.Strings.Wide_Maps.Wide_Constants
 119     ("a-sytaco", T),  -- Ada.Synchronous_Task_Control
 120     ("a-tags  ", T),  -- Ada.Tags
 121     ("a-tasatt", T),  -- Ada.Task_Attributes
 122     ("a-taside", T),  -- Ada.Task_Identification
 123     ("a-teioed", T),  -- Ada.Text_IO.Editing
 124     ("a-textio", T),  -- Ada.Text_IO
 125     ("a-ticoio", T),  -- Ada.Text_IO.Complex_IO
 126     ("a-titest", T),  -- Ada.Text_IO.Text_Streams
 127     ("a-unccon", T),  -- Ada.Unchecked_Conversion
 128     ("a-uncdea", T),  -- Ada.Unchecked_Deallocation
 129     ("a-witeio", T),  -- Ada.Wide_Text_IO
 130     ("a-wtcoio", T),  -- Ada.Wide_Text_IO.Complex_IO
 131     ("a-wtedit", T),  -- Ada.Wide_Text_IO.Editing
 132     ("a-wttest", T),  -- Ada.Wide_Text_IO.Text_Streams
 133
 134    -------------------------------------------------
 135    -- RM Required Additions to Ada for GNAT Types --
 136    -------------------------------------------------
 137
 138    --  Note: Long versions are considered RM defined, but not the Long Long,
 139    --  Short, or Short_Short versions.
 140
 141     ("a-lfteio", T),  -- Ada.Long_Float_Text_IO
 142     ("a-lfwtio", T),  -- Ada.Long_Float_Wide_Text_IO
 143     ("a-liteio", T),  -- Ada.Long_Integer_Text_IO
 144     ("a-liwtio", T),  -- Ada.Long_Integer_Wide_Text_IO
 145     ("a-llftio", T),  -- Ada.Long_Long_Float_Text_IO
 146     ("a-llfwti", T),  -- Ada.Long_Long_Float_Wide_Text_IO
 147     ("a-llitio", T),  -- Ada.Long_Long_Integer_Text_IO
 148     ("a-lliwti", F),  -- Ada.Long_Long_Integer_Wide_Text_IO
 149     ("a-nlcefu", F),  -- Ada.Long_Complex_Elementary_Functions
 150     ("a-nlcoty", T),  -- Ada.Numerics.Long_Complex_Types
 151     ("a-nlelfu", T),  -- Ada.Numerics.Long_Elementary_Functions
 152     ("a-nllcef", F),  -- Ada.Long_Long_Complex_Elementary_Functions
 153     ("a-nllefu", F),  -- Ada.Numerics.Long_Long_Elementary_Functions
 154     ("a-nllcty", F),  -- Ada.Numerics.Long_Long_Complex_Types
 155     ("a-nscefu", F),  -- Ada.Short_Complex_Elementary_Functions
 156     ("a-nscoty", F),  -- Ada.Numerics.Short_Complex_Types
 157     ("a-nselfu", F),  -- Ada.Numerics.Short_Elementary_Functions
 158     ("a-sfteio", F),  -- Ada.Short_Float_Text_IO
 159     ("a-sfwtio", F),  -- Ada.Short_Float_Wide_Text_IO
 160     ("a-siteio", F),  -- Ada.Short_Integer_Text_IO
 161     ("a-siwtio", F),  -- Ada.Short_Integer_Wide_Text_IO
 162     ("a-ssitio", F),  -- Ada.Short_Short_Integer_Text_IO
 163     ("a-ssiwti", F),  -- Ada.Short_Short_Integer_Wide_Text_IO
 164
 165    -----------------------------------
 166    -- GNAT Defined Additions to Ada --
 167    -----------------------------------
 168
 169     ("a-calcon", F),  -- Ada.Calendar.Conversions
 170     ("a-chlat9", F),  -- Ada.Characters.Latin_9
 171     ("a-clrefi", F),  -- Ada.Command_Line.Response_File
 172     ("a-colien", F),  -- Ada.Command_Line.Environment
 173     ("a-colire", F),  -- Ada.Command_Line.Remove
 174     ("a-cwila1", F),  -- Ada.Characters.Wide_Latin_1
 175     ("a-cwila9", F),  -- Ada.Characters.Wide_Latin_9
 176     ("a-diocst", F),  -- Ada.Direct_IO.C_Streams
 177     ("a-einuoc", F),  -- Ada.Exceptions.Is_Null_Occurrence
 178     ("a-elchha", F),  -- Ada.Exceptions.Last_Chance_Handler
 179     ("a-exctra", F),  -- Ada.Exceptions.Traceback
 180     ("a-siocst", F),  -- Ada.Sequential_IO.C_Streams
 181     ("a-ssicst", F),  -- Ada.Streams.Stream_IO.C_Streams
 182     ("a-suteio", F),  -- Ada.Strings.Unbounded.Text_IO
 183     ("a-swuwti", F),  -- Ada.Strings.Wide_Unbounded.Wide_Text_IO
 184     ("a-tiocst", F),  -- Ada.Text_IO.C_Streams
 185     ("a-wtcstr", F),  -- Ada.Wide_Text_IO.C_Streams
 186
 187       --  Note: strictly the next two should be Ada 2005 units, but it seems
 188       --  harmless (and useful) to make then available in Ada 95 mode, since
 189       --  they only deal with Wide_Character, not Wide_Wide_Character.
 190
 191     ("a-wichun", F),  -- Ada.Wide_Characters.Unicode
 192     ("a-widcha", F),  -- Ada.Wide_Characters
 193
 194       --  Note: strictly the following should be Ada 2012 units, but it seems
 195       --  harmless (and useful) to make then available in Ada 95 mode, since
 196       --  they do not deal with Wide_Wide_Character.
 197
 198     ("a-wichha", F),  -- Ada.Wide_Characters.Handling
 199     ("a-stuten", F),  -- Ada.Strings.UTF_Encoding
 200     ("a-suenco", F),  -- Ada.Strings.UTF_Encoding.Conversions
 201     ("a-suenst", F),  -- Ada.Strings.UTF_Encoding.Strings
 202     ("a-suewst", F),  -- Ada.Strings.UTF_Encoding.Wide_Strings
 203
 204    ---------------------------
 205    -- GNAT Special IO Units --
 206    ---------------------------
 207
 208    --  As further explained elsewhere (see Sem_Ch10), the internal packages of
 209    --  Text_IO and Wide_Text_IO are actually implemented as separate children,
 210    --  but this fact is intended to be hidden from the user completely. Any
 211    --  attempt to WITH one of these units will be diagnosed as an error later
 212    --  on, but for now we do not consider these internal implementation units
 213    --  (if we did, then we would get a junk warning which would be confusing
 214    --  and unnecessary, given that we generate a clear error message).
 215
 216     ("a-tideio", F),  -- Ada.Text_IO.Decimal_IO
 217     ("a-tienio", F),  -- Ada.Text_IO.Enumeration_IO
 218     ("a-tifiio", F),  -- Ada.Text_IO.Fixed_IO
 219     ("a-tiflio", F),  -- Ada.Text_IO.Float_IO
 220     ("a-tiinio", F),  -- Ada.Text_IO.Integer_IO
 221     ("a-tiinio", F),  -- Ada.Text_IO.Integer_IO
 222     ("a-timoio", F),  -- Ada.Text_IO.Modular_IO
 223     ("a-wtdeio", F),  -- Ada.Wide_Text_IO.Decimal_IO
 224     ("a-wtenio", F),  -- Ada.Wide_Text_IO.Enumeration_IO
 225     ("a-wtfiio", F),  -- Ada.Wide_Text_IO.Fixed_IO
 226     ("a-wtflio", F),  -- Ada.Wide_Text_IO.Float_IO
 227     ("a-wtinio", F),  -- Ada.Wide_Text_IO.Integer_IO
 228     ("a-wtmoio", F),  -- Ada.Wide_Text_IO.Modular_IO
 229
 230    ------------------------
 231    -- GNAT Library Units --
 232    ------------------------
 233
 234     ("g-altive", F),  -- GNAT.Altivec
 235     ("g-altcon", F),  -- GNAT.Altivec.Conversions
 236     ("g-alveop", F),  -- GNAT.Altivec.Vector_Operations
 237     ("g-alvety", F),  -- GNAT.Altivec.Vector_Types
 238     ("g-alvevi", F),  -- GNAT.Altivec.Vector_Views
 239     ("g-arrspl", F),  -- GNAT.Array_Split
 240     ("g-awk   ", F),  -- GNAT.AWK
 241     ("g-binenv", F),  -- GNAT.Bind_Environment
 242     ("g-boubuf", F),  -- GNAT.Bounded_Buffers
 243     ("g-boumai", F),  -- GNAT.Bounded_Mailboxes
 244     ("g-bubsor", F),  -- GNAT.Bubble_Sort
 245     ("g-busora", F),  -- GNAT.Bubble_Sort_A
 246     ("g-busorg", F),  -- GNAT.Bubble_Sort_G
 247     ("g-byorma", F),  -- GNAT.Byte_Order_Mark
 248     ("g-bytswa", F),  -- GNAT.Byte_Swapping
 249     ("g-calend", F),  -- GNAT.Calendar
 250     ("g-catiio", F),  -- GNAT.Calendar.Time_IO
 251     ("g-casuti", F),  -- GNAT.Case_Util
 252     ("g-cgi   ", F),  -- GNAT.CGI
 253     ("g-cgicoo", F),  -- GNAT.CGI.Cookie
 254     ("g-cgideb", F),  -- GNAT.CGI.Debug
 255     ("g-comlin", F),  -- GNAT.Command_Line
 256     ("g-comver", F),  -- GNAT.Compiler_Version
 257     ("g-cppexc", F),  -- GNAT.CPP_Exceptions
 258     ("g-crc32 ", F),  -- GNAT.CRC32
 259     ("g-ctrl_c", F),  -- GNAT.Ctrl_C
 260     ("g-curexc", F),  -- GNAT.Current_Exception
 261     ("g-debpoo", F),  -- GNAT.Debug_Pools
 262     ("g-debuti", F),  -- GNAT.Debug_Utilities
 263     ("g-decstr", F),  -- GNAT.Decode_String
 264     ("g-deutst", F),  -- GNAT.Decode_UTF8_String
 265     ("g-dirope", F),  -- GNAT.Directory_Operations
 266     ("g-diopit", F),  -- GNAT.Directory_Operations.Iteration
 267     ("g-dynhta", F),  -- GNAT.Dynamic_HTables
 268     ("g-dyntab", F),  -- GNAT.Dynamic_Tables
 269     ("g-encstr", F),  -- GNAT.Encode_String
 270     ("g-enutst", F),  -- GNAT.Encode_UTF8_String
 271     ("g-excact", F),  -- GNAT.Exception_Actions
 272     ("g-except", F),  -- GNAT.Exceptions
 273     ("g-exctra", F),  -- GNAT.Exception_Traces
 274     ("g-expect", F),  -- GNAT.Expect
 275     ("g-exptty", F),  -- GNAT.Expect.TTY
 276     ("g-flocon", F),  -- GNAT.Float_Control
 277     ("g-forstr", F),  -- GNAT.Formatted_String
 278     ("g-heasor", F),  -- GNAT.Heap_Sort
 279     ("g-hesora", F),  -- GNAT.Heap_Sort_A
 280     ("g-hesorg", F),  -- GNAT.Heap_Sort_G
 281     ("g-htable", F),  -- GNAT.Htable
 282     ("g-io    ", F),  -- GNAT.IO
 283     ("g-io_aux", F),  -- GNAT.IO_Aux
 284     ("g-lists ", F),  -- GNAT.Lists
 285     ("g-locfil", F),  -- GNAT.Lock_Files
 286     ("g-mbdira", F),  -- GNAT.MBBS_Discrete_Random
 287     ("g-mbflra", F),  -- GNAT.MBBS_Float_Random
 288     ("g-md5   ", F),  -- GNAT.MD5
 289     ("g-memdum", F),  -- GNAT.Memory_Dump
 290     ("g-moreex", F),  -- GNAT.Most_Recent_Exception
 291     ("g-os_lib", F),  -- GNAT.Os_Lib
 292     ("g-pehage", F),  -- GNAT.Perfect_Hash_Generators
 293     ("g-rannum", F),  -- GNAT.Random_Numbers
 294     ("g-regexp", F),  -- GNAT.Regexp
 295     ("g-regist", F),  -- GNAT.Registry
 296     ("g-regpat", F),  -- GNAT.Regpat
 297     ("g-rewdat", F),  -- GNAT.Rewrite_Data
 298     ("g-semaph", F),  -- GNAT.Semaphores
 299     ("g-sercom", F),  -- GNAT.Serial_Communications
 300     ("g-sestin", F),  -- GNAT.Secondary_Stack_Info
 301     ("g-sets  ", F),  -- GNAT.Sets
 302     ("g-sha1  ", F),  -- GNAT.SHA1
 303     ("g-sha224", F),  -- GNAT.SHA224
 304     ("g-sha256", F),  -- GNAT.SHA256
 305     ("g-sha384", F),  -- GNAT.SHA384
 306     ("g-sha512", F),  -- GNAT.SHA512
 307     ("g-signal", F),  -- GNAT.Signals
 308     ("g-socket", F),  -- GNAT.Sockets
 309     ("g-souinf", F),  -- GNAT.Source_Info
 310     ("g-speche", F),  -- GNAT.Spell_Checker
 311     ("g-spchge", F),  -- GNAT.Spell_Checker_Generic
 312     ("g-spitbo", F),  -- GNAT.Spitbol
 313     ("g-spipat", F),  -- GNAT.Spitbol.Patterns
 314     ("g-sptabo", F),  -- GNAT.Spitbol.Table_Boolean
 315     ("g-sptain", F),  -- GNAT.Spitbol.Table_Integer
 316     ("g-sptavs", F),  -- GNAT.Spitbol.Table_Vstring
 317     ("g-strhas", F),  -- GNAT.String_Hash
 318     ("g-string", F),  -- GNAT.Strings
 319     ("g-strspl", F),  -- GNAT.String_Split
 320     ("g-sse   ", F),  -- GNAT.SSE
 321     ("g-ssvety", F),  -- GNAT.SSE.Vector_Types
 322     ("g-table ", F),  -- GNAT.Table
 323     ("g-tasloc", F),  -- GNAT.Task_Lock
 324     ("g-tastus", F),  -- GNAT.Task_Stack_Usage
 325     ("g-thread", F),  -- GNAT.Threads
 326     ("g-timsta", F),  -- GNAT.Time_Stamp
 327     ("g-traceb", F),  -- GNAT.Traceback
 328     ("g-trasym", F),  -- GNAT.Traceback.Symbolic
 329     ("g-tty   ", F),  -- GNAT.TTY
 330     ("g-utf_32", F),  -- GNAT.UTF_32
 331     ("g-u3spch", F),  -- GNAT.UTF_32_Spelling_Checker
 332     ("g-wispch", F),  -- GNAT.Wide_Spelling_Checker
 333     ("g-wistsp", F),  -- GNAT.Wide_String_Split
 334
 335    -----------------------------------------------------
 336    -- Interface Hierarchy Units from Reference Manual --
 337    -----------------------------------------------------
 338
 339     ("i-c     ", T),  -- Interfaces.C
 340     ("i-cobol ", T),  -- Interfaces.Cobol
 341     ("i-cpoint", T),  -- Interfaces.C.Pointers
 342     ("i-cstrin", T),  -- Interfaces.C.Strings
 343     ("i-fortra", T),  -- Interfaces.Fortran
 344
 345    ------------------------------------------
 346    -- GNAT Defined Additions to Interfaces --
 347    ------------------------------------------
 348
 349     ("i-cexten", F),  -- Interfaces.C.Extensions
 350     ("i-cil   ", F),  -- Interfaces.CIL
 351     ("i-cilobj", F),  -- Interfaces.CIL.Object
 352     ("i-cstrea", F),  -- Interfaces.C.Streams
 353     ("i-java  ", F),  -- Interfaces.Java
 354     ("i-javjni", F),  -- Interfaces.Java.JNI
 355     ("i-pacdec", F),  -- Interfaces.Packed_Decimal
 356     ("i-vxinco", F),  -- Interfaces.VxWorks.Int_Connection
 357     ("i-vxwoio", F),  -- Interfaces.VxWorks.IO
 358     ("i-vxwork", F),  -- Interfaces.VxWorks
 359
 360    --------------------------------------------------
 361    -- System Hierarchy Units from Reference Manual --
 362    --------------------------------------------------
 363
 364     ("s-atacco", T),  -- System.Address_To_Access_Conversions
 365     ("s-maccod", T),  -- System.Machine_Code
 366     ("s-rpc   ", T),  -- System.Rpc
 367     ("s-stoele", T),  -- System.Storage_Elements
 368     ("s-stopoo", T),  -- System.Storage_Pools
 369
 370    --------------------------------------
 371    -- GNAT Defined Additions to System --
 372    --------------------------------------
 373
 374     ("s-addima", F),  -- System.Address_Image
 375     ("s-atocou", F),  -- System.Atomic_Counters
 376     ("s-assert", F),  -- System.Assertions
 377     ("s-dfmkio", F),  -- System.Dim.Float_Mks_IO
 378     ("s-dfmopr", F),  -- System.Dim.Float_Mks.Other_Prefixes
 379     ("s-dgmgop", F),  -- System.Dim.Generic_Mks.Generic_Other_Prefixes
 380     ("s-dlmopr", F),  -- System.Dim.Long_Mks.Other_Prefixes
 381     ("s-diflio", F),  -- System.Dim.Float_IO
 382     ("s-diflmk", F),  -- System.Dim.Float_Mks
 383     ("s-digemk", F),  -- System.Dim.Generic_Mks
 384     ("s-diinio", F),  -- System.Dim.Integer_IO
 385     ("s-dilomk", F),  -- System.Dim.Long_Mks
 386     ("s-dimkio", F),  -- System.Dim.Mks_IO
 387     ("s-dimmks", F),  -- System.Dim.Mks
 388     ("s-dlmkio", F),  -- System.Dim.Long_Mks_IO
 389     ("s-dmotpr", F),  -- System.Dim.Mks.Other_Prefixes
 390     ("s-memory", F),  -- System.Memory
 391     ("s-parint", F),  -- System.Partition_Interface
 392     ("s-pooglo", F),  -- System.Pool_Global
 393     ("s-pooloc", F),  -- System.Pool_Local
 394     ("s-restri", F),  -- System.Restrictions
 395     ("s-rident", F),  -- System.Rident
 396     ("s-ststop", F),  -- System.Strings.Stream_Ops
 397     ("s-tasinf", F),  -- System.Task_Info
 398     ("s-unstyp", F),  -- System.Unsigned_Types
 399     ("s-wchcnv", F),  -- System.WCh_Cnv
 400     ("s-wchcon", F),  -- System.WCh_Con
 401
 402    --  The following are strictly speaking Ada 2012 units, but we are allowed
 403    --  to add children to system, so we consider them to be implementation
 404    --  defined additions to System in earlier versions of Ada.
 405
 406     ("s-multip", T),  -- System.Multiprocessors
 407     ("s-mudido", T)); -- System.Multiprocessors.Dispatching_Domains
 408
 409    --------------------
 410    -- Ada 2005 Units --
 411    --------------------
 412
 413    --  The following units should be used only in Ada 05 mode
 414
 415    Non_Imp_File_Names_05 : constant File_List := (
 416
 417    --------------------------------------------------------
 418    -- Ada Hierarchy Units from Ada 2005 Reference Manual --
 419    --------------------------------------------------------
 420
 421     ("a-assert", T),  -- Ada.Assertions
 422     ("a-calari", T),  -- Ada.Calendar.Arithmetic
 423     ("a-calfor", T),  -- Ada.Calendar.Formatting
 424     ("a-catizo", T),  -- Ada.Calendar.Time_Zones
 425     ("a-cdlili", T),  -- Ada.Containers.Doubly_Linked_Lists
 426     ("a-cgarso", T),  -- Ada.Containers.Generic_Array_Sort
 427     ("a-cgcaso", T),  -- Ada.Containers.Generic_Constrained_Array_Sort
 428     ("a-chacon", T),  -- Ada.Characters.Conversions
 429     ("a-cidlli", T),  -- Ada.Containers.Indefinite_Doubly_Linked_Lists
 430     ("a-cihama", T),  -- Ada.Containers.Indefinite_Hashed_Maps
 431     ("a-cihase", T),  -- Ada.Containers.Indefinite_Hashed_Sets
 432     ("a-ciorma", T),  -- Ada.Containers.Indefinite_Ordered_Maps
 433     ("a-ciorse", T),  -- Ada.Containers.Indefinite_Ordered_Sets
 434     ("a-cohama", T),  -- Ada.Containers.Hashed_Maps
 435     ("a-cohase", T),  -- Ada.Containers.Hashed_Sets
 436     ("a-coinve", T),  -- Ada.Containers.Indefinite_Vectors
 437     ("a-contai", T),  -- Ada.Containers
 438     ("a-convec", T),  -- Ada.Containers.Vectors
 439     ("a-coorma", T),  -- Ada.Containers.Ordered_Maps
 440     ("a-coorse", T),  -- Ada.Containers.Ordered_Sets
 441     ("a-coteio", T),  -- Ada.Complex_Text_IO
 442     ("a-direct", T),  -- Ada.Directories
 443     ("a-dinopr", T),  -- Ada.Dispatching.Non_Preemptive
 444     ("a-diroro", T),  -- Ada.Dispatching.Round_Robin
 445     ("a-disedf", T),  -- Ada.Dispatching.EDF
 446     ("a-dispat", T),  -- Ada.Dispatching
 447     ("a-envvar", T),  -- Ada.Environment_Variables
 448     ("a-etgrbu", T),  -- Ada.Execution_Time.Group_Budgets
 449     ("a-exetim", T),  -- Ada.Execution_Time
 450     ("a-extiti", T),  -- Ada.Execution_Time.Timers
 451     ("a-izteio", T),  -- Ada.Integer_Wide_Wide_Text_IO
 452     ("a-rttiev", T),  -- Ada.Real_Time.Timing_Events
 453     ("a-ngcoar", T),  -- Ada.Numerics.Generic_Complex_Arrays
 454     ("a-ngrear", T),  -- Ada.Numerics.Generic_Real_Arrays
 455     ("a-nucoar", T),  -- Ada.Numerics.Complex_Arrays
 456     ("a-nurear", T),  -- Ada.Numerics.Real_Arrays
 457     ("a-stboha", T),  -- Ada.Strings.Bounded.Hash
 458     ("a-stfiha", T),  -- Ada.Strings.Fixed.Hash
 459     ("a-strhas", T),  -- Ada.Strings.Hash
 460     ("a-stunha", T),  -- Ada.Strings.Unbounded.Hash
 461     ("a-stwiha", T),  -- Ada.Strings.Wide_Hash
 462     ("a-stzbou", T),  -- Ada.Strings.Wide_Wide_Bounded
 463     ("a-stzfix", T),  -- Ada.Strings.Wide_Wide_Fixed
 464     ("a-stzhas", T),  -- Ada.Strings.Wide_Wide_Hash
 465     ("a-stzmap", T),  -- Ada.Strings.Wide_Wide_Maps
 466     ("a-stzunb", T),  -- Ada.Strings.Wide_Wide_Unbounded
 467     ("a-swbwha", T),  -- Ada.Strings.Wide_Bounded.Wide_Hash
 468     ("a-swfwha", T),  -- Ada.Strings.Wide_Fixed.Wide_Hash
 469     ("a-swuwha", T),  -- Ada.Strings.Wide_Unbounded.Wide_Hash
 470     ("a-szbzha", T),  -- Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash
 471     ("a-szfzha", T),  -- Ada.Strings.Wide_Wide_Fixed.Wide_Wide_Hash
 472     ("a-szmzco", T),  -- Ada.Strings.Wide_Wide_Maps.Wide_Wide_Constants
 473     ("a-szuzha", T),  -- Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Hash
 474     ("a-taster", T),  -- Ada.Task_Termination
 475     ("a-tgdico", T),  -- Ada.Tags.Generic_Dispatching_Constructor
 476     ("a-tiboio", T),  -- Ada.Text_IO.Bounded_IO
 477     ("a-tiunio", T),  -- Ada.Text_IO.Unbounded_IO
 478     ("a-wichun", T),  -- Ada.Wide_Characters.Unicode
 479     ("a-wwboio", T),  -- Ada.Wide_Text_IO.Wide_Bounded_IO
 480     ("a-wwunio", T),  -- Ada.Wide_Text_IO.Wide_Unbounded_IO
 481     ("a-zchara", T),  -- Ada.Wide_Wide_Characters
 482     ("a-zchhan", T),  -- Ada.Wide_Wide_Characters.Handling
 483     ("a-ztcoio", T),  -- Ada.Wide_Wide_Text_IO.Complex_IO
 484     ("a-ztedit", T),  -- Ada.Wide_Wide_Text_IO.Editing
 485     ("a-zttest", T),  -- Ada.Wide_Wide_Text_IO.Text_Streams
 486     ("a-ztexio", T),  -- Ada.Wide_Wide_Text_IO
 487     ("a-zzboio", T),  -- Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO
 488     ("a-zzunio", T),  -- Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO
 489
 490    ------------------------------------------------------
 491    -- RM Required Additions to Ada 2005 for GNAT Types --
 492    ------------------------------------------------------
 493
 494    --  Note: Long versions are considered RM defined, but not the Long Long,
 495    --  Short, or Short_Short versions.
 496
 497     ("a-lcteio", T),  -- Ada.Long_Complex_Text_IO
 498     ("a-lfztio", T),  -- Ada.Long_Float_Wide_Wide_Text_IO
 499     ("a-liztio", T),  -- Ada.Long_Integer_Wide_Wide_Text_IO
 500     ("a-llctio", T),  -- Ada.Long_Long_Complex_Text_IO
 501     ("a-llfzti", T),  -- Ada.Long_Long_Float_Wide_Wide_Text_IO
 502     ("a-llizti", T),  -- Ada.Long_Long_Integer_Wide_Wide_Text_IO
 503     ("a-nlcoar", T),  -- Ada.Numerics.Long_Complex_Arrays
 504     ("a-nllcar", T),  -- Ada.Numerics.Long_Long_Complex_Arrays
 505     ("a-nllrar", T),  -- Ada.Numerics.Long_Long_Real_Arrays
 506     ("a-nlrear", T),  -- Ada.Numerics.Long_Real_Arrays
 507     ("a-scteio", F),  -- Ada.Short_Complex_Text_IO
 508     ("a-sfztio", F),  -- Ada.Short_Float_Wide_Wide_Text_IO
 509     ("a-siztio", F),  -- Ada.Short_Integer_Wide_Wide_Text_IO
 510     ("a-ssizti", F),  -- Ada.Short_Short_Integer_Wide_Wide_Text_IO
 511
 512    ----------------------------------------
 513    -- GNAT Defined Additions to Ada 2005 --
 514    ----------------------------------------
 515
 516     ("a-cgaaso", F),  -- Ada.Containers.Generic_Anonymous_Array_Sort
 517     ("a-chzla1", F),  -- Ada.Characters.Wide_Wide_Latin_1
 518     ("a-chzla9", F),  -- Ada.Characters.Wide_Wide_Latin_9
 519     ("a-ciormu", F),  -- Ada.Containers.Indefinite_Ordered_Multisets
 520     ("a-coormu", F),  -- Ada.Containers.Ordered_Multisets
 521     ("a-crdlli", F),  -- Ada.Containers.Restricted_Doubly_Linked_Lists
 522     ("a-szuzti", F),  -- Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO
 523     ("a-zchuni", F),  -- Ada.Wide_Wide_Characters.Unicode
 524     ("a-ztcstr", F),  -- Ada.Wide_Wide_Text_IO.C_Streams
 525
 526       --  Note: strictly the following should be Ada 2012 units, but it seems
 527       --  harmless (and useful) to make then available in Ada 2005 mode.
 528
 529     ("a-cogeso", T),  -- Ada.Containers.Generic_Sort
 530     ("a-dhfina", T),  -- Ada.Directories.Hierarchical_File_Names
 531     ("a-secain", T),  -- Ada.Strings.Equal_Case_Insensitive
 532     ("a-shcain", T),  -- Ada.Strings.Hash_Case_Insensitive
 533     ("a-slcain", T),  -- Ada.Strings.Less_Case_Insensitive
 534     ("a-sfecin", T),  -- Ada.Strings.Fixed.Equal_Case_Insensitive
 535     ("a-sfhcin", T),  -- Ada.Strings.Fixed.Hash_Case_Insensitive
 536     ("a-sflcin", T),  -- Ada.Strings.Fixed.Less_Case_Insensitive
 537     ("a-sbecin", T),  -- Ada.Strings.Bounded.Equal_Case_Insensitive
 538     ("a-sbhcin", T),  -- Ada.Strings.Bounded.Hash_Case_Insensitive
 539     ("a-sblcin", T),  -- Ada.Strings.Bounded.Less_Case_Insensitive
 540     ("a-suecin", T),  -- Ada.Strings.Unbounded.Equal_Case_Insensitive
 541     ("a-suhcin", T),  -- Ada.Strings.Unbounded.Hash_Case_Insensitive
 542     ("a-sulcin", T),  -- Ada.Strings.Unbounded.Less_Case_Insensitive
 543     ("a-suezst", T),  -- Ada.Strings.UTF_Encoding.Wide_Wide_Strings
 544
 545    ---------------------------
 546    -- GNAT Special IO Units --
 547    ---------------------------
 548
 549    --  See Ada 95 section for further information. These packages are for the
 550    --  implementation of the Wide_Wide_Text_IO generic packages.
 551
 552     ("a-ztdeio", F),  -- Ada.Wide_Wide_Text_IO.Decimal_IO
 553     ("a-ztenio", F),  -- Ada.Wide_Wide_Text_IO.Enumeration_IO
 554     ("a-ztfiio", F),  -- Ada.Wide_Wide_Text_IO.Fixed_IO
 555     ("a-ztflio", F),  -- Ada.Wide_Wide_Text_IO.Float_IO
 556     ("a-ztinio", F),  -- Ada.Wide_Wide_Text_IO.Integer_IO
 557     ("a-ztmoio", F),  -- Ada.Wide_Wide_Text_IO.Modular_IO
 558
 559    ------------------------
 560    -- GNAT Library Units --
 561    ------------------------
 562
 563     ("g-zspche", F),  -- GNAT.Wide_Wide_Spelling_Checker
 564     ("g-zstspl", F)); -- GNAT.Wide_Wide_String_Split
 565
 566    --------------------
 567    -- Ada 2012 Units --
 568    --------------------
 569
 570    --  The following units should be used only in Ada 2012 mode
 571
 572    Non_Imp_File_Names_12 : constant File_List := (
 573     ("s-stposu", T),  -- System.Storage_Pools.Subpools
 574     ("a-cobove", T),  -- Ada.Containers.Bounded_Vectors
 575     ("a-cbdlli", T),  -- Ada.Containers.Bounded_Doubly_Linked_Lists
 576     ("a-cborse", T),  -- Ada.Containers.Bounded_Ordered_Sets
 577     ("a-cborma", T),  -- Ada.Containers.Bounded_Ordered_Maps
 578     ("a-cbhase", T),  -- Ada.Containers.Bounded_Hashed_Sets
 579     ("a-cbhama", T),  -- Ada.Containers.Bounded_Hashed_Maps
 580     ("a-coinho", T),  -- Ada.Containers.Indefinite_Holders
 581     ("a-comutr", T),  -- Ada.Containers.Multiway_Trees
 582     ("a-cimutr", T),  -- Ada.Containers.Indefinite_Multiway_Trees
 583     ("a-cbmutr", T),  -- Ada.Containers.Bounded_Multiway_Trees
 584     ("a-csquin", T),  -- Ada.Containers.Synchronized_Queue_Interfaces
 585     ("a-cusyqu", T),  -- Ada.Containers.Unbounded_Synchronized_Queues
 586     ("a-cuprqu", T),  -- Ada.Containers.Unbounded_Priority_Queues
 587     ("a-cbsyqu", T),  -- Ada.Containers.Bounded_Synchronized_Queues
 588     ("a-cbprqu", T),  -- Ada.Containers.Bounded_Priority_Queues
 589     ("a-extiin", T),  -- Ada.Execution_Time.Interrupts
 590     ("a-iteint", T),  -- Ada.Iterator_Interfaces
 591     ("a-locale", T),  -- Ada.Locales
 592     ("a-stcoed", T),  -- Ada.Synchronous_Task_Control.EDF
 593     ("a-synbar", T),  -- Ada.Synchronous_Barriers
 594     ("a-undesu", T),  -- Ada.Unchecked_Deallocate_Subpool
 595
 596    ----------------------------------------
 597    -- GNAT Defined Additions to Ada 2012 --
 598    ----------------------------------------
 599
 600     ("a-cfinve", F),  -- Ada.Containers.Formal_Indefinite_Vectors
 601     ("a-coboho", F),  -- Ada.Containers.Bounded_Holders
 602     ("a-cofove", F),  -- Ada.Containers.Formal_Vectors
 603     ("a-cofuma", F),  -- Ada.Containers.Functional_Maps
 604     ("a-cofuse", F),  -- Ada.Containers.Functional_Sets
 605     ("a-cofuve", F),  -- Ada.Containers.Functional_Vectors
 606     ("a-cfdlli", F),  -- Ada.Containers.Formal_Doubly_Linked_Lists
 607     ("a-cforse", F),  -- Ada.Containers.Formal_Ordered_Sets
 608     ("a-cforma", F),  -- Ada.Containers.Formal_Ordered_Maps
 609     ("a-cfhase", F),  -- Ada.Containers.Formal_Hashed_Sets
 610     ("a-cfhama", F)); -- Ada.Containers.Formal_Hashed_Maps
 611
 612    -----------------------
 613    -- Alternative Units --
 614    -----------------------
 615
 616    --  For some implementation units, there is a unit in the GNAT library
 617    --  that has identical functionality that is usable. If we have such a
 618    --  case we record the appropriate Unit name in Error_Msg_String.
 619
 620    type Aunit_Record is record
 621       Fname : String (1 .. 6);
 622       Aname : String_Ptr_Const;
 623    end record;
 624
 625    --  Array of alternative unit names
 626
 627    Scasuti : aliased constant String := "GNAT.Case_Util";
 628    Scrc32  : aliased constant String := "GNAT.CRC32";
 629    Shtable : aliased constant String := "GNAT.HTable";
 630    Sos_lib : aliased constant String := "GNAT.OS_Lib";
 631    Sregexp : aliased constant String := "GNAT.Regexp";
 632    Sregpat : aliased constant String := "GNAT.Regpat";
 633    Sstring : aliased constant String := "GNAT.Strings";
 634    Sstusta : aliased constant String := "GNAT.Task_Stack_Usage";
 635    Stasloc : aliased constant String := "GNAT.Task_Lock";
 636    Sutf_32 : aliased constant String := "GNAT.UTF_32";
 637
 638    --  Array giving mapping
 639
 640    Map_Array : constant array (1 .. 10) of Aunit_Record := (
 641                  ("casuti", Scasuti'Access),
 642                  ("crc32 ", Scrc32 'Access),
 643                  ("htable", Shtable'Access),
 644                  ("os_lib", Sos_lib'Access),
 645                  ("regexp", Sregexp'Access),
 646                  ("regpat", Sregpat'Access),
 647                  ("string", Sstring'Access),
 648                  ("stusta", Sstusta'Access),
 649                  ("tasloc", Stasloc'Access),
 650                  ("utf_32", Sutf_32'Access));
 651
 652    ----------------------
 653    -- Get_Kind_Of_File --
 654    ----------------------
 655
 656    function Get_Kind_Of_File (File : String) return Kind_Of_Unit is
 657       pragma Assert (File'First = 1);
 658
 659       Buffer : String (1 .. 8);
 660
 661    begin
 662       Error_Msg_Strlen := 0;
 663
 664       --  Ada/System/Interfaces are all Ada 95 units
 665
 666       if File = "ada.ads"
 667         or else File = "interfac.ads"
 668         or else File = "system.ads"
 669       then
 670          return Ada_95_Unit;
 671       end if;
 672
 673       --  If length of file name is greater than 12, not predefined. The value
 674       --  12 here is an 8 char name with extension .ads.
 675
 676       if File'Length > 12 then
 677          return Not_Predefined_Unit;
 678       end if;
 679
 680       --  Not predefined if file name does not start with a- g- s- i-
 681
 682       if File'Length < 3
 683         or else File (2) /= '-'
 684         or else
 685           (File (1) /= 'a'
 686             and then File (1) /= 'g'
 687             and then File (1) /= 'i'
 688             and then File (1) /= 's')
 689       then
 690          return Not_Predefined_Unit;
 691       end if;
 692
 693       --  To be considered predefined, the file name must end in .ads or .adb.
 694       --  File names with other extensions (coming from the use of non-standard
 695       --  file naming schemes) can never be predefined.
 696
 697       --  Note that in the context of a compiler, the .adb case will never
 698       --  arise. However it can arise for other tools, e.g. gnatprove uses
 699       --  this routine to detect when a construct comes from an instance of
 700       --  a generic defined in a predefined unit.
 701
 702       if File (File'Last - 3 .. File'Last) /= ".ads"
 703            and then
 704          File (File'Last - 3 .. File'Last) /= ".adb"
 705       then
 706          return Not_Predefined_Unit;
 707       end if;
 708
 709       --  Otherwise normalize file name to 8 characters
 710
 711       Buffer (1 .. File'Length - 4) := File (1 .. File'Length - 4);
 712
 713       for J in File'Length - 3 .. 8 loop
 714          Buffer (J) := ' ';
 715       end loop;
 716
 717       --  See if name is in 95 list
 718
 719       for J in Non_Imp_File_Names_95'Range loop
 720          if Buffer = Non_Imp_File_Names_95 (J).Fname then
 721             return Ada_95_Unit;
 722          end if;
 723       end loop;
 724
 725       --  See if name is in 2005 list
 726
 727       for J in Non_Imp_File_Names_05'Range loop
 728          if Buffer = Non_Imp_File_Names_05 (J).Fname then
 729             return Ada_2005_Unit;
 730          end if;
 731       end loop;
 732
 733       --  See if name is in 2012 list
 734
 735       for J in Non_Imp_File_Names_12'Range loop
 736          if Buffer = Non_Imp_File_Names_12 (J).Fname then
 737             return Ada_2012_Unit;
 738          end if;
 739       end loop;
 740
 741       --  Only remaining special possibilities are children of System.RPC and
 742       --  System.Garlic and special files of the form System.Aux...
 743
 744       if File (1 .. 5) = "s-aux"
 745         or else File (1 .. 5) = "s-gar"
 746         or else File (1 .. 5) = "s-rpc"
 747       then
 748          return Ada_95_Unit;
 749       end if;
 750
 751       --  All tests failed, this is definitely an implementation unit. See if
 752       --  we have an alternative name.
 753
 754       if File'Length in 11 .. 12
 755         and then File (1 .. 2) = "s-"
 756         and then File (File'Last - 3 .. File'Last) = ".ads"
 757       then
 758          for J in Map_Array'Range loop
 759             if (File'Length = 12 and then
 760                  File (3 .. 8) = Map_Array (J).Fname)
 761               or else
 762                (File'Length = 11 and then
 763                  File (3 .. 7) = Map_Array (J).Fname (1 .. 5))
 764             then
 765                Error_Msg_Strlen := Map_Array (J).Aname'Length;
 766                Error_Msg_String (1 .. Error_Msg_Strlen) :=
 767                  Map_Array (J).Aname.all;
 768             end if;
 769          end loop;
 770       end if;
 771
 772       return Implementation_Unit;
 773    end Get_Kind_Of_File;
 774
 775    ----------------------
 776    -- Get_Kind_Of_Unit --
 777    ----------------------
 778
 779    function Get_Kind_Of_Unit (U : Unit_Number_Type) return Kind_Of_Unit is
 780    begin
 781       Get_Name_String (Unit_File_Name (U));
 782       return Get_Kind_Of_File (Name_Buffer (1 .. Name_Len));
 783    end Get_Kind_Of_Unit;
 784
 785    -------------------
 786    -- Is_Known_Unit --
 787    -------------------
 788
 789    function Is_Known_Unit (Nam : Node_Id) return Boolean is
 790       Unam : Unit_Name_Type;
 791       Fnam : File_Name_Type;
 792
 793    begin
 794       --  If selector is not an identifier (e.g. it is a character literal or
 795       --  some junk from a previous error), then definitely not a known unit.
 796
 797       if Nkind (Selector_Name (Nam)) /= N_Identifier then
 798          return False;
 799       end if;
 800
 801       --  Otherwise get corresponding file name
 802
 803       Unam := Get_Unit_Name (Nam);
 804       Fnam := Get_File_Name (Unam, Subunit => False);
 805       Get_Name_String (Fnam);
 806
 807       Error_Msg_Strlen := 0;
 808
 809       --  Ada/System/Interfaces are all Ada 95 units
 810
 811       if (Name_Len =  7 and then Name_Buffer (1 ..  7) = "ada.ads")
 812            or else
 813          (Name_Len = 10 and then Name_Buffer (1 .. 10) = "system.ads")
 814            or else
 815          (Name_Len = 12 and then Name_Buffer (1 .. 12) = "interfac.ads")
 816       then
 817          return True;
 818       end if;
 819
 820       --  Remove extension from file name
 821
 822       if Name_Buffer (Name_Len - 3 .. Name_Len) = ".adb"
 823            or else
 824          Name_Buffer (Name_Len - 3 .. Name_Len) = ".ads"
 825       then
 826          Name_Len := Name_Len - 4;
 827       else
 828          return False;
 829       end if;
 830
 831       --  Pad name to 8 characters
 832
 833       while Name_Len < 8 loop
 834          Name_Len := Name_Len + 1;
 835          Name_Buffer (Name_Len) := ' ';
 836       end loop;
 837
 838       --  If length more than 8, definitely not a match
 839
 840       if Name_Len /= 8 then
 841          return False;
 842       end if;
 843
 844       --  If length is 8, search our tables
 845
 846       for J in Non_Imp_File_Names_95'Range loop
 847          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_95 (J).Fname then
 848             return True;
 849          end if;
 850       end loop;
 851
 852       for J in Non_Imp_File_Names_05'Range loop
 853          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_05 (J).Fname then
 854             return True;
 855          end if;
 856       end loop;
 857
 858       for J in Non_Imp_File_Names_12'Range loop
 859          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J).Fname then
 860             return True;
 861          end if;
 862       end loop;
 863
 864       --  If not found, not known
 865
 866       return False;
 867
 868    --  A safety guard, if we get an exception during this processing then it
 869    --  is most likely the result of a previous error, or a peculiar case we
 870    --  have not thought of. Since this routine is only used for error message
 871    --  refinement, we will just return False.
 872
 873    exception
 874       when others =>
 875          return False;
 876    end Is_Known_Unit;
 877
 878    ---------------------------
 879    -- Not_Impl_Defined_Unit --
 880    ---------------------------
 881
 882    function Not_Impl_Defined_Unit (U : Unit_Number_Type) return Boolean is
 883       Fname : constant File_Name_Type := Unit_File_Name (U);
 884
 885    begin
 886       Error_Msg_Strlen := 0;
 887       Get_Name_String (Fname);
 888
 889       --  Ada/System/Interfaces are all RM-defined Ada 95 units
 890
 891       if (Name_Len =  7 and then Name_Buffer (1 ..  7) = "ada.ads")
 892            or else
 893          (Name_Len = 10 and then Name_Buffer (1 .. 10) = "system.ads")
 894            or else
 895          (Name_Len = 12 and then Name_Buffer (1 .. 12) = "interfac.ads")
 896       then
 897          return True;
 898       end if;
 899
 900       --  If length of file name is greater than 12, then it's a user unit
 901       --  and not a GNAT implementation defined unit.
 902
 903       if Name_Len > 12 then
 904          return True;
 905       end if;
 906
 907       --  Implementation defined if unit in the gnat hierarchy
 908
 909       if (Name_Len = 8 and then Name_Buffer (1 .. 8) = "gnat.ads")
 910         or else (Name_Len > 2 and then Name_Buffer (1 .. 2) = "g-")
 911       then
 912          return False;
 913       end if;
 914
 915       --  Not implementation defined if file name does not start with a- s- i-
 916
 917       if Name_Len < 3
 918         or else Name_Buffer (2) /= '-'
 919         or else (Name_Buffer (1) /= 'a'
 920                    and then
 921                  Name_Buffer (1) /= 'i'
 922                    and then
 923                  Name_Buffer (1) /= 's')
 924       then
 925          return True;
 926       end if;
 927
 928       --  Not impl-defined if file name does not end in .ads. This can happen
 929       --  when non-standard file names are being used.
 930
 931       if Name_Buffer (Name_Len - 3 .. Name_Len) /= ".ads" then
 932          return True;
 933       end if;
 934
 935       --  Otherwise normalize file name to 8 characters
 936
 937       Name_Len := Name_Len - 4;
 938       while Name_Len < 8 loop
 939          Name_Len := Name_Len + 1;
 940          Name_Buffer (Name_Len) := ' ';
 941       end loop;
 942
 943       --  Check our lists of names, if we find a match, return corresponding
 944       --  indication of whether the file is RM defined, respecting the RM
 945       --  version in which it is defined.
 946
 947       for J in Non_Imp_File_Names_95'Range loop
 948          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_95 (J).Fname then
 949             return Non_Imp_File_Names_95 (J).RMdef;
 950          end if;
 951       end loop;
 952
 953       for J in Non_Imp_File_Names_05'Range loop
 954          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_05 (J).Fname then
 955             return Non_Imp_File_Names_05 (J).RMdef
 956               and then Ada_Version >= Ada_2005;
 957          end if;
 958       end loop;
 959
 960       for J in Non_Imp_File_Names_12'Range loop
 961          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J).Fname then
 962             return Non_Imp_File_Names_95 (J).RMdef
 963               and then Ada_Version >= Ada_2012;
 964          end if;
 965       end loop;
 966
 967       --  If unit is in System, Ada or Interfaces hierarchies and did not match
 968       --  any entry in the list, means it is an internal implementation defined
 969       --  unit which the restriction should definition forbid.
 970
 971       return True;
 972    end Not_Impl_Defined_Unit;
 973
 974 end Impunit;