From 6c1655399bada8bb7ddb099c0865f7a882fe96e7 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 8 Jan 2021 12:10:51 +0100
Subject: [Ada] Refine type of a counter variable from Integer to Natural

gcc/ada/

	* pprint.adb (List_Name_Count): Change type from Integer to
	Natural.
---
 gcc/ada/pprint.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gcc')

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.
 
-- 
cgit v1.1