From 2ba431e53edd2d06e5040a585454680990935d9d Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Tue, 2 Aug 2011 15:10:17 +0000 Subject: sem_aggr.adb, [...]: cleanup of SPARK mode 2011-08-02 Yannick Moy * sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb, debug.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnat1drv.adb, errout.adb, errout.ads, exp_ch6.adb, sem_ch4.adb, restrict.adb, restrict.ads, sem_ch6.adb, sem_ch8.adb, sem_ch11.adb, opt.ads: cleanup of SPARK mode From-SVN: r177175 --- gcc/ada/sem_ch4.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'gcc/ada/sem_ch4.adb') diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 5a5169b..ae169c2 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -369,7 +369,7 @@ package body Sem_Ch4 is C : Node_Id; begin - Check_Formal_Restriction ("allocator is not allowed", N); + Check_SPARK_Restriction ("allocator is not allowed", N); -- Deal with allocator restrictions @@ -818,7 +818,7 @@ package body Sem_Ch4 is case Nkind (Actual) is when N_Parameter_Association => if Named_Seen then - Check_Formal_Restriction + Check_SPARK_Restriction ("named association cannot follow positional one", Actual); exit; @@ -1506,7 +1506,7 @@ package body Sem_Ch4 is return; end if; - Check_Formal_Restriction ("conditional expression is not allowed", N); + Check_SPARK_Restriction ("conditional expression is not allowed", N); Else_Expr := Next (Then_Expr); @@ -1706,7 +1706,7 @@ package body Sem_Ch4 is -- Start of processing for Analyze_Explicit_Dereference begin - Check_Formal_Restriction ("explicit dereference is not allowed", N); + Check_SPARK_Restriction ("explicit dereference is not allowed", N); Analyze (P); Set_Etype (N, Any_Type); @@ -2588,7 +2588,7 @@ package body Sem_Ch4 is procedure Analyze_Null (N : Node_Id) is begin - Check_Formal_Restriction ("null is not allowed", N); + Check_SPARK_Restriction ("null is not allowed", N); Set_Etype (N, Any_Access); end Analyze_Null; @@ -3274,7 +3274,7 @@ package body Sem_Ch4 is Iterator : Node_Id; begin - Check_Formal_Restriction ("quantified expression is not allowed", N); + Check_SPARK_Restriction ("quantified expression is not allowed", N); Set_Etype (Ent, Standard_Void_Type); Set_Parent (Ent, N); @@ -4302,7 +4302,7 @@ package body Sem_Ch4 is -- Start of processing for Analyze_Slice begin - Check_Formal_Restriction ("slice is not allowed", N); + Check_SPARK_Restriction ("slice is not allowed", N); Analyze (P); Analyze (D); -- cgit v1.1