diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 09:57:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 09:57:03 +0000 |
| commit | 1c3efe5ceaa7b9714778941477f45544c92e98ee (patch) | |
| tree | f6c48168660afba6763dcb54837b600ff4e8f36e /gcc/ada/lib-load.adb | |
| parent | 46f744334dac03bca2e656ff8dab00e165359fd1 (diff) | |
| download | ppe42-gcc-1c3efe5ceaa7b9714778941477f45544c92e98ee.tar.gz ppe42-gcc-1c3efe5ceaa7b9714778941477f45544c92e98ee.zip | |
2009-04-22 Robert Dewar <dewar@adacore.com>
* lib-load.adb: Minor reformatting
2009-04-22 Arnaud Charlet <charlet@adacore.com>
* s-bitops.adb, s-bitops.ads (Raise_Error): Do not use Ada 05 syntax,
since this unit is now part of bootstrap units, so must use Ada 95
syntax only.
2009-04-22 Thomas Quinot <quinot@adacore.com>
* a-tasatt.adb: Minor reformatting
2009-04-22 Bob Duff <duff@adacore.com>
* s-stalib.ads: Remove "with System;" since we're inside System, so
it's unnecessary.
2009-04-22 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_Source): Always put the dependency file name in
the source record, as there may be a dependency file even if no object
file is created.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146558 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-load.adb')
| -rw-r--r-- | gcc/ada/lib-load.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index 0bce92577cd..d93b3d04e33 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -783,9 +783,9 @@ package body Lib.Load is Units.Table (Main_Unit).Version := Source_Checksum (Sind); else - -- Duplicate information from instance unit, for the body - -- The unit node N has been rewritten as a body, but it was placed - -- in the units table when first loaded as a declaration. + -- Duplicate information from instance unit, for the body. The unit + -- node N has been rewritten as a body, but it was placed in the + -- units table when first loaded as a declaration. Units.Table (Units.Last) := Units.Table (Get_Cunit_Unit_Number (N)); Units.Table (Units.Last).Cunit := N; @@ -804,11 +804,10 @@ package body Lib.Load is Bunit : constant Node_Id := Cunit (Body_Unit); begin - -- The spec is irrelevant if the body is a subprogram body, and the - -- spec is other than a subprogram spec or generic subprogram spec. - -- Note that the names must be the same, we don't need to check that, - -- because we already know that from the fact that the file names are - -- the same. + -- The spec is irrelevant if the body is a subprogram body, and the spec + -- is other than a subprogram spec or generic subprogram spec. Note that + -- the names must be the same, we don't need to check that, because we + -- already know that from the fact that the file names are the same. return Nkind (Unit (Bunit)) = N_Subprogram_Body |
