--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:26 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1993 14:33:04 $1$DGA8085:[LIB_ADA.LIS]IHIDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package IHIDEF is
 
--  module $IHIDEF
 
--+
-- IMAGE HEADER IDENTIFICATION SECTION OFFSETS
---
 
    IHI_K_LENGTH		: constant := 80;			-- LENGTH OF IMAGE HEADER IDENT SECTION 
    IHI_C_LENGTH		: constant := 80;			-- LENGTH OF IMAGE HEADER IDENT SECTION 
    IHI_S_IHIDEF		: constant := 80;
 
    type IHI_TYPE is
	record
	    IMGNAM	: STRING(1 .. 40);				-- IMAGE NAME STRING 
	    IMGID	: STRING(1 .. 16);				-- IMAGE IDENT STRING 
	    LINKTIME	: UNSIGNED_QUADWORD;				-- DATE AND TIME THIS IMAGE WAS LINKED 
									-- STANDARD SYSTEM QUADWORD FORMAT
	    LINKID	: STRING(1 .. 16);				-- LINKER IDENT STRING 
	end record;
 
	    for IHI_TYPE use 
		record
		    IMGNAM	at 0 range 0 .. 319;
		    IMGID	at 40 range 0 .. 127;
		    LINKTIME	at 56 range 0 .. 63;
		    LINKID	at 64 range 0 .. 127;
		end record;
	    for IHI_TYPE'SIZE use 640;
 
    IHI_TYPE_INIT : constant IHI_TYPE := 
	    (IMGNAM	=> (others => ASCII.NUL),
	    IMGID	=> (others => ASCII.NUL),
	    LINKTIME	=> (0, 0),
	    LINKID	=> (others => ASCII.NUL));
 
end IHIDEF;