diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-01-08 12:10:51 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-04 05:17:35 -0400 |
| commit | 6c1655399bada8bb7ddb099c0865f7a882fe96e7 (patch) | |
| tree | 0b19e0d9f48d9a6a248692f92bea77941190ddbf /gcc | |
| parent | e243bf23499bf3e38abfd3766e2d261ccf26ec89 (diff) | |
| download | gcc-6c1655399bada8bb7ddb099c0865f7a882fe96e7.zip gcc-6c1655399bada8bb7ddb099c0865f7a882fe96e7.tar.gz gcc-6c1655399bada8bb7ddb099c0865f7a882fe96e7.tar.bz2 | |
[Ada] Refine type of a counter variable from Integer to Natural
gcc/ada/
* pprint.adb (List_Name_Count): Change type from Integer to
Natural.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/pprint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb index 5091a86..0360e94 100644 --- a/gcc/ada/pprint.adb +++ b/gcc/ada/pprint.adb @@ -36,7 +36,7 @@ with Uintp; use Uintp; package body Pprint is - List_Name_Count : Integer := 0; + List_Name_Count : Natural := 0; -- Counter used to prevent infinite recursion while computing name of -- complex expressions. |