From: Arnaud Charlet Date: Thu, 31 Jul 2008 07:51:44 +0000 (+0200) Subject: * mlib-utl.ads, prj-makr.ads: Add comments. X-Git-Tag: releases/gcc-4.4.0~3607 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=216597225ad50cc883e9d068e062a9b6dd7f70ea;p=thirdparty%2Fgcc.git * mlib-utl.ads, prj-makr.ads: Add comments. From-SVN: r138357 --- diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index fc5894f70e29..2894d1fe7737 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 50a97e93b513..b3a658fc3e9f 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