--********************************************************************************************************************
-- Created: 30-Mar-2010 17:33:16 by OpenVMS SDL EV3-3      
-- Source:  03-MAY-1993 13:36:54 $1$DGA7274:[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;