!*** MODULE $ESDFDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! EVAX Symbol definition ! PARAMETER ESDF$K_NAME = '00000021'X PARAMETER ESDF$C_NAME = '00000021'X STRUCTURE /ESDFDEF/ UNION MAP INTEGER*2 ESDF$W_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 ESDF$T_START INTEGER*2 %FILL END MAP END UNION INTEGER*2 ESDF$W_SIZE ! size of this ESDF BYTE ESDF$B_DATYP ! Maps over GSY$B_DATYP BYTE ESDF$B_TEMP ! pad for alignment INTEGER*2 ESDF$W_FLAGS ! Maps over GSY$W_FLAGS UNION MAP INTEGER*4 ESDF$Q_VALUE(2) END MAP MAP INTEGER*4 ESDF$L_VALUE END MAP END UNION UNION MAP INTEGER*4 ESDF$Q_CODE_ADDRESS(2) END MAP MAP INTEGER*4 ESDF$L_CODE_ADDRESS END MAP END UNION INTEGER*4 ESDF$L_CA_PSINDX ! Psect index of the code address (which is in ! LP_1 if the norm bit is set). INTEGER*4 ESDF$L_PSINDX ! Owning psect number BYTE ESDF$B_NAMLNG ! Length of name CHARACTER*31 ESDF$T_NAME ! Symbol name END STRUCTURE ! ESDFDEF !DEC$ END OPTIONS