From 027ed68ca0f3addbca0c5824381d81bd0a5095b1 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 30 Nov 2020 12:04:05 +0100 Subject: [PATCH] [Ada] Refine types of variables for parsing formal object declarations gcc/ada/ * par-ch12.adb (P_Formal_Object_Declarations): Refine types to Pos. --- gcc/ada/par-ch12.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 7743670455e..99abf88cc3f 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -423,12 +423,12 @@ package body Ch12 is procedure P_Formal_Object_Declarations (Decls : List_Id) is Decl_Node : Node_Id; - Ident : Nat; + Ident : Pos; Not_Null_Present : Boolean := False; - Num_Idents : Nat; + Num_Idents : Pos; Scan_State : Saved_Scan_State; - Idents : array (Int range 1 .. 4096) of Entity_Id; + Idents : array (Pos range 1 .. 4096) of Entity_Id; -- This array holds the list of defining identifiers. The upper bound -- of 4096 is intended to be essentially infinite, and we do not even -- bother to check for it being exceeded. -- 2.30.2