diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-30 12:04:05 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-16 08:01:03 -0500 |
commit | 027ed68ca0f3addbca0c5824381d81bd0a5095b1 (patch) | |
tree | 2549ba92a80f6968e5c6e1bd3c59cba194f2910e /gcc | |
parent | 55337de847075206be0c9f3154650ad17fcf2b28 (diff) | |
download | gcc-027ed68ca0f3addbca0c5824381d81bd0a5095b1.zip gcc-027ed68ca0f3addbca0c5824381d81bd0a5095b1.tar.gz gcc-027ed68ca0f3addbca0c5824381d81bd0a5095b1.tar.bz2 |
[Ada] Refine types of variables for parsing formal object declarations
gcc/ada/
* par-ch12.adb (P_Formal_Object_Declarations): Refine types to
Pos.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/par-ch12.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 7743670..99abf88 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. |