diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:16:59 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:16:59 +0200 |
commit | 5c211bfd5afac2c366e840291e8fca8f4b5e2976 (patch) | |
tree | 0f7f721405eed5f3477da90b21bd20778cbd6a8d /gcc/ada/scng.adb | |
parent | ffd76236927edd3e91599aa12ef4c520e9846a3f (diff) | |
download | gcc-5c211bfd5afac2c366e840291e8fca8f4b5e2976.zip gcc-5c211bfd5afac2c366e840291e8fca8f4b5e2976.tar.gz gcc-5c211bfd5afac2c366e840291e8fca8f4b5e2976.tar.bz2 |
[multiple changes]
2013-10-14 Robert Dewar <dewar@adacore.com>
* s-valuti.adb, prep.adb, scng.adb, errout.adb: Minor reformatting.
2013-10-14 Eric Botcazou <ebotcazou@adacore.com>
* adaint.c: Further disable __gnat_get_executable_load_address
for Linux.
2013-10-14 Vincent Celier <celier@adacore.com>
* gnat_ugn.texi: Add documentation for comparing symbols to
integers in preprocessing expressions.
2013-10-14 Jose Ruiz <ruiz@adacore.com>
* sem_prag.adb (Analyze_Aspect_Specification): For
Priority and CPU aspects in subprograms, the expression in the
aspect is analyzed and exported.
(Analyze_Pragma): When having a Priority pragma in the
main subprogram, load a unit that will force the initialization
of the tasking run time, which is needed for setting the required
priority.
2013-10-14 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Interfaces): Put in Other_Interfaces all
non Ada interface files.
* prj.ads (Project_Data): New component Other_Interfaces.
From-SVN: r203542
Diffstat (limited to 'gcc/ada/scng.adb')
-rw-r--r-- | gcc/ada/scng.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index e05d1d6..ef3d665 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -592,14 +592,12 @@ package body Scng is -- which the digit was expected on input, and is unchanged on return. procedure Scan_Integer; - -- Procedure to scan integer literal. On entry, Scan_Ptr points to a - -- digit, on exit Scan_Ptr points past the last character of the - -- integer. + -- Scan integer literal. On entry, Scan_Ptr points to a digit, on + -- exit Scan_Ptr points past the last character of the integer. -- -- For each digit encountered, UI_Int_Value is multiplied by 10, and - -- the value of the digit added to the result. In addition, the - -- value in Scale is decremented by one for each actual digit - -- scanned. + -- the value of the digit added to the result. In addition, the value + -- in Scale is decremented by one for each actual digit scanned. -------------------------- -- Error_Digit_Expected -- |