* mlib-utl.ads, prj-makr.ads: Add comments.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138357 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads
index fc5894f..2894d1f 100644 (file)
--- 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 (file)
--- 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