diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-06-25 12:45:57 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:33 +0000 |
| commit | 7a8e133af28f8039740d09c650f0eca0a03113f6 (patch) | |
| tree | c821fb070a16d935fdd64ba5fcc8d1ed5ad5d693 | |
| parent | 325443d24bb480a2c75d36496f1ccc3fe2943968 (diff) | |
| download | gcc-7a8e133af28f8039740d09c650f0eca0a03113f6.zip gcc-7a8e133af28f8039740d09c650f0eca0a03113f6.tar.gz gcc-7a8e133af28f8039740d09c650f0eca0a03113f6.tar.bz2 | |
[Ada] Fix repeated generation of dispatch tables in CodePeer mode
gcc/ada/
* exp_disp.adb (Make_DT): Move call to Set_Has_Dispatch_Table,
so it is executed regardless of the Generate_SCIL mode.
| -rw-r--r-- | gcc/ada/exp_disp.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 4db883c..647068f 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -6610,7 +6610,6 @@ package body Exp_Disp is Append_Elmt (DT, DT_Decl); Analyze_List (Result, Suppress => All_Checks); - Set_Has_Dispatch_Table (Typ); -- Mark entities containing dispatch tables. Required by the backend to -- handle them properly. @@ -6643,6 +6642,8 @@ package body Exp_Disp is <<Leave_SCIL>> + Set_Has_Dispatch_Table (Typ); + -- Register the tagged type in the call graph nodes table Register_CG_Node (Typ); |