From: Arnaud Charlet Date: Mon, 4 Jul 2016 10:06:17 +0000 (+0200) Subject: Minor reformatting. X-Git-Tag: basepoints/gcc-8~5914 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=015f33d73ec6634c9b96637fff73c49ac5f0ba9f;p=thirdparty%2Fgcc.git Minor reformatting. From-SVN: r237962 --- diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index b9d70c416c9d..6596d53371aa 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1403,8 +1403,8 @@ package body Freeze is while Present (Op_Node) loop Prim := Node (Op_Node); - -- Map the overridden primitive to the overriding one. This - -- takes care of all overridings and is done only once. + -- Map the overridden primitive to the overriding one. This takes + -- care of all overridings and is done only once. if Present (Overridden_Operation (Prim)) and then Comes_From_Source (Prim) diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index 8613bba1831a..db7bcbb8b85e 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -531,12 +531,10 @@ package Sem_Prag is procedure Update_Primitives_Mapping (Inher_Id : Entity_Id; Subp_Id : Entity_Id); - - -- map primitive operations of the parent type to the corresponding - -- operations of the descendant. note that the descendant type may - -- not be frozen yet, so we cannot use the dispatch table directly. - -- This is called when elaborating a contract for a subprogram, and - -- when freezing a type extension to verify legality rules on inherited - -- conditions. + -- Map primitive operations of the parent type to the corresponding + -- operations of the descendant. Note that the descendant type may not be + -- frozen yet, so we cannot use the dispatch table directly. This is called + -- when elaborating a contract for a subprogram, and when freezing a type + -- extension to verify legality rules on inherited conditions. end Sem_Prag;