Specification of package Tgx.Atomic

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2003, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --


with System ;
package Tgx.Atomic is
   type Offset is mod 2 ** 32 ;

   procedure Queue ( Head : in System.Address ;
                     Elem : in System.Address ;
                     Link : in System.Address ) ;

   procedure Queue ( Head : in System.Address ;
                     Elem : in System.Address ;
                     Link : in Offset ) ;

   function Dequeue ( Head : in System.Address ;
                      Link : in Offset ) return System.Address ;

   type Count is mod 2 ** 32 ;
   function Add ( Counter : access Count ; Inc : in Count) return Count ;
   function Sub ( Counter : access Count ; Dec : in Count) return Count ;

   function Inc ( Counter : access Count) return Count ;
   function Dec ( Counter : access Count) return Count ;

end Tgx.Atomic ;