summaryrefslogtreecommitdiff
path: root/gcc/ada/g-spipat.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2008-03-26 07:40:04 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2008-03-26 07:40:04 +0000
commit8453782c2b508a3c18474bf6626f31ba3e21c968 (patch)
treee58d32f726e2d188319b9870aafdef0441e585b5 /gcc/ada/g-spipat.ads
parent79879aee6a342eea431e7ec8e3d604e68df79331 (diff)
downloadgcc-8453782c2b508a3c18474bf6626f31ba3e21c968.tar.gz
2008-03-26 Robert Dewar <dewar@adacore.com>
* g-pehage.adb, g-regist.adb, g-spipat.ads, g-spipat.adb, s-asthan.adb, s-parint.adb, s-rpc.adb, s-stchop.adb: Replace Raise_Exception by "raise with" construct. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133568 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-spipat.ads')
-rw-r--r--gcc/ada/g-spipat.ads8
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads
index fd1281c8ce7..af4aed19f57 100644
--- a/gcc/ada/g-spipat.ads
+++ b/gcc/ada/g-spipat.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2006, AdaCore --
+-- Copyright (C) 1997-2007, AdaCore --
-- --
-- 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- --
@@ -693,6 +693,12 @@ package GNAT.Spitbol.Patterns is
-- body, manage to interprete them properly as though they were indeed
-- in out parameters.
+ pragma Warnings (Off, VString_Var);
+ pragma Warnings (Off, Pattern_Var);
+ -- We turn off warnings for these two types so that when variables are used
+ -- as arguments in this context, warnings about them not being assigned in
+ -- the source program will be suppressed.
+
--------------------------------
-- Basic Pattern Construction --
--------------------------------