Commit b970b571 by Arnaud Charlet

* exp_util.ads: Minor reformatting.

From-SVN: r136090
parent dc7c0c4d
...@@ -205,6 +205,7 @@ package Exp_Util is ...@@ -205,6 +205,7 @@ package Exp_Util is
-- index values. For composite types, the result includes two declarations: -- index values. For composite types, the result includes two declarations:
-- one for a generated function that computes the image without using -- one for a generated function that computes the image without using
-- concatenation, and one for the variable that holds the result. -- concatenation, and one for the variable that holds the result.
--
-- If In_Init_Proc is true, the call is part of the initialization of -- If In_Init_Proc is true, the call is part of the initialization of
-- a component of a composite type, and the enclosing initialization -- a component of a composite type, and the enclosing initialization
-- procedure must be flagged as using the secondary stack. If In_Init_Proc -- procedure must be flagged as using the secondary stack. If In_Init_Proc
...@@ -382,7 +383,7 @@ package Exp_Util is ...@@ -382,7 +383,7 @@ package Exp_Util is
Name_Req : Boolean := False); Name_Req : Boolean := False);
-- Force the evaluation of the expression right away. Similar behavior -- Force the evaluation of the expression right away. Similar behavior
-- to Remove_Side_Effects when Variable_Ref is set to TRUE. That is to -- to Remove_Side_Effects when Variable_Ref is set to TRUE. That is to
-- say, it removes the side-effects and capture the values of the -- say, it removes the side-effects and captures the values of the
-- variables. Remove_Side_Effects guarantees that multiple evaluations -- variables. Remove_Side_Effects guarantees that multiple evaluations
-- of the same expression won't generate multiple side effects, whereas -- of the same expression won't generate multiple side effects, whereas
-- Force_Evaluation further guarantees that all evaluations will yield -- Force_Evaluation further guarantees that all evaluations will yield
...@@ -476,7 +477,7 @@ package Exp_Util is ...@@ -476,7 +477,7 @@ package Exp_Util is
-- Node N is an object reference. This function returns True if it is -- Node N is an object reference. This function returns True if it is
-- possible that the object may not be aligned according to the normal -- possible that the object may not be aligned according to the normal
-- default alignment requirement for its type (e.g. if it appears in a -- default alignment requirement for its type (e.g. if it appears in a
-- packed record, or as part of a component that has a component clause. -- packed record, or as part of a component that has a component clause.)
function Is_Renamed_Object (N : Node_Id) return Boolean; function Is_Renamed_Object (N : Node_Id) return Boolean;
-- Returns True if the node N is a renamed object. An expression is -- Returns True if the node N is a renamed object. An expression is
...@@ -564,12 +565,12 @@ package Exp_Util is ...@@ -564,12 +565,12 @@ package Exp_Util is
-- returned only if the replacement is safe. -- returned only if the replacement is safe.
function Possible_Bit_Aligned_Component (N : Node_Id) return Boolean; function Possible_Bit_Aligned_Component (N : Node_Id) return Boolean;
-- This function is used in processing the assignment of a record or -- This function is used during processing the assignment of a record or
-- indexed component. The argument N is either the left hand or right -- indexed component. The argument N is either the left hand or right hand
-- hand side of an assignment, and this function determines if there -- side of an assignment, and this function determines if there is a record
-- is a record component reference where the record may be bit aligned -- component reference where the record may be bit aligned in a manner that
-- in a manner that causes trouble for the back end (see description -- causes trouble for the back end (see Component_May_Be_Bit_Aligned for
-- of Exp_Util.Component_May_Be_Bit_Aligned for further details). -- further details).
procedure Remove_Side_Effects procedure Remove_Side_Effects
(Exp : Node_Id; (Exp : Node_Id;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment