From 2f8d7dfe21740d1066912f2f99b83096ebf2962b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Jun 2016 14:25:44 +0200 Subject: [multiple changes] 2016-06-20 Hristian Kirtchev * s-regpat.adb, sem_prag.adb, pprint.adb, sem_ch13.adb: Minor reformatting. 2016-06-20 Tristan Gingold * 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 * g-socket.adb (Is_IP_Address): A string consisting in digits only is not a dotted quad. 2016-06-20 Arnaud Charlet * exp_ch7.adb (Build_Invariant_Procedure_Body): decorate invariant procedure body with typical properties of procedure entityes. 2016-06-20 Arnaud Charlet * a-exetim-darwin.adb: New file. From-SVN: r237598 --- gcc/ada/pprint.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/pprint.adb') 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)) & ")"; -- cgit v1.1