aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2022-06-09 23:23:46 +0200
committerPierre-Marie de Rodat <derodat@adacore.com>2022-07-06 13:29:47 +0000
commit3fdb556c8387024493509a9f19f886617eced601 (patch)
tree0c2b2b81e22bd711a5eca3f65f142da89c49b818 /gcc/ada
parentc061e99b7dec27f2dd4f154b95dd42cd477bf6ef (diff)
downloadgcc-3fdb556c8387024493509a9f19f886617eced601.zip
gcc-3fdb556c8387024493509a9f19f886617eced601.tar.gz
gcc-3fdb556c8387024493509a9f19f886617eced601.tar.bz2
[Ada] Restore accidentally removed part of a comment about unset references
Fix an unintentionally removed comment. gcc/ada/ * sem_res.adb (Resolve_Actuals): Restore first sentence of a comment.
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/sem_res.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 650b7d5..8fbd2d5 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -4620,6 +4620,7 @@ package body Sem_Res is
("invalid use of untagged formal incomplete type", A);
end if;
+ -- For mode IN, if actual is an entity, and the type of the formal
-- has warnings suppressed, then we reset Never_Set_In_Source for
-- the calling entity. The reason for this is to catch cases like
-- GNAT.Spitbol.Patterns.Vstring_Var where the called subprogram