diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-20 14:25:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-20 14:25:44 +0200 |
| commit | 2f8d7dfe21740d1066912f2f99b83096ebf2962b (patch) | |
| tree | b5fde2e52c699b7ea7fe5aefa2230ad7902ef393 /gcc/ada/pprint.adb | |
| parent | 61f17a5c5a8565c5ebfcdbe78f16b56c52b285dd (diff) | |
| download | gcc-2f8d7dfe21740d1066912f2f99b83096ebf2962b.zip gcc-2f8d7dfe21740d1066912f2f99b83096ebf2962b.tar.gz gcc-2f8d7dfe21740d1066912f2f99b83096ebf2962b.tar.bz2 | |
[multiple changes]
2016-06-20 Hristian Kirtchev <kirtchev@adacore.com>
* s-regpat.adb, sem_prag.adb, pprint.adb, sem_ch13.adb: Minor
reformatting.
2016-06-20 Tristan Gingold <gingold@adacore.com>
* make.adb (Check_Standard_Library): Consider system.ads
if s-stalib.adb is not available.
* gnatbind.adb (Add_Artificial_ALI_File): New procedure extracted from
gnatbind.
2016-06-20 Thomas Quinot <quinot@adacore.com>
* g-socket.adb (Is_IP_Address): A string consisting in digits only is
not a dotted quad.
2016-06-20 Arnaud Charlet <charlet@adacore.com>
* exp_ch7.adb (Build_Invariant_Procedure_Body):
decorate invariant procedure body with typical properties of
procedure entityes.
2016-06-20 Arnaud Charlet <charlet@adacore.com>
* a-exetim-darwin.adb: New file.
From-SVN: r237598
Diffstat (limited to 'gcc/ada/pprint.adb')
| -rw-r--r-- | gcc/ada/pprint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb index 1319f87..c520cf5 100644 --- a/gcc/ada/pprint.adb +++ b/gcc/ada/pprint.adb @@ -555,8 +555,8 @@ package body Pprint is if not Is_Scalar_Type (Etype (Expr)) or else not Is_Scalar_Type (Etype (Expression (Expr))) - or else Is_Modular_Integer_Type (Etype (Expr)) - /= Is_Modular_Integer_Type (Etype (Expression (Expr))) + or else Is_Modular_Integer_Type (Etype (Expr)) /= + Is_Modular_Integer_Type (Etype (Expression (Expr))) then return Expr_Name (Subtype_Mark (Expr)) & "(" & Expr_Name (Expression (Expr)) & ")"; |