ada 程式設計/庫/System.Atomic Operations.Test And Set

此語言功能已在 Ada 2022 中引入。

System.Atomic Operations.Test_And_Set 是自 Ada 2022 起 預定義語言環境 的一個單元。

package System.Atomic_Operations.Test_And_Set
   with Pure, Nonblocking is

   type Test_And_Set_Flag is mod implementation-defined
      with Atomic, Default_Value => 0, Size => implementation-defined;

   function Atomic_Test_And_Set
     (Item : aliased in out Test_And_Set_Flag) return Boolean
      with Convention => Intrinsic;

   procedure Atomic_Clear
     (Item : aliased in out Test_And_Set_Flag)
      with Convention => Intrinsic;

   function Is_Lock_Free
     (Item : aliased Test_And_Set_Flag) return Boolean
      with Convention => Intrinsic;

end System.Atomic_Operations.Test_And_Set;