From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 10 Feb 2021 12:14:48 +0000 (+0100)
Subject: [Ada] Fix typos in comment about expansion of attribute Image
X-Git-Tag: basepoints/gcc-13~6847
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d675f3528764107d70cc7e299419156aaa6f1e87;p=thirdparty%2Fgcc.git

[Ada] Fix typos in comment about expansion of attribute Image

gcc/ada/

	* exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Fix
	typos.
---

diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb
index 3e7336aaf8cf..54626be48eb3 100644
--- a/gcc/ada/exp_imgv.adb
+++ b/gcc/ada/exp_imgv.adb
@@ -952,7 +952,7 @@ package body Exp_Imgv is
          end;
 
          --  Generate:
-         --    S4 : String renames call_put_enumS (S2 .. S3 - 1);
+         --    P4 : String renames call_put_enumS (P2 .. P3 - 1);
 
          declare
             Sub_Node : constant Node_Id := New_Op_Node (N_Op_Subtract, Loc);