!*** MODULE $SDFMDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Symbol definition for version mask symbols ! PARAMETER SDFM$K_NAME = '0000000E'X PARAMETER SDFM$C_NAME = '0000000E'X STRUCTURE /SDFMDEF/ UNION MAP BYTE SDFM$B_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 SDFM$T_START BYTE %FILL END MAP END UNION BYTE SDFM$B_DATYP ! Maps over GSY$B_DATYP INTEGER*2 SDFM$W_FLAGS ! Maps over GSY$W_FLAGS BYTE SDFM$B_PSINDX ! Owning psect number INTEGER*4 SDFM$L_VALUE ! Value of symbol INTEGER*4 SDFM$L_VERSION_MASK ! Mask for symbol BYTE SDFM$B_NAMLNG ! Length of name CHARACTER*31 SDFM$T_NAME ! Symbol name END STRUCTURE ! SDFMDEF !DEC$ END OPTIONS