--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:21 by OpenVMS SDL EV3-3 -- Source: 03-MAY-1993 13:36:54 $1$DGA8085:[LIB_ADA.LIS]EIHIDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package EIHIDEF is -- module $EIHIDEF --+ -- EXTENDED IMAGE HEADER IDENTIFICATION SECTION OFFSETS --- EIHI_K_MAJORID : constant := 1; EIHI_K_MINORID : constant := 2; EIHI_K_LENGTH : constant := 104; -- LENGTH OF IMAGE HEADER IDENT SECTION EIHI_C_LENGTH : constant := 104; -- LENGTH OF IMAGE HEADER IDENT SECTION EIHI_S_EIHIDEF : constant := 104; -- Old size name - synonym type EIHI_VERSION_TYPE is -- Version of this EIHP record MAJORID : UNSIGNED_LONGWORD; -- Major ID MINORID : UNSIGNED_LONGWORD; -- Minor ID end record; for EIHI_VERSION_TYPE use record MAJORID at 0 range 0 .. 31; MINORID at 4 range 0 .. 31; end record; for EIHI_VERSION_TYPE'SIZE use 64; EIHI_VERSION_TYPE_INIT : constant EIHI_VERSION_TYPE := (MAJORID => 0, MINORID => 0); type EIHI_TYPE is record VERSION : EIHI_VERSION_TYPE; -- Version of this EIHP LINKTIME : UNSIGNED_QUADWORD; -- DATE AND TIME THIS IMAGE WAS LINKED -- STANDARD SYSTEM QUADWORD FORMAT IMGNAM : STRING(1 .. 40); -- IMAGE NAME STRING IMGID : STRING(1 .. 16); -- IMAGE IDENT STRING LINKID : STRING(1 .. 16); -- LINKER IDENT STRING IMGBID : STRING(1 .. 16); -- IMAGE BUILD IDENT STRING end record; for EIHI_TYPE use record VERSION at 0 range 0 .. 63; LINKTIME at 8 range 0 .. 63; IMGNAM at 16 range 0 .. 319; IMGID at 56 range 0 .. 127; LINKID at 72 range 0 .. 127; IMGBID at 88 range 0 .. 127; end record; for EIHI_TYPE'SIZE use 832; EIHI_TYPE_INIT : constant EIHI_TYPE := ( VERSION => EIHI_VERSION_TYPE_INIT, LINKTIME => (0, 0), IMGNAM => (others => ASCII.NUL), IMGID => (others => ASCII.NUL), LINKID => (others => ASCII.NUL), IMGBID => (others => ASCII.NUL)); end EIHIDEF;