!*** MODULE $LSDFDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Module-local Symbol definition ! PARAMETER LSDF$K_NAME = '0000000D'X PARAMETER LSDF$C_NAME = '0000000D'X STRUCTURE /LSDFDEF/ UNION MAP BYTE LSDF$B_GSDTYP ! Maps over LSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 LSDF$T_START BYTE %FILL END MAP END UNION BYTE LSDF$B_DATYP ! Maps over LSY$B_DATYP INTEGER*2 LSDF$W_FLAGS ! Maps over LSY$W_FLAGS INTEGER*2 LSDF$W_ENVINDX ! Environment index symbol defined in INTEGER*2 LSDF$W_PSINDX ! Owning psect number INTEGER*4 LSDF$L_VALUE ! Value of symbol BYTE LSDF$B_NAMLNG ! Length of name CHARACTER*31 LSDF$T_NAME ! Symbol name END STRUCTURE ! LSDFDEF !DEC$ END OPTIONS