From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 8 Jan 2021 11:10:51 +0000 (+0100)
Subject: [Ada] Refine type of a counter variable from Integer to Natural
X-Git-Tag: basepoints/gcc-13~7887
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c1655399bada8bb7ddb099c0865f7a882fe96e7;p=thirdparty%2Fgcc.git

[Ada] Refine type of a counter variable from Integer to Natural

gcc/ada/

	* pprint.adb (List_Name_Count): Change type from Integer to
	Natural.
---

diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb
index 5091a862fe66..0360e94c0d8f 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.