From 90c63b098ced9fb7b17143e4e5a4f860d31ea680 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 21 Oct 2010 11:52:52 +0200 Subject: [multiple changes] 2010-10-21 Robert Dewar * exp_ch4.adb, exp_intr.adb, par-ch4.adb, scn.adb, sem_ch4.adb, sem_res.adb, sem_util.adb, sinfo.ads, a-except-2005.adb: Minor reformatting. * snames.ads-tmpl: Add note on Name_Some (not a reserved keyword). 2010-10-21 Geert Bosch * ttypef.ads: Further cleanup of Safe_XXX float attributes. From-SVN: r165756 --- gcc/ada/sem_res.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/sem_res.adb') diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index cc8ac85..80b074e 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -7758,9 +7758,9 @@ package body Sem_Res is Wrong_Type (Expr, Target_Typ); end if; - -- If the target type is unconstrained, then we reset the type of - -- the result from the type of the expression. For other cases, the - -- actual subtype of the expression is the target type. + -- If the target type is unconstrained, then we reset the type of the + -- result from the type of the expression. For other cases, the actual + -- subtype of the expression is the target type. if Is_Composite_Type (Target_Typ) and then not Is_Constrained (Target_Typ) -- cgit v1.1