!*** MODULE $EGSDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! EVAX Global symbol definition record (EGSD) ! PARAMETER EGSD$K_ENTRIES = '00000002'X ! Offset to first entry in record PARAMETER EGSD$C_ENTRIES = '00000002'X ! Offset to first entry in record PARAMETER EGSD$C_PSC = '00000000'X ! Psect definition PARAMETER EGSD$C_SYM = '00000001'X ! Symbol specification PARAMETER EGSD$C_IDC = '00000002'X ! Random entity check PARAMETER EGSD$C_SPSC = '00000005'X ! Shareable image psect definition PARAMETER EGSD$C_SYMV = '00000006'X ! Vectored (dual-valued) versions of SYM, PARAMETER EGSD$C_SYMM = '00000007'X ! Masked versions of SYM, PARAMETER EGSD$C_SYMG = '00000008'X ! EGST - gst version of SYM PARAMETER EGSD$C_PSC64 = '00000009'X ! Psect with 64-bit length PARAMETER EGSD$C_SPSC64 = '0000000A'X ! Shareable image psect definition w/64b len/base PARAMETER EGSD$C_MAXRECTYP = '0000000A'X ! Maximum entry type defined STRUCTURE /EGSDEF/ INTEGER*2 EGSD$W_RECTYP ! Record type (OBJ$C_GSD) INTEGER*2 EGSD$W_RECSIZ ! Size of theis EVAX EGSD INTEGER*4 EGSD$L_ALIGNLW ! Insure that subrecords are QW aligned INTEGER*2 EGSD$W_GSDTYP ! Type of entry (first byte of entry) INTEGER*2 EGSD$W_GSDSIZ ! Size of this entry END STRUCTURE ! EGSDEF !DEC$ END OPTIONS