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/exp_ch4.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/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 9cf4391798b..a2b938d311f 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7674,7 +7674,7 @@ package body Exp_Ch4 is and then Esize (Root_Type (Exptyp)) <= Esize (Standard_Integer) -- This transformation is not applicable for a modular type with a - -- non-binary modulus because we do not handle modular reduction in + -- nonbinary modulus because we do not handle modular reduction in -- a correct manner if we attempt this transformation in this case. and then not Non_Binary_Modulus (Typ) @@ -7826,8 +7826,8 @@ package body Exp_Ch4 is if Is_Modular_Integer_Type (Rtyp) then - -- Non-binary case, we call the special exponentiation routine for - -- the non-binary case, converting the argument to Long_Long_Integer + -- Nonbinary case, we call the special exponentiation routine for + -- the nonbinary case, converting the argument to Long_Long_Integer -- and passing the modulus value. Then the result is converted back -- to the base type. @@ -9078,7 +9078,7 @@ package body Exp_Ch4 is -- where Bits is the shift count mod Esize (the mod operation here -- deals with ludicrous large shift counts, which are apparently OK). - -- What about non-binary modulus ??? + -- What about nonbinary modulus ??? declare Loc : constant Source_Ptr := Sloc (N); @@ -9131,7 +9131,7 @@ package body Exp_Ch4 is -- where Bits is the shift count mod Esize (the mod operation here -- deals with ludicrous large shift counts, which are apparently OK). - -- What about non-binary modulus ??? + -- What about nonbinary modulus ??? declare Loc : constant Source_Ptr := Sloc (N); @@ -9268,7 +9268,7 @@ package body Exp_Ch4 is -- to the word size, since in this case (not (Shift_Right (Mask, bits))) -- generates all 1'bits. - -- What about non-binary modulus ??? + -- What about nonbinary modulus ??? declare Loc : constant Source_Ptr := Sloc (N); |