aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-assert.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2015-01-30 16:25:38 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2015-01-30 16:25:38 +0100
commite5cabfacf0240d107d986831cd13a63777c34a12 (patch)
treea4620bfdd247c81a8ff43905dd52bff6e6f3928d /gcc/ada/a-assert.adb
parentb7db11490f4928d6e15c7e2310e65b53225f0f21 (diff)
downloadgcc-e5cabfacf0240d107d986831cd13a63777c34a12.zip
gcc-e5cabfacf0240d107d986831cd13a63777c34a12.tar.gz
gcc-e5cabfacf0240d107d986831cd13a63777c34a12.tar.bz2
[multiple changes]
2015-01-30 Robert Dewar <dewar@adacore.com> * einfo.ads: Minor comment fix. * freeze.adb (Freeze_Profile): Add test for suspicious import in pure unit. * sem_prag.adb (Process_Import_Or_Interface): Test for suspicious use in Pure unit is now moved to Freeze (to properly catch Pure_Function exemption). 2015-01-30 Bob Duff <duff@adacore.com> * sem_res.ads: Minor comment fix. * sem_type.adb: sem_type.adb (Remove_Conversions): Need to check both operands of an operator. 2015-01-30 Yannick Moy <moy@adacore.com> * a-assert.ads, a-assert.adb: Mark package spec in SPARK. Set assertion policy for Pre to Ignore. (Assert): Add precondition. From-SVN: r220288
Diffstat (limited to 'gcc/ada/a-assert.adb')
-rw-r--r--gcc/ada/a-assert.adb6
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/a-assert.adb b/gcc/ada/a-assert.adb
index 9a03c81..54b84b4 100644
--- a/gcc/ada/a-assert.adb
+++ b/gcc/ada/a-assert.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2007-2012 Free Software Foundation, Inc. --
+-- Copyright (C) 2007-2015, 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- --
@@ -29,7 +29,9 @@
-- --
------------------------------------------------------------------------------
-package body Ada.Assertions is
+package body Ada.Assertions with
+ SPARK_Mode
+is
------------
-- Assert --