diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-08-12 08:59:23 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-08-12 08:59:23 +0000 |
| commit | 5aa76fe17be6f6c222d16d5a51f60ed7755c6ad6 (patch) | |
| tree | bda07261f82bf3efebe08f3dcd342d4b2f9d69f0 /gcc | |
| parent | 1361a4fbe10d119c76339f06992ac60de54f124d (diff) | |
| download | gcc-5aa76fe17be6f6c222d16d5a51f60ed7755c6ad6.zip gcc-5aa76fe17be6f6c222d16d5a51f60ed7755c6ad6.tar.gz gcc-5aa76fe17be6f6c222d16d5a51f60ed7755c6ad6.tar.bz2 | |
[Ada] Sprint: minor comment tweak
2019-08-12 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* sprint.ads: Minor comment tweak.
From-SVN: r274286
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sprint.ads | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 362efba..b05d7c8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2019-08-12 Eric Botcazou <ebotcazou@adacore.com> + * sprint.ads: Minor comment tweak. + +2019-08-12 Eric Botcazou <ebotcazou@adacore.com> + * checks.adb (Insert_Valid_Check): Do not retrieve the Do_Range_Check flag from the Original_Node but from the Validated_Object. Remove useless bypass for floating-point diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads index 11a552f..c510ac6 100644 --- a/gcc/ada/sprint.ads +++ b/gcc/ada/sprint.ads @@ -48,8 +48,8 @@ package Sprint is -- Allocator new xxx [storage_pool = xxx] -- Cleanup action at end procedure name; - -- Conversion wi Float_Truncate target^(source) -- Convert wi Conversion_OK target?(source) + -- Convert wi Float_Truncate target^(source) -- Convert wi Rounded_Result target@(source) -- Divide wi Treat_Fixed_As_Integer x #/ y -- Divide wi Rounded_Result x @/ y |