diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-10 18:00:46 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-06 14:46:57 +0000 |
| commit | ca290f108a62e041ea3ca7c981d8225f34cefdbd (patch) | |
| tree | 2dd19bf81eb31f4449c3712af83672391046d6f6 /gcc/ada/lib-load.adb | |
| parent | 3751af1e7ba5173f35f0e0a5adc62e4455f7a963 (diff) | |
| download | gcc-ca290f108a62e041ea3ca7c981d8225f34cefdbd.zip gcc-ca290f108a62e041ea3ca7c981d8225f34cefdbd.tar.gz gcc-ca290f108a62e041ea3ca7c981d8225f34cefdbd.tar.bz2 | |
[Ada] Simplify unit loading with membership tests
gcc/ada/
* lib-load.adb (Load_Unit): Remove excessive whitespace.
* lib.adb (Is_Internal_Unit, Is_Predefined_Unit): Likewise.
* par-ch10.adb (P_Compilation_Unit): Simplify with membership
test.
* par-load.adb (Load): Likewise.
* uname.adb (Get_Unit_Name): Likewise.
Diffstat (limited to 'gcc/ada/lib-load.adb')
| -rw-r--r-- | gcc/ada/lib-load.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index 330faa7..75b52e2 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -396,14 +396,14 @@ package body Lib.Load is --------------- function Load_Unit - (Load_Name : Unit_Name_Type; - Required : Boolean; - Error_Node : Node_Id; - Subunit : Boolean; - Corr_Body : Unit_Number_Type := No_Unit; - Renamings : Boolean := False; - With_Node : Node_Id := Empty; - PMES : Boolean := False) return Unit_Number_Type + (Load_Name : Unit_Name_Type; + Required : Boolean; + Error_Node : Node_Id; + Subunit : Boolean; + Corr_Body : Unit_Number_Type := No_Unit; + Renamings : Boolean := False; + With_Node : Node_Id := Empty; + PMES : Boolean := False) return Unit_Number_Type is Calling_Unit : Unit_Number_Type; Uname_Actual : Unit_Name_Type; |