diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 38 | ||||
| -rw-r--r-- | gcc/ada/affinity.c | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnat/g-catiio.adb | 2 |
3 files changed, 40 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 24d03d4..806a2ca 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,41 @@ +2025-10-20 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/102078 + * affinity.c (__gnat_set_affinity_mask): Add U qualifier. + +2025-10-20 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/32318 + * libgnat/g-catiio.adb (Image_Helper) <'c'>: Fix comment. + +2025-10-20 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/68179 + * exp_ch3.adb (Expand_Freeze_Array_Type): Build an initialization + procedure for a type derived from String declared with the aspect + Default_Aspect_Component_Value. + +2025-10-20 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/52319 + * sem_ch7.adb (Uninstall_Declarations): Use direct test on Nkind + to spot operators. + * sem_ch8.adb (End_Use_Package): Also test the Etype of operators + to spot those which are primitive operators of use-visible types. + +2025-10-20 Nicolas Boulenguez <nicolas@debian.org> + + PR ada/87777 + * gnatchop.adb: Add with clause for Osint. + (Locate_Executable): Delete. + (Gnatchop): Use Osint.Program_Name and Locate_Exec_On_Path instead + of Locate_Executable to locate GCC's driver executable. + +2025-10-20 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/107536 + * exp_ch2.adb (Expand_Renaming): Mark the entity as referenced. + 2025-10-17 Eric Botcazou <ebotcazou@adacore.com> PR ada/122295 diff --git a/gcc/ada/affinity.c b/gcc/ada/affinity.c index 58f491f..5b95d70 100644 --- a/gcc/ada/affinity.c +++ b/gcc/ada/affinity.c @@ -56,7 +56,7 @@ __gnat_set_affinity_mask (TASK_ID tid, unsigned mask) CPUSET_ZERO(cpuset); for (index = 0; index < sizeof (unsigned) * 8; index++) - if (mask & (1 << index)) + if (mask & (1U << index)) CPUSET_SET(cpuset, index); return taskCpuAffinitySet (tid, cpuset); diff --git a/gcc/ada/libgnat/g-catiio.adb b/gcc/ada/libgnat/g-catiio.adb index 5310706..d229b3b 100644 --- a/gcc/ada/libgnat/g-catiio.adb +++ b/gcc/ada/libgnat/g-catiio.adb @@ -515,7 +515,7 @@ package body GNAT.Calendar.Time_IO is Result := Result & Image (Month_Name'Image (Month_Name'Val (Month - 1))); - -- Locale's date and time (Sat Nov 04 12:02:33 EST 1989) + -- Locale's date and time (Sat Nov 04 12:02:33 1989) when 'c' => case Padding is |