--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:23 by OpenVMS SDL EV3-3      
-- Source:  29-JUL-2004 17:28:34 $1$DGA8085:[LIB_ADA.LIS]ERBDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ERBDEF is
 
--  module $ERBDEF
 
--
-- Error Log Recovery Block Header
--
 
    type ERB_TYPE is
	record
	    BUFPAGES	: UNSIGNED_LONGWORD;				--  V5.1 and + : pages / buffer
	    BUFCNT	: UNSIGNED_LONGWORD;				--  # buffers, not incl crash buf
	    BLOCK_SIZE	: UNSIGNED_LONGWORD;				--  Returned by allocation
	    ALLOCATED	: UNSIGNED_LONGWORD;				--  Bytes alloc'd for this block
	    HEAD	: UNSIGNED_LONGWORD;				--  Ring head index at crash
	    TAIL	: UNSIGNED_LONGWORD;				--  Ring tail index at crash
	end record;
 
	    for ERB_TYPE use 
		record
		    BUFPAGES	at 0 range 0 .. 31;
		    BUFCNT	at 4 range 0 .. 31;
		    BLOCK_SIZE	at 8 range 0 .. 31;
		    ALLOCATED	at 12 range 0 .. 31;
		    HEAD	at 16 range 0 .. 31;
		    TAIL	at 20 range 0 .. 31;
		end record;
	    for ERB_TYPE'SIZE use 192;
 
    ERB_TYPE_INIT : constant ERB_TYPE := 
	    (BUFPAGES	=> 0,
	    BUFCNT	=> 0,
	    BLOCK_SIZE	=> 0,
	    ALLOCATED	=> 0,
	    HEAD	=> 0,
	    TAIL	=> 0);
 
    ERB_C_LENGTH		: constant := 24;
    ERB_K_LENGTH		: constant := 24;
    S_ERBDEF			: constant := 24;
 
end ERBDEF;