DataMuseum.dk

top - download

    Length: 1378 (0x562)
    Types: TextFile
    Names: »V«

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

TextFile

-- Copyright 1986, 1987, 1988 Verdix Corporation

------------------------------------------------------------------------------
-- User interface to the low level bit operators.
------------------------------------------------------------------------------
PACKAGE V_I_Bits IS

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

   FUNCTION Bit_And (L, R : Integer)   RETURN Integer;
   FUNCTION Bit_Or  (L, R : Integer)   RETURN Integer;
   FUNCTION Bit_Xor (L, R : Integer)   RETURN Integer;
   FUNCTION Bit_Neg (L : Integer)      RETURN Integer;
   FUNCTION Bit_Sra (L, Cnt : Integer) RETURN Integer;
   FUNCTION Bit_Srl (L, Cnt : Integer) RETURN Integer;
   FUNCTION Bit_Sll (L, Cnt : Integer) RETURN Integer;

PRIVATE
   PRAGMA Interface (Ada, Bit_And);
   PRAGMA Interface_Name (Bit_And, "__BIT_AND");
   PRAGMA Interface (Ada, Bit_Or);
   PRAGMA Interface_Name (Bit_Or, "__BIT_OR");
   PRAGMA Interface (Ada, Bit_Xor);
   PRAGMA Interface_Name (Bit_Xor, "__BIT_XOR");
   PRAGMA Interface (Ada, Bit_Neg);
   PRAGMA Interface_Name (Bit_Neg, "__BIT_NEG");
   PRAGMA Interface (Ada, Bit_Sra);
   PRAGMA Interface_Name (Bit_Sra, "__BIT_SRA");
   PRAGMA Interface (Ada, Bit_Srl);
   PRAGMA Interface_Name (Bit_Srl, "__BIT_SRL");
   PRAGMA Interface (Ada, Bit_Sll);
   PRAGMA Interface_Name (Bit_Sll, "__BIT_SLL");
END V_I_Bits;