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

gcc/ada/

	* pprint.adb (List_Name_Count): Change type from Integer to
	Natural.
This commit is contained in:
Piotr Trojanek 2021-01-08 12:10:51 +01:00 committed by Pierre-Marie de Rodat
parent e243bf2349
commit 6c1655399b
1 changed files with 1 additions and 1 deletions

View File

@ -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.