diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 12:59:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 12:59:04 +0200 |
| commit | 93c3fca75ea3dd182fbd4cfca5b1dabd7344f735 (patch) | |
| tree | 007f417d2cffc875792dc7dd354090911831687c /gcc/ada/sem_util.ads | |
| parent | e29e24831601dbcc701626073daca9054ac1edad (diff) | |
| download | gcc-93c3fca75ea3dd182fbd4cfca5b1dabd7344f735.tar.gz | |
[multiple changes]
2009-06-19 Eric Botcazou <ebotcazou@adacore.com>
* einfo.ads (Handling of Type'Size Values): Fix Object_Size values.
2009-06-19 Robert Dewar <dewar@adacore.com>
* a-nudira.adb (Need_64): Handle negative ranges and also dynamic
ranges
* checks.adb (Determine_Range): Move the test for generic types later.
* sem_eval.adb (Compile_Time_Compare): Improve circuitry to catch more
cases.
(Eval_Relational_Op): Fold more cases including string compares
* sem_util.ads, sem_util.adb (References_Generic_Formal_Type): New
function.
From-SVN: r148697
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 9e2d3ffcf1e..b4adabf26a9 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -1026,6 +1026,10 @@ package Sem_Util is -- S is a possibly signed syntactically valid real literal. The result -- returned is an N_Real_Literal node representing the literal value. + function References_Generic_Formal_Type (N : Node_Id) return Boolean; + -- Returns True if the expression Expr contains any references to a + -- generic type. This can only happen within a generic template. + procedure Remove_Homonym (E : Entity_Id); -- Removes E from the homonym chain |