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:
parent
0f96fd143c
commit
178c3cba2d
@ -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,
|
||||
|
@ -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 --
|
||||
|
@ -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;
|
||||
|
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user