diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-03 15:52:34 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:32 +0000 |
| commit | f64a1bfaddab7d272224b80560f3a64dae28d6ea (patch) | |
| tree | dd7932a81b66f8797cb9a00a6c428d4ad09edfe0 /gcc | |
| parent | 4e5e43e8ca4f059c61bb1fccbf804bbce7375f5b (diff) | |
| download | gcc-f64a1bfaddab7d272224b80560f3a64dae28d6ea.zip gcc-f64a1bfaddab7d272224b80560f3a64dae28d6ea.tar.gz gcc-f64a1bfaddab7d272224b80560f3a64dae28d6ea.tar.bz2 | |
[Ada] Suppress spurious CodePeer check on generic actual subprogram
gcc/ada/
* treepr.adb (Destroy): Prevent spurious check from CodePeer.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/treepr.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index b6a6525..c1e71b1 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -84,6 +84,8 @@ package body Treepr is -- Simple Hash function for Node_Ids, List_Ids and Elist_Ids procedure Destroy (Value : in out Nat) is null; + pragma Annotate (CodePeer, False_Positive, "unassigned parameter", + "in out parameter is required to instantiate generic"); -- Dummy routine for destroing hashed values package Serial_Numbers is new Dynamic_Hash_Tables |