--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:23 by OpenVMS SDL EV3-3      
-- Source:  31-JUL-2005 02:50:42 $1$DGA8085:[LIB_ADA.LIS]ERLMBXDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ERLMBXDEF is
 
--  module $ERLMBXDEF
 
--
-- ERROR LOG MAILBOX SYSTEM DATA CELL STRUCTURE AND MAILBOX COUNT
--
 
    ERL_K_MAILBOX_COUNT		: constant := 5;			--  NUMBER OF MAILBOXES
    ERL_C_MAILBOX_COUNT		: constant := 5;			--  NUMBER OF MAILBOXES
    ERL_K_MBX_LENGTH		: constant := 8;			--  LENGTH OF STRUCTURE
    ERL_C_MBX_LENGTH		: constant := 8;			--  LENGTH OF STRUCTURE
 
    type ERLMBX_TYPE is
	record
	    MBX_UNT	: UNSIGNED_LONGWORD;				--  MAILBOX UNIT NUMBER
	    MBX_PID	: UNSIGNED_LONGWORD;				--  MBX OWNER PID
	end record;
 
	    for ERLMBX_TYPE use 
		record
		    MBX_UNT	at 0 range 0 .. 31;
		    MBX_PID	at 4 range 0 .. 31;
		end record;
	    for ERLMBX_TYPE'SIZE use 64;
 
    ERLMBX_TYPE_INIT : constant ERLMBX_TYPE := 
	    (MBX_UNT	=> 0,
	    MBX_PID	=> 0);
 
end ERLMBXDEF;