--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:31 by OpenVMS SDL EV3-3 -- Source: 20-APR-1993 14:21:57 $1$DGA8085:[LIB_ADA.LIS]NSAFAIDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package NSAFAIDEF is -- module $NSAFAIDEF -- -- Define the security auditing failure mode vectors. -- NSA_M_FAIL_WAIT : constant := 16#00000001#; NSA_M_FAIL_CRASH : constant := 16#00000002#; NSA_M_FAIL_IGNORE : constant := 16#00000004#; NSA_M_MSG_LOST : constant := 16#00000001#; NSA_C_FAI_LENGTH : constant := 12; NSA_K_FAI_LENGTH : constant := 12; NSA_S_NSAFAIDEF : constant := 12; type NSA_FAILURE_MODE_TYPE is record FAIL_WAIT : BOOLEAN; -- Wait for resources FAIL_CRASH : BOOLEAN; -- Crash the system FAIL_IGNORE : BOOLEAN; -- Drop failed audits FILLER_1 : UNSIGNED_13; end record; for NSA_FAILURE_MODE_TYPE use record FAIL_WAIT at 0 range 0 .. 0; FAIL_CRASH at 0 range 1 .. 1; FAIL_IGNORE at 0 range 2 .. 2; FILLER_1 at 0 range 3 .. 15; end record; for NSA_FAILURE_MODE_TYPE'SIZE use 16; NSA_FAILURE_MODE_TYPE_INIT : constant NSA_FAILURE_MODE_TYPE := (FAIL_WAIT => FALSE, FAIL_CRASH => FALSE, FAIL_IGNORE => FALSE, FILLER_1 => 0); type NSA_FAILURE_FLAGS_TYPE is record MSG_LOST : BOOLEAN; -- Alarms lost message written? FILLER_1 : UNSIGNED_15; end record; for NSA_FAILURE_FLAGS_TYPE use record MSG_LOST at 0 range 0 .. 0; FILLER_1 at 0 range 1 .. 15; end record; for NSA_FAILURE_FLAGS_TYPE'SIZE use 16; NSA_FAILURE_FLAGS_TYPE_INIT : constant NSA_FAILURE_FLAGS_TYPE := (MSG_LOST => FALSE, FILLER_1 => 0); type NSAFAI_TYPE is record FAILURE_MODE : NSA_FAILURE_MODE_TYPE; FAILURE_FLAGS : NSA_FAILURE_FLAGS_TYPE; LOST_COUNT : UNSIGNED_LONGWORD; -- Failure count SIZE : UNSIGNED_WORD; -- Stucture size TYP : UNSIGNED_BYTE; -- Structure type (DYN$C_NSA) SUBTYP : UNSIGNED_BYTE; -- Structure subtype (DYN$C_NSA_FAILURE) end record; for NSAFAI_TYPE use record FAILURE_MODE at 0 range 0 .. 15; FAILURE_FLAGS at 2 range 0 .. 15; LOST_COUNT at 4 range 0 .. 31; SIZE at 8 range 0 .. 15; TYP at 10 range 0 .. 7; SUBTYP at 11 range 0 .. 7; end record; for NSAFAI_TYPE'SIZE use 96; NSAFAI_TYPE_INIT : constant NSAFAI_TYPE := ( FAILURE_MODE => NSA_FAILURE_MODE_TYPE_INIT, FAILURE_FLAGS => NSA_FAILURE_FLAGS_TYPE_INIT, LOST_COUNT => 0, SIZE => 0, TYP => 0, SUBTYP => 0); end NSAFAIDEF;