diff options
| author | Bob Duff <duff@adacore.com> | 2024-12-09 17:45:17 -0500 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-06 10:14:46 +0100 |
| commit | 42c115ee820c029acec5707d123fd771684e9a5b (patch) | |
| tree | 13e1d796dfeec0e70df90cb63eb5e521ad56e454 /gcc | |
| parent | 4b0a5e936b957ee4e3596a167d7192a1fdf86c9c (diff) | |
| download | gcc-42c115ee820c029acec5707d123fd771684e9a5b.zip gcc-42c115ee820c029acec5707d123fd771684e9a5b.tar.gz gcc-42c115ee820c029acec5707d123fd771684e9a5b.tar.bz2 | |
ada: Follow-on to Use inheritance in Gen_IL
Fix too-long line.
gcc/ada/ChangeLog:
* gen_il-gen.adb: Fix too-long line.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gen_il-gen.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gen_il-gen.adb b/gcc/ada/gen_il-gen.adb index 5064e8c..c200abc 100644 --- a/gcc/ada/gen_il-gen.adb +++ b/gcc/ada/gen_il-gen.adb @@ -983,7 +983,8 @@ package body Gen_IL.Gen is end loop; Iterate_Types (Node_Kind, Pre => Check_Potential_Inheritance'Access); - Iterate_Types (Entity_Kind, Pre => Check_Potential_Inheritance'Access); + Iterate_Types + (Entity_Kind, Pre => Check_Potential_Inheritance'Access); if Could_Be_Inherited_Error then raise Illegal with "some fields could be inherited"; |