diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-03-04 12:44:11 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-17 10:21:05 +0200 |
| commit | 3a5c4f926676bada86b7862ec0257ac5170b7976 (patch) | |
| tree | f219ac2a0da17cd755d481e661633ffea75a6b1d /libcpp | |
| parent | 75de817d88aade7fc5e8b4bebe3f179f1c5b6a87 (diff) | |
| download | gcc-3a5c4f926676bada86b7862ec0257ac5170b7976.zip gcc-3a5c4f926676bada86b7862ec0257ac5170b7976.tar.gz gcc-3a5c4f926676bada86b7862ec0257ac5170b7976.tar.bz2 | |
ada: Factor out duplicated code in bodies of System.Task_Primitives.Operations
The duplication is present in some POSIX-like implementations (POSIX
and RTEMS) while it has already been eliminated in others (Linux, QNX). The
latter implementations are also slightly modified for consistency's sake.
No functional changes.
gcc/ada/
* libgnarl/s-taprop__dummy.adb (Initialize_Lock): Fix formatting.
* libgnarl/s-taprop__linux.adb (RTS_Lock_Ptr): Delete.
(Init_Mutex): Rename into...
(Initialize_Lock): ...this.
(Initialize_Lock [Lock]): Call above procedure.
(Initialize_Lock [RTS_Lock]): Likewise.
(Initialize_TCB): Likewise.
* libgnarl/s-taprop__posix.adb (Initialize_Lock): New procedure
factored out from the other two homonyms.
(Initialize_Lock [Lock]): Call above procedure.
(Initialize_Lock [RTS_Lock]): Likewise.
* libgnarl/s-taprop__qnx.adb (RTS_Lock_Ptr): Delete.
(Init_Mutex): Rename into...
(Initialize_Lock): ...this.
(Initialize_Lock [Lock]): Call above procedure.
(Initialize_Lock [RTS_Lock]): Likewise.
(Initialize_TCB): Likewise.
* libgnarl/s-taprop__rtems.adb (Initialize_Lock): New procedure
factored out from the other two homonyms.
(Initialize_Lock [Lock]): Call above procedure.
(Initialize_Lock [RTS_Lock]): Likewise.
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions