From 015f33d73ec6634c9b96637fff73c49ac5f0ba9f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 4 Jul 2016 12:06:17 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r237962 --- gcc/ada/freeze.adb | 4 ++-- gcc/ada/sem_prag.ads | 12 +++++------- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index b9d70c416c9..6596d53371a 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 8613bba1831..db7bcbb8b85 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; -- 2.30.2