diff options
| author | Richard Kenner <kenner@adacore.com> | 2024-07-12 09:38:21 -0400 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-02 09:08:08 +0200 |
| commit | 342e3cdc8b29e5dcfb68159ce9f72b744519b3db (patch) | |
| tree | a0a8c0cf4f566b8fd0e3956bfa22765978d3102b /gcc/ada/exp_ch4.adb | |
| parent | 3e64ad035302af0cd8e329bb508aa9ef1eb27597 (diff) | |
| download | gcc-342e3cdc8b29e5dcfb68159ce9f72b744519b3db.zip gcc-342e3cdc8b29e5dcfb68159ce9f72b744519b3db.tar.gz gcc-342e3cdc8b29e5dcfb68159ce9f72b744519b3db.tar.bz2 | |
ada: Remove unreferenced procedure
gcc/ada/
* exp_ch4.adb (Generate_Temporary): Remove unused procedure.
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 371cb11..18ec712 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -10816,49 +10816,6 @@ package body Exp_Ch4 is Expr : Node_Id; Ityp : Entity_Id; - procedure Generate_Temporary; - -- Generate a temporary to facilitate in the C backend the code - -- generation of the unchecked conversion since the size of the - -- source type may differ from the size of the target type. - - ------------------------ - -- Generate_Temporary -- - ------------------------ - - procedure Generate_Temporary is - begin - if Esize (Etype (Expr)) < Esize (Etype (Ityp)) then - declare - Exp_Type : constant Entity_Id := Ityp; - Def_Id : constant Entity_Id := - Make_Temporary (Loc, 'R', Expr); - E : Node_Id; - Res : Node_Id; - - begin - Set_Is_Internal (Def_Id); - Set_Etype (Def_Id, Exp_Type); - Res := New_Occurrence_Of (Def_Id, Loc); - - E := - Make_Object_Declaration (Loc, - Defining_Identifier => Def_Id, - Object_Definition => New_Occurrence_Of - (Exp_Type, Loc), - Constant_Present => True, - Expression => Relocate_Node (Expr)); - - Set_Assignment_OK (E); - Insert_Action (Expr, E); - - Set_Assignment_OK (Res, Assignment_OK (Expr)); - - Rewrite (Expr, Res); - Analyze_And_Resolve (Expr, Exp_Type); - end; - end if; - end Generate_Temporary; - -- Start of processing for Discrete_Range_Check begin |