diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 16:10:43 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 16:10:43 +0000 |
| commit | 6666a55d3cf07dc5206c2f1752f0ccfa2e77f244 (patch) | |
| tree | ca2fbc84c4ed710a18e1bdbf54ce031cd0cf1d93 /gcc/ada/sem_warn.ads | |
| parent | cf2d31abc90dc053fd977c10fa146208e2a13ff3 (diff) | |
| download | gcc-6666a55d3cf07dc5206c2f1752f0ccfa2e77f244.tar.gz | |
* sem_warn.adb: Remove stuff for conditionals, we are not going to
do this after all.
* sem_warn.ads: Remove stuff for conditionals, we are not going to
do this after all. Add 2001 to copyright notice
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47677 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_warn.ads')
| -rw-r--r-- | gcc/ada/sem_warn.ads | 37 |
1 files changed, 2 insertions, 35 deletions
diff --git a/gcc/ada/sem_warn.ads b/gcc/ada/sem_warn.ads index 0c5d75956a0..1482ff8a878 100644 --- a/gcc/ada/sem_warn.ads +++ b/gcc/ada/sem_warn.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ +-- $Revision$ -- -- --- Copyright (C) 1999-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2001 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- -- @@ -87,39 +87,6 @@ package Sem_Warn is -- using the flags set by the initial call where appropriate to specialize -- the text of the warning messages. - ---------------------------------------- - -- Routines to Deal with Conditionals -- - ---------------------------------------- - - -- These routines provide the necessary interfacing information to - -- correctly handle references in conditional structures (if/then/end-if, - -- or case/when/end-case). The issue here is that if a variable is only - -- set in some but not all branches of a conditional, then it is not - -- considered as being set by the conditional as a whole. - - procedure Start_Unit; - -- Mark start of new unit to be analyzed, deals with fact that a call to - -- Rtsfind may cause new unit to be analyzed in middle of conditional. - - procedure End_Unit; - -- Mark end of unit corresponding to previous call to Start_Unit - - procedure Start_Conditional (If_Stmt : Boolean); - -- Mark start of a new conditional structure (an if-elsif-else-endif - -- or a case-when-end-case structure). If_Stmt is True for the IF - -- statement case, and False for the CASE statement case. - - procedure Start_Branch (Loc : Source_Ptr); - -- Start processing of one branch of conditional previously marked by - -- a call to Start_Conditional (i.e. start of then/elsif/else statements - -- or set of statements after a when condition). The Loc value is the - -- source pointer to be used in warning messages concerning variables - -- not properly initialized in this branch. A branch is terminated by - -- either another Start_Branch or End_Conditional call. - - procedure End_Conditional; - -- Terminate conditional started by previous Start_Conditional statement. - --------------------- -- Output Routines -- --------------------- |