diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-19 12:33:35 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-19 12:33:35 +0100 |
commit | de01377ca91e88226f919c84677d82c65dec6adf (patch) | |
tree | 75f286b99daa6edeabb59f7d8aa0363295a98310 /gcc/ada/exp_ch6.adb | |
parent | d9049d04d5fa172848374e395bf283c164a0f7fd (diff) | |
download | gcc-de01377ca91e88226f919c84677d82c65dec6adf.zip gcc-de01377ca91e88226f919c84677d82c65dec6adf.tar.gz gcc-de01377ca91e88226f919c84677d82c65dec6adf.tar.bz2 |
Minor reformatting.
From-SVN: r244615
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
-rw-r--r-- | gcc/ada/exp_ch6.adb | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 5e7a300..b9840e2 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -219,18 +219,18 @@ package body Exp_Ch6 is -- reference to the object itself, and the call becomes a call to the -- corresponding protected subprogram. + procedure Expand_Simple_Function_Return (N : Node_Id); + -- Expand simple return from function. In the case where we are returning + -- from a function body this is called by Expand_N_Simple_Return_Statement. + function Expression_Of_Expression_Function (Subp : Entity_Id) return Node_Id; - -- Return the expression of the expression function Subp + -- Return the expression of expression function Subp function Has_Unconstrained_Access_Discriminants (Subtyp : Entity_Id) return Boolean; - -- Returns True if the given subtype is unconstrained and has one - -- or more access discriminants. - - procedure Expand_Simple_Function_Return (N : Node_Id); - -- Expand simple return from function. In the case where we are returning - -- from a function body this is called by Expand_N_Simple_Return_Statement. + -- Returns True if the given subtype is unconstrained and has one or more + -- access discriminants. procedure Rewrite_Function_Call_For_C (N : Node_Id); -- When generating C code, replace a call to a function that returns an @@ -3943,7 +3943,7 @@ package body Exp_Ch6 is null; -- Frontend inlining of expression functions (performed also when - -- backend inlining is enabled) + -- backend inlining is enabled). elsif Is_Inlinable_Expression_Function (Subp) then Rewrite (N, New_Copy (Expression_Of_Expression_Function (Subp))); @@ -6982,13 +6982,13 @@ package body Exp_Ch6 is begin pragma Assert (Is_Expression_Function_Or_Completion (Subp)); - if Nkind (Original_Node (Subprogram_Spec (Subp))) - = N_Expression_Function + if Nkind (Original_Node (Subprogram_Spec (Subp))) = + N_Expression_Function then Expr_Func := Original_Node (Subprogram_Spec (Subp)); - elsif Nkind (Original_Node (Subprogram_Body (Subp))) - = N_Expression_Function + elsif Nkind (Original_Node (Subprogram_Body (Subp))) = + N_Expression_Function then Expr_Func := Original_Node (Subprogram_Body (Subp)); @@ -7331,7 +7331,8 @@ package body Exp_Ch6 is -- Is_Inlinable_Expression_Function -- -------------------------------------- - function Is_Inlinable_Expression_Function (Subp : Entity_Id) return Boolean + function Is_Inlinable_Expression_Function + (Subp : Entity_Id) return Boolean is Return_Expr : Node_Id; @@ -7353,8 +7354,9 @@ package body Exp_Ch6 is -- nominal subtype must be statically compatible with the result -- subtype of the expression function. - return Nkind (Return_Expr) = N_Identifier - and then Etype (Return_Expr) = Etype (Subp); + return + Nkind (Return_Expr) = N_Identifier + and then Etype (Return_Expr) = Etype (Subp); end if; return False; |