diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 14:29:26 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 14:29:26 +0200 |
| commit | 4646d048e4f5e76521bb215aad2e8bbbe6609c71 (patch) | |
| tree | f7da57098806cc0aec157a1d0d38dc7218b0445c /gcc | |
| parent | 1313f39c905ee1733291b81a9e45ad21fb8d0dd4 (diff) | |
| download | gcc-4646d048e4f5e76521bb215aad2e8bbbe6609c71.zip gcc-4646d048e4f5e76521bb215aad2e8bbbe6609c71.tar.gz gcc-4646d048e4f5e76521bb215aad2e8bbbe6609c71.tar.bz2 | |
Update comments.
From-SVN: r148703
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem.ads | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads index a1873e8..7d14962 100644 --- a/gcc/ada/sem.ads +++ b/gcc/ada/sem.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2009, 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- -- @@ -248,17 +248,18 @@ package Sem is -- be available at the freeze point. In_Inlined_Body : Boolean := False; - -- Switch to indicate that we are analyzing and resolving an inlined - -- body. Type checking is disabled in this context, because types are - -- known to be compatible. This avoids problems with private types whose - -- full view is derived from private types. + -- Switch to indicate that we are analyzing and resolving an inlined body. + -- Type checking is disabled in this context, because types are known to be + -- compatible. This avoids problems with private types whose full view is + -- derived from private types. Inside_A_Generic : Boolean := False; - -- This flag is set if we are processing a generic specification, - -- generic definition, or generic body. When this flag is True the - -- Expander_Active flag is False to disable any code expansion (see - -- package Expander). Only the generic processing can modify the - -- status of this flag, any other client should regard it as read-only. + -- This flag is set if we are processing a generic specification, generic + -- definition, or generic body. When this flag is True the Expander_Active + -- flag is False to disable any code expansion (see package Expander). Only + -- the generic processing can modify the status of this flag, any other + -- client should regard it as read-only. + -- Probably should be called Inside_A_Generic_Template ??? Inside_Freezing_Actions : Nat := 0; -- Flag indicating whether we are within a call to Expand_N_Freeze_Actions. |