--- a/gcc/ada/errout.ads	Thu Oct 25 07:37:49 2018 +0900
+++ b/gcc/ada/errout.ads	Thu Feb 13 11:34:05 2020 +0900
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2018, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2019, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -647,8 +647,8 @@
    --  CODEFIX Facility --
    -----------------------
 
-   --  The GPS and GNATBench IDE's have a codefix facility that allows for
-   --  automatic correction of a subset of the errors and warnings issued
+   --  The GNAT Studio and GNATBench IDE's have a codefix facility that allows
+   --  for automatic correction of a subset of the errors and warnings issued
    --  by the compiler. This is done by recognizing the text of specific
    --  messages using appropriate matching patterns.
 
@@ -734,6 +734,8 @@
    --  suppressed if the node N already has a message posted, or if it is a
    --  warning and N is an entity node for which warnings are suppressed.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
    procedure Error_Msg_F (Msg : String; N : Node_Id);
    --  Similar to Error_Msg_N except that the message is placed on the first
    --  node of the construct N (First_Node (N)). Note that this procedure uses
@@ -750,6 +752,8 @@
    --  will contain a & or } as usual to mark the insertion point. This
    --  routine can be called from the parser or the analyzer.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
    procedure Error_Msg_FE
      (Msg : String;
       N   : Node_Id;
@@ -948,4 +952,14 @@
    --  This name is the identifier name as passed, cased according to the
    --  default identifier casing for the given file.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
+   function Is_Size_Too_Small_Message (S : String) return Boolean;
+   Size_Too_Small_Message : constant String :=
+     "size for& too small, minimum allowed is ^";
+   --  This message is printed in Freeze and Sem_Ch13. We also test for it in
+   --  the body of this package (see Special_Msg_Delete) ???which is somewhat
+   --  questionable. The Is_Size_Too_Small_Message function tests for it by
+   --  testing a prefix. The function and constant should be kept in synch.
+
 end Errout;