diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-05-22 10:35:33 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 12:35:33 +0200 |
| commit | a95f708ec32470ae773950928c3fb1962d0ec86e (patch) | |
| tree | fa4c9d7df72ccb3394febcf7e6ee1497f550fec9 /gcc/ada/sem_eval.adb | |
| parent | c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca (diff) | |
| download | gcc-a95f708ec32470ae773950928c3fb1962d0ec86e.zip gcc-a95f708ec32470ae773950928c3fb1962d0ec86e.tar.gz gcc-a95f708ec32470ae773950928c3fb1962d0ec86e.tar.bz2 | |
sem_ch3.adb, [...]: Remove incorrect hyphen in non-binary.
2015-05-22 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_intr.adb, exp_ch4.adb, s-rannum.adb,
sem_eval.adb, s-fatgen.adb, s-expmod.ads: Remove incorrect hyphen in
non-binary.
* exp_util.adb: Add comment.
* osint-c.ads, osint-c.adb (Set_Library_Info_Name): Move from spec to
body.
(Set_File_Name): New name for the above.
(Create_C_File, Create_H_File, Write_C_File_Info, Write_H_File_Info,
Close_C_File, Close_H_File): New procedure.
* osint.adb: Minor reformatting.
* osint.ads: Minor comment updates.
From-SVN: r223540
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index d01d458..ebfa492 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -177,7 +177,7 @@ package body Sem_Eval is function From_Bits (B : Bits; T : Entity_Id) return Uint; -- Converts a bit string of length B'Length to a Uint value to be used for -- a target of type T, which is a modular type. This procedure includes the - -- necessary reduction by the modulus in the case of a non-binary modulus + -- necessary reduction by the modulus in the case of a nonbinary modulus -- (for a binary modulus, the bit string is the right length any way so all -- is well). @@ -2936,7 +2936,7 @@ package body Sem_Eval is begin -- Negation is equivalent to subtracting from the modulus minus one. -- For a binary modulus this is equivalent to the ones-complement of - -- the original value. For non-binary modulus this is an arbitrary + -- the original value. For a nonbinary modulus this is an arbitrary -- but consistent definition. if Is_Modular_Integer_Type (Typ) then |