|
1 | 1 | ------------------------------------------------------------------------------ |
2 | 2 | -- C O D E P E E R -- |
3 | 3 | -- -- |
4 | | --- Copyright (C) 2013-2022, AdaCore -- |
| 4 | +-- Copyright (C) 2013-2023, AdaCore -- |
5 | 5 | -- -- |
6 | 6 | -- This is free software; you can redistribute it and/or modify it under -- |
7 | 7 | -- terms of the GNU General Public License as published by the Free Soft- -- |
@@ -97,6 +97,8 @@ package body Message_Kinds is |
97 | 97 | package CWE_Id_Sets is new |
98 | 98 | Ada.Containers.Ordered_Sets (Positive); |
99 | 99 | Result : CWE_Id_Sets.Set; |
| 100 | + procedure Include_Corresponding_CWE |
| 101 | + (Kind : Message_Kinds.Message_Subkind); |
100 | 102 |
|
101 | 103 | procedure Include_Corresponding_CWE |
102 | 104 | (Kind : Message_Kinds.Message_Subkind) |
@@ -357,7 +359,7 @@ package body Message_Kinds is |
357 | 359 | if Offset = 0 then |
358 | 360 | -- exact match with power of 2 |
359 | 361 | return ""; |
360 | | - elsif (Offset < 0) xor Is_Negated then |
| 362 | + elsif Offset < 0 xor Is_Negated then |
361 | 363 | -- Precede with '-' |
362 | 364 | return '-' & Image (abs (Offset)); |
363 | 365 | else |
@@ -387,6 +389,9 @@ package body Message_Kinds is |
387 | 389 | Head : String renames S (I .. J - 3); |
388 | 390 | -- All but last two digits of number |
389 | 391 |
|
| 392 | + function Compute_Offset |
| 393 | + (Ref : Natural) return Integer; |
| 394 | + |
390 | 395 | function Compute_Offset |
391 | 396 | (Ref : Natural) return Integer |
392 | 397 | -- For a n bits integer boundary, Ref must be |
|
0 commit comments