diff options
| author | Thomas Quinot <quinot@adacore.com> | 2014-07-30 15:06:40 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 17:06:40 +0200 |
| commit | 9e5a6ee7c81968a13169634a16aef746e540c679 (patch) | |
| tree | 46db6c49f7ba8ac1fa6a4df8a2f682e1e8fccfed /gcc/ada/lib-load.ads | |
| parent | 3ea8f61e9fcdc8e9b558d5c03cafdec439de0147 (diff) | |
| download | gcc-9e5a6ee7c81968a13169634a16aef746e540c679.zip gcc-9e5a6ee7c81968a13169634a16aef746e540c679.tar.gz gcc-9e5a6ee7c81968a13169634a16aef746e540c679.tar.bz2 | |
lib-load.ads: Minor reformatting.
2014-07-30 Thomas Quinot <quinot@adacore.com>
* lib-load.ads: Minor reformatting.
* sinfo.ads (Library_Unit): Update comment.
* lib.ads (Notes): Simplify. The Unit component in Notes_Entry
is redundant. Instead used the pragma Node_Id directly as the
element type.
2014-07-30 Thomas Quinot <quinot@adacore.com>
* lib.adb (Store_Note): Store only notes that do not come from
an instance, and that are in the extended main source unit.
* lib-writ (Write_Unit_Information): Annotations from subunits
must be emitted along with those for the main unit, and they
must carry a specific file name.
* ali.ads (Notes_Record): Use a File_Name_Type instead of a
Unit_Id for the source file containing the pragma, as in the
case of annotations from subunits we might not have a readily
available unit id.
* ali.adb (Scan_ALI): Account for above change in data structure.
From-SVN: r213295
Diffstat (limited to 'gcc/ada/lib-load.ads')
| -rw-r--r-- | gcc/ada/lib-load.ads | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/lib-load.ads b/gcc/ada/lib-load.ads index 3ae9cca..a8f779d 100644 --- a/gcc/ada/lib-load.ads +++ b/gcc/ada/lib-load.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -103,14 +103,14 @@ package Lib.Load is -- and then closed on return. function Load_Unit - (Load_Name : Unit_Name_Type; - Required : Boolean; - Error_Node : Node_Id; - Subunit : Boolean; - Corr_Body : Unit_Number_Type := No_Unit; - Renamings : Boolean := False; - With_Node : Node_Id := Empty; - PMES : Boolean := False) return Unit_Number_Type; + (Load_Name : Unit_Name_Type; + Required : Boolean; + Error_Node : Node_Id; + Subunit : Boolean; + Corr_Body : Unit_Number_Type := No_Unit; + Renamings : Boolean := False; + With_Node : Node_Id := Empty; + PMES : Boolean := False) return Unit_Number_Type; -- This function loads and parses the unit specified by Load_Name (or -- returns the unit number for the previously constructed units table -- entry if this is not the first call for this unit). Required indicates |