DataMuseum.dk

top - download

    Length: 893 (0x37d)
    Types: TextFile
    Names: »V«

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

-- Copyright 1990 Verdix Corporation

------------------------------------------------------------------------------
-- Inline semaphore routines
------------------------------------------------------------------------------
WITH System;
WITH V_I_Types;
WITH V_I_Sema;
WITH Unchecked_Conversion;
PACKAGE V_Sema IS

   PRAGMA Suppress (All_Checks);
   PRAGMA Suppress (Exception_Tables);
   PRAGMA Not_Elaborated;

   --------------------------------------------------------------------------
   -- See descriptions in v_i_sema.a
   --------------------------------------------------------------------------
   PROCEDURE Enter (S : V_I_Sema.A_Semaphore);
   PRAGMA Inline_Only (Enter);

   FUNCTION Conditional_Enter (S : V_I_Sema.A_Semaphore) RETURN Boolean;
   PRAGMA Inline_Only (Conditional_Enter);

   PROCEDURE Leave (S : V_I_Sema.A_Semaphore);
   PRAGMA Inline_Only (Leave);

END V_Sema;