diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-12-21 12:01:06 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-06 11:11:28 +0200 |
| commit | a9a32d0e2208166d4e3cd8beac6738af1a74c68e (patch) | |
| tree | a0b49cb3f3e7a7bdbb0c838057a67e2b252ceeb2 /gcc | |
| parent | 8d613b26d3d9d388dc85f95a035d4972dc3bc1ba (diff) | |
| download | gcc-a9a32d0e2208166d4e3cd8beac6738af1a74c68e.zip gcc-a9a32d0e2208166d4e3cd8beac6738af1a74c68e.tar.gz gcc-a9a32d0e2208166d4e3cd8beac6738af1a74c68e.tar.bz2 | |
ada: Make a couple of comment tweaks
This removes a reference to a mechanism that didn't make it into the final
implementation and completes the description of another.
gcc/ada/
* libgnat/s-finpri.ads (Finalize_Master): Remove obsolete reference
in the description.
(Finalize_Object): Document the effects of repeated calls.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/s-finpri.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/libgnat/s-finpri.ads b/gcc/ada/libgnat/s-finpri.ads index de775ca..ab79ea2c 100644 --- a/gcc/ada/libgnat/s-finpri.ads +++ b/gcc/ada/libgnat/s-finpri.ads @@ -92,13 +92,12 @@ package System.Finalization_Primitives with Preelaborate is procedure Finalize_Master (Master : in out Finalization_Scope_Master); -- Finalizes each of the controlled objects associated with Master, in the - -- reverse of the order in which they were attached, and releases the space - -- that was allocated on the secondary stack if Master.SS_Mark is not null. - -- Calls to this procedure with a Master that has already been finalized - -- have no effects. + -- reverse of the order in which they were attached. Calls to the procedure + -- with a Master that has already been finalized have no effects. procedure Finalize_Object (Node : in out Master_Node); - -- Finalizes the controlled object attached to Node + -- Finalizes the controlled object attached to Node. Calls to the procedure + -- with a Node that has already been finalized have no effects. procedure Suppress_Object_Finalize_At_End (Node : in out Master_Node); -- Changes the state of Node to effectively suppress a call to Node's |