diff options
| author | Bob Duff <duff@adacore.com> | 2023-01-13 08:34:45 -0500 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-15 11:36:42 +0200 |
| commit | ade343e6694ffeb4d587db073b19d5da5e1c3003 (patch) | |
| tree | a0d4a8708dafc7066ad6acbec3d96d8c431d1eaf /gcc | |
| parent | 51e8f41212cfdffef374f9a5e916a19702cdecd1 (diff) | |
| download | gcc-ade343e6694ffeb4d587db073b19d5da5e1c3003.zip gcc-ade343e6694ffeb4d587db073b19d5da5e1c3003.tar.gz gcc-ade343e6694ffeb4d587db073b19d5da5e1c3003.tar.bz2 | |
ada: Remove duplicated code in Proc_Next_Component_Or_Discriminant
Proc_Next_Component_Or_Discriminant was duplicating the code
in Next_Component_Or_Discriminant.
gcc/ada/
* einfo-utils.adb:
(Proc_Next_Component_Or_Discriminant): Call
Next_Component_Or_Discriminant.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index dc379cb..a8220e2 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -3219,11 +3219,7 @@ package body Einfo.Utils is procedure Proc_Next_Component_Or_Discriminant (N : in out Node_Id) is begin - N := Next_Entity (N); - while Present (N) loop - exit when Ekind (N) in E_Component | E_Discriminant; - N := Next_Entity (N); - end loop; + N := Next_Component_Or_Discriminant (N); end Proc_Next_Component_Or_Discriminant; procedure Proc_Next_Discriminant (N : in out Node_Id) is |