diff options
author | Robert Dewar <dewar@adacore.com> | 2013-10-17 10:36:08 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-17 12:36:08 +0200 |
commit | 9877936160e4131c0acdc03250b976d438c6e192 (patch) | |
tree | 7e6216d9fa11b4629a2e436fb370d6da4b817706 /gcc/ada/prep.adb | |
parent | 5114f3ff9a90572c042601ce8b4164cdd8561e1d (diff) | |
download | gcc-9877936160e4131c0acdc03250b976d438c6e192.zip gcc-9877936160e4131c0acdc03250b976d438c6e192.tar.gz gcc-9877936160e4131c0acdc03250b976d438c6e192.tar.bz2 |
gnat_ugn.texi: Document -gnatw.y/-gnatw.Y.
2013-10-17 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Document -gnatw.y/-gnatw.Y.
* opt.ads (List_Body_Required_Info): New flag.
* prep.adb: Minor reformatting.
* sem_ch7.adb (Unit_Requires_Body_Info): New
procedure (Analyze_Package_Specification): Add call to
Unit_Requires_Body_Info.
* ug_words: Add entries for -gnatw.y and -gnatw.Y.
* usage.adb: Add line for new warning switch -gnatw.y/.Y.
* vms_data.ads: Add entry for [NO_]WHY_SPEC_NEEDS_BODY warning
qualifier.
* warnsw.ads, warnsw.adb: Implement new warning switch -gnatw.y/.Y.
From-SVN: r203748
Diffstat (limited to 'gcc/ada/prep.adb')
-rw-r--r-- | gcc/ada/prep.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/prep.adb b/gcc/ada/prep.adb index 7a5565d..c38234b 100644 --- a/gcc/ada/prep.adb +++ b/gcc/ada/prep.adb @@ -284,13 +284,14 @@ package body Prep is end loop; end if; - -- And put the value in the result - - Result.Is_A_String := False; -- Even if the value is a string, we still set Is_A_String to False, -- to avoid adding additional quotes in the preprocessed sources when -- replacing $<symbol>. + Result.Is_A_String := False; + + -- Put the value in the result + Start_String; Store_String_Chars (Definition (Index + 1 .. Definition'Last)); Result.Value := End_String; |