%DEFINE Elf64_Addr BASIC$QUADWORD %DEFINE Elf64_Off BASIC$QUADWORD %DEFINE Elf64_Half WORD %DEFINE Elf64_Word LONG %DEFINE Elf64_Sword LONG %DEFINE Elf64_Xword BASIC$QUADWORD %DEFINE Elf64_Sxword BASIC$QUADWORD %DEFINE Elf64_Section LONG %DEFINE Elf64_Symndx LONG %DEFINE sysver_majmin LONG ! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF DECLARE LONG CONSTANT s_subsys_majmin = 4 record subsys_majmin WORD ver$w_minor_id WORD ver$w_major_id end record subsys_majmin DECLARE LONG CONSTANT s_sysver_majmin = 4 DECLARE LONG CONSTANT lnkg_desc1$m_type = x'00000001' DECLARE LONG CONSTANT lnkg_desc1$m_notused0 = x'00000002' DECLARE LONG CONSTANT lnkg_desc1$M_GP = x'00000004' DECLARE LONG CONSTANT lnkg_desc1$m_notused1 = x'00000008' DECLARE LONG CONSTANT lnkg_desc1$M_R2 = x'00000030' DECLARE LONG CONSTANT lnkg_desc1$M_R3 = x'000000C0' DECLARE LONG CONSTANT lnkg_desc1$M_R4 = x'00000300' DECLARE LONG CONSTANT lnkg_desc1$M_R5 = x'00000C00' DECLARE LONG CONSTANT lnkg_desc1$M_R6 = x'00003000' DECLARE LONG CONSTANT lnkg_desc1$M_R7 = x'0000C000' DECLARE LONG CONSTANT lnkg_desc1$M_R8 = x'00030000' DECLARE LONG CONSTANT lnkg_desc1$M_R9 = x'000C0000' DECLARE LONG CONSTANT lnkg_desc1$M_R10 = x'00300000' DECLARE LONG CONSTANT lnkg_desc1$M_R11 = x'00C00000' DECLARE LONG CONSTANT lnkg_desc1$M_R12 = x'03000000' DECLARE LONG CONSTANT lnkg_desc1$M_R13 = x'0C000000' DECLARE LONG CONSTANT lnkg_desc1$M_R14 = x'30000000' DECLARE LONG CONSTANT lnkg_desc1$M_R15 = x'C0000000' DECLARE LONG CONSTANT lnkg_desc1$M_R16 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R17 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R18 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R19 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R20 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R21 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R22 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R23 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R24 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_AI = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$m_notused25 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R26 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R27 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R28 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R29 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R30 = x'00000000' DECLARE LONG CONSTANT lnkg_desc1$M_R31 = x'00000000' DECLARE LONG CONSTANT LNKG_DESC1$K_SIZE = 8 DECLARE LONG CONSTANT LNKG_DESC1$C_SIZE = 8 DECLARE LONG CONSTANT lnkg_desc1$s_vms_lnkg_desc1 = 8 record vms_lnkg_desc1 BYTE type_bits ( 8 ) ! COMMENT ADDED BY SDL - type_bits contains bits type through R31 end record vms_lnkg_desc1