diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:35:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:35:33 +0000 |
| commit | 09ae61a2b758ac20192384aac7868cbc23ec6d7c (patch) | |
| tree | fa4c9d7df72ccb3394febcf7e6ee1497f550fec9 /gcc/ada/sem_eval.adb | |
| parent | e9793878a1e09de9888c8e48366391c9d66f9833 (diff) | |
| download | gcc-09ae61a2b758ac20192384aac7868cbc23ec6d7c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223540 138bc75d-0d04-0410-961f-82ee72b054a4
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 d01d458b2c7..ebfa49243c3 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 |