From: Geert Bosch Date: Thu, 13 Dec 2007 10:32:23 +0000 (+0100) Subject: sem_eval.adb (Eval_Real_Literal): N_Constant_Declaration is a static context, so... X-Git-Tag: releases/gcc-4.3.0~1039 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a1980be8313c131ac0f97966e2574c88296a7669;p=thirdparty%2Fgcc.git sem_eval.adb (Eval_Real_Literal): N_Constant_Declaration is a static context, so do not call Check_Non_Static_Context. 2007-12-06 Geert Bosch * sem_eval.adb (Eval_Real_Literal): N_Constant_Declaration is a static context, so do not call Check_Non_Static_Context. From-SVN: r130857 --- diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index d3b29544b49e..d7acaa7d884c 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -2241,14 +2241,16 @@ package body Sem_Eval is -- in the expander that do not correspond to static expressions. procedure Eval_Real_Literal (N : Node_Id) is + PK : constant Node_Kind := Nkind (Parent (N)); + begin - -- If the literal appears in a non-expression context, then it is - -- certainly appearing in a non-static context, so check it. + -- If the literal appears in a non-expression context + -- and not as part of a number declaration, then it is + -- appearing in a non-static context, so check it. - if Nkind (Parent (N)) not in N_Subexpr then + if PK not in N_Subexpr and then PK /= N_Number_Declaration then Check_Non_Static_Context (N); end if; - end Eval_Real_Literal; ------------------------