diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 09:51:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 09:51:44 +0200 |
| commit | 216597225ad50cc883e9d068e062a9b6dd7f70ea (patch) | |
| tree | 5a5f394cc114f0505006c0d133cfe4f5c0257b85 | |
| parent | 5b2a132a13035edc6217e2c3e8f828b4d4672d8c (diff) | |
| download | gcc-216597225ad50cc883e9d068e062a9b6dd7f70ea.zip gcc-216597225ad50cc883e9d068e062a9b6dd7f70ea.tar.gz gcc-216597225ad50cc883e9d068e062a9b6dd7f70ea.tar.bz2 | |
* mlib-utl.ads, prj-makr.ads: Add comments.
From-SVN: r138357
| -rw-r--r-- | gcc/ada/mlib-utl.ads | 6 | ||||
| -rw-r--r-- | gcc/ada/prj-makr.ads | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index fc5894f..2894d1f 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2007, AdaCore -- +-- Copyright (C) 2001-2008, AdaCore -- -- -- -- 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- -- @@ -51,6 +51,10 @@ package MLib.Utl is -- path, run it also. Output_File is the path name of the archive to -- create. Objects is the list of the path names of the object files to be -- put in the archive. + -- This procedure currently assumes that it is always called in the context + -- of gnatmake. If other executable start using this procedure, an + -- additional parameter would need to be added, and calls to + -- Osint.Program_Name updated accordingly in the body. function Lib_Directory return String; -- Return the directory containing libgnat diff --git a/gcc/ada/prj-makr.ads b/gcc/ada/prj-makr.ads index 50a97e9..b3a658f 100644 --- a/gcc/ada/prj-makr.ads +++ b/gcc/ada/prj-makr.ads @@ -73,6 +73,11 @@ package Prj.Makr is -- check for non Ada sources. -- -- At least one of Name_Patterns and Foreign_Patterns is not empty + -- + -- Note that this procedure currently assumes that it is only used by + -- gnatname. If other processes start using it, then an additional + -- parameter would need to be added, and call to Osint.Program_Name + -- updated accordingly in the body. procedure Finalize; -- Write the configuration pragmas file or the project file indicated in a |