diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-23 09:48:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-23 09:48:55 +0000 |
| commit | f46788040fda63e3aa899c9b4a585cee9027bd8c (patch) | |
| tree | 3f9d224166c814f6fb0ac816eb4db4091da87f3d /gcc/ada/exp_util.ads | |
| parent | 2e6b98229c7236ebe553a2c6d32ed1acb8b49888 (diff) | |
| download | gcc-f46788040fda63e3aa899c9b4a585cee9027bd8c.tar.gz | |
2013-04-23 Robert Dewar <dewar@adacore.com>
* xoscons.adb: Minor reformatting.
2013-04-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Check_Mode): Ensure that a
self-referential output appears in both input and output lists of
the subprogram as categorized by aspect Global.
(Check_Usage): Rename formal parameters to better illustrate their
function. Update all uses of the said formals.
2013-04-23 Thomas Quinot <quinot@adacore.com>
* exp_util.adb, exp_util.ads (Fully_Qualified_Name_String): New
parameter Append_NUL to make NUL-termination optional.
* exp_dist.adb: Consistently use the above throughout instead of
Get_Library_Unit_Name_String.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198183 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 39d1c0b0b84..f83aebe1015 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -442,10 +442,12 @@ package Exp_Util is -- Force_Evaluation further guarantees that all evaluations will yield -- the same result. - function Fully_Qualified_Name_String (E : Entity_Id) return String_Id; + function Fully_Qualified_Name_String + (E : Entity_Id; + Append_NUL : Boolean := True) return String_Id; -- Generates the string literal corresponding to the fully qualified name -- of entity E, in all upper case, with an ASCII.NUL appended at the end - -- of the name. + -- of the name if Append_NUL is True. procedure Generate_Poll_Call (N : Node_Id); -- If polling is active, then a call to the Poll routine is built, |