exp_util.adb, [...]: Minor reformatting.

2017-04-25  Gary Dismukes  <dismukes@adacore.com>

	* exp_util.adb, exp_util.ads, types.ads: Minor reformatting.

From-SVN: r247235
This commit is contained in:
Gary Dismukes 2017-04-25 13:39:30 +00:00 committed by Arnaud Charlet
parent 0f96fd143c
commit 178c3cba2d
4 changed files with 7 additions and 3 deletions

View File

@ -1,3 +1,7 @@
2017-04-25 Gary Dismukes <dismukes@adacore.com>
* exp_util.adb, exp_util.ads, types.ads: Minor reformatting.
2017-04-25 Bob Duff <duff@adacore.com>
* err_vars.ads, fmap.adb, fmap.ads, comperr.adb, fname-sf.adb,

View File

@ -5198,7 +5198,7 @@ package body Exp_Util is
U_Typ : constant Entity_Id := Unique_Entity (Typ);
function Search_Primitive_Calls (N : Node_Id) return Traverse_Result;
-- Search for non-dispatching calls to primitive functions of type Typ
-- Search for nondispatching calls to primitive functions of type Typ
----------------------------
-- Search_Primitive_Calls --

View File

@ -559,7 +559,7 @@ package Exp_Util is
function Expression_Contains_Primitives_Calls_Of
(Expr : Node_Id;
Typ : Entity_Id) return Boolean;
-- Return True if the expression Expr contains a non-dispatching call to a
-- Return True if the expression Expr contains a nondispatching call to a
-- function which is a primitive of the tagged type Typ.
function Finalize_Address (Typ : Entity_Id) return Entity_Id;

View File

@ -220,7 +220,7 @@ package Types is
-- Do not call this elsewhere.
function "=" (X, Y : Source_Buffer_Ptr) return Boolean is abstract;
-- Make "=" abstract, to make sure noone calls it. Note that this makes
-- Make "=" abstract, to make sure no one calls it. Note that this makes
-- "/=" abstract as well. Calls to "=" on Source_Buffer_Ptr are always
-- wrong, because two different arrays allocated at two different addresses
-- can have the same virtual origin.