diff options
Diffstat (limited to 'gcc/ada/sem_prag.ads')
| -rw-r--r-- | gcc/ada/sem_prag.ads | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index d1ec46e19a5..9ff4ede80a2 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -33,6 +33,24 @@ package Sem_Prag is procedure Analyze_Pragma (N : Node_Id); -- Analyze procedure for pragma reference node N + function Delay_Config_Pragma_Analyze (N : Node_Id) return Boolean; + -- N is a pragma appearing in a configuration pragma file. Most + -- such pragmas are analyzed when the file is read, before parsing + -- and analyzing the main unit. However, the analysis of certain + -- pragmas results in adding information to the compiled main unit, + -- and this cannot be done till the main unit is processed. Such + -- pragmas return True from this function and in Frontend pragmas + -- where Delay_Config_Pragma_Analyze is True have their analysis + -- delayed until after the main program is parsed and analyzed. + + function Is_Non_Significant_Pragma_Reference (N : Node_Id) return Boolean; + -- The node N is a node for an entity and the issue is whether the + -- occurrence is a reference for the purposes of giving warnings + -- about unreferenced variables. This function returns True if the + -- reference is not a reference from this point of view (e.g. the + -- occurrence in a pragma Pack) and False if it is a real reference + -- (e.g. the occcurrence in a pragma Export); + function Is_Pragma_String_Literal (Par : Node_Id) return Boolean; -- Given an N_Pragma_Argument_Association node, Par, which has the form -- of an operator symbol, determines whether or not it should be treated |