| /* Alpha VMS external format of Debug Symbol Table. | |
| Copyright (C) 2010-2021 Free Software Foundation, Inc. | |
| Written by Tristan Gingold <gingold@adacore.com>, AdaCore. | |
| This file is part of BFD, the Binary File Descriptor library. | |
| This program is free software; you can redistribute it and/or modify | |
| it under the terms of the GNU General Public License as published by | |
| the Free Software Foundation; either version 3 of the License, or | |
| (at your option) any later version. | |
| This program is distributed in the hope that it will be useful, | |
| but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| GNU General Public License for more details. | |
| You should have received a copy of the GNU General Public License | |
| along with this program; if not, write to the Free Software | |
| Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
| MA 02110-1301, USA. */ | |
| #ifndef _VMS_DST_H | |
| #define _VMS_DST_H | |
| /* Also available in vms freeware v5.0 debug/alpha_dstrecrds.sdl. */ | |
| struct vms_dst_header | |
| { | |
| /* Length. */ | |
| unsigned char length[2]; | |
| /* Type. */ | |
| unsigned char type[2]; | |
| }; | |
| /* Beginning of module. */ | |
| #define DST__K_MODBEG 188 | |
| /* Some well known languages. */ | |
| #define DST__K_MACRO 0 | |
| #define DST__K_BLISS 2 | |
| #define DST__K_C 7 | |
| #define DST__K_ADA 9 | |
| #define DST__K_CXX 15 | |
| struct vms_dst_modbeg | |
| { | |
| unsigned char flags; | |
| unsigned char unused; | |
| unsigned char language[4]; | |
| unsigned char major[2]; | |
| unsigned char minor[2]; | |
| /* Module name ASCIC. */ | |
| /* Ident name ASCIC. */ | |
| }; | |
| /* Routine begin. */ | |
| #define DST__K_RTNBEG 190 | |
| struct vms_dst_rtnbeg | |
| { | |
| unsigned char flags; | |
| /* Address of the code. */ | |
| unsigned char address[4]; | |
| /* Procedure descriptor address. */ | |
| unsigned char pd_address[4]; | |
| /* Name: ASCIC */ | |
| }; | |
| /* Line number. */ | |
| #define DST__K_LINE_NUM 185 | |
| struct vms_dst_pcline | |
| { | |
| unsigned char pcline_command; | |
| unsigned char field[4]; | |
| }; | |
| #define DST__K_DELTA_PC_W 1 | |
| #define DST__K_INCR_LINUM 2 | |
| #define DST__K_INCR_LINUM_W 3 | |
| #define DST__K_SET_LINUM_INCR 4 | |
| #define DST__K_SET_LINUM_INCR_W 5 | |
| #define DST__K_RESET_LINUM_INCR 6 | |
| #define DST__K_BEG_STMT_MODE 7 | |
| #define DST__K_END_STMT_MODE 8 | |
| #define DST__K_SET_LINUM 9 | |
| #define DST__K_SET_PC 10 | |
| #define DST__K_SET_PC_W 11 | |
| #define DST__K_SET_PC_L 12 | |
| #define DST__K_SET_STMTNUM 13 | |
| #define DST__K_TERM 14 | |
| #define DST__K_TERM_W 15 | |
| #define DST__K_SET_ABS_PC 16 | |
| #define DST__K_DELTA_PC_L 17 | |
| #define DST__K_INCR_LINUM_L 18 | |
| #define DST__K_SET_LINUM_B 19 | |
| #define DST__K_SET_LINUM_L 20 | |
| #define DST__K_TERM_L 21 | |
| /* Routine end. */ | |
| #define DST__K_RTNEND 191 | |
| struct vms_dst_rtnend | |
| { | |
| unsigned char unused; | |
| unsigned char size[4]; | |
| }; | |
| /* Prologue. */ | |
| #define DST__K_PROLOG 162 | |
| struct vms_dst_prolog | |
| { | |
| unsigned char bkpt_addr[4]; | |
| }; | |
| /* Epilog. */ | |
| #define DST__K_EPILOG 127 | |
| struct vms_dst_epilog | |
| { | |
| unsigned char flags; | |
| unsigned char count[4]; | |
| }; | |
| /* Module end. */ | |
| #define DST__K_MODEND 189 | |
| /* Block begin. */ | |
| #define DST__K_BLKBEG 176 | |
| struct vms_dst_blkbeg | |
| { | |
| unsigned char unused; | |
| unsigned char address[4]; | |
| /* Name ASCIC. */ | |
| }; | |
| /* Block end. */ | |
| #define DST__K_BLKEND 177 | |
| struct vms_dst_blkend | |
| { | |
| unsigned char unused; | |
| unsigned char size[4]; | |
| }; | |
| /* Source correlation. */ | |
| #define DST__K_SOURCE 155 | |
| #define DST__K_SRC_DECLFILE 1 | |
| #define DST__K_SRC_SETFILE 2 | |
| #define DST__K_SRC_SETREC_L 3 | |
| #define DST__K_SRC_SETREC_W 4 | |
| #define DST__K_SRC_SETLNUM_L 5 | |
| #define DST__K_SRC_SETLNUM_W 6 | |
| #define DST__K_SRC_INCRLNUM_B 7 | |
| #define DST__K_SRC_DEFLINES_W 10 | |
| #define DST__K_SRC_DEFLINES_B 11 | |
| #define DST__K_SRC_FORMFEED 16 | |
| struct vms_dst_src_decl_src | |
| { | |
| unsigned char length; | |
| unsigned char flags; | |
| unsigned char fileid[2]; | |
| unsigned char rms_cdt[8]; | |
| unsigned char rms_ebk[4]; | |
| unsigned char rms_ffb[2]; | |
| unsigned char rms_rfo; | |
| /* Filename ASCIC. */ | |
| }; | |
| /* Record begin. */ | |
| #define DST__K_RECBEG 171 | |
| struct vms_dst_recbeg | |
| { | |
| unsigned char vflags; | |
| unsigned char value[4]; | |
| /* Filename ASCIC. */ | |
| }; | |
| /* Record end. */ | |
| #define DST__K_RECEND 172 | |
| /* Enumeration begin. */ | |
| #define DST__K_ENUMBEG 165 | |
| /* Enumeration element. */ | |
| #define DST__K_ENUMELT 164 | |
| /* Enumeration end. */ | |
| #define DST__K_ENUMEND 166 | |
| /* Separate type specification. */ | |
| #define DST__K_SEPTYP 163 | |
| /* Type specification. */ | |
| #define DST__K_TYPSPEC 175 | |
| #define DST__K_TS_ATOM 1 /* Atomic. */ | |
| #define DST__K_TS_DSC 2 /* VMS Standard descriptor. */ | |
| #define DST__K_TS_IND 3 /* Indirect. */ | |
| #define DST__K_TS_TPTR 4 /* Typed pointer. */ | |
| #define DST__K_TS_PTR 5 /* Pointer. */ | |
| #define DST__K_TS_PIC 6 /* Pictured. */ | |
| #define DST__K_TS_ARRAY 7 | |
| #define DST__K_TS_SET 8 | |
| #define DST__K_TS_SUBRANGE 9 /* Subrange. */ | |
| #define DST__K_TS_ADA_DSC 10 /* Ada descriptor. */ | |
| #define DST__K_TS_FILE 11 | |
| #define DST__K_TS_AREA 12 /* Area (PL/I). */ | |
| #define DST__K_TS_OFFSET 13 /* Offset (PL/I). */ | |
| #define DST__K_TS_NOV_LENG 14 /* Novel Length. */ | |
| #define DST__K_TS_IND_TSPEC 15 /* Internal to debugger. */ | |
| #define DST__K_TS_SELF_REL_LABEL 16 /* Self-relative label (PL/I). */ | |
| #define DST__K_TS_RFA 17 /* (Basic). */ | |
| #define DST__K_TS_TASK 18 /* (Ada). */ | |
| #define DST__K_TS_ADA_ARRAY 19 | |
| #define DST__K_TS_XMOD_IND 20 /* Cross-module indirect type spec. */ | |
| #define DST__K_TS_CONSTRAINED 21 /* (Ada). */ | |
| #define DST__K_TS_MAYBE_CONSTR 22 /* Might-be-constrained (Ada). */ | |
| #define DST__K_TS_DYN_LOV_LENG 23 | |
| #define DST__K_TS_TPTR_D 24 /* Typed pointer to descriptor. */ | |
| #define DST__K_TS_SCAN_TREE 25 | |
| #define DST__K_TS_SCAN_TREEPTR 26 | |
| #define DST__K_TS_INCOMPLETE 27 | |
| #define DST__K_TS_BLISS_BLOCK 28 | |
| #define DST__K_TS_TPTR_64 29 | |
| #define DST__K_TS_PTR_64 30 | |
| #define DST__K_TS_REF 31 /* C++ referenced type. */ | |
| #define DST__K_TS_REF_64 32 | |
| /* Value Specification. */ | |
| #define DST__K_VFLAGS_NOVAL 128 /* No value. */ | |
| #define DST__K_VFLAGS_NOTACTIVE 248 /* Not active at current PC. */ | |
| #define DST__K_VFLAGS_UNALLOC 249 /* Not allocated. */ | |
| #define DST__K_VFLAGS_DSC 250 /* Descriptor format. */ | |
| #define DST__K_VFLAGS_TVS 251 /* Trailing value spec. */ | |
| #define DST__K_VS_FOLLOWS 253 /* Value specification follow. */ | |
| #define DST__K_VFLAGS_BITOFFS 255 /* Value is a bit offset. */ | |
| /* Vflags fields. */ | |
| #define DST__K_VALKIND_MASK 0x03 | |
| #define DST__K_INDIR 0x04 | |
| #define DST__K_DISP 0x08 | |
| #define DST__K_REGNUM_MASK 0xf0 | |
| #define DST__K_REGNUM_SHIFT 4 | |
| #define DST__K_VALKIND_LITERAL 0 | |
| #define DST__K_VALKIND_ADDR 1 | |
| #define DST__K_VALKIND_DESC 2 | |
| #define DST__K_VALKIND_REG 3 | |
| /* Label. */ | |
| #define DST__K_LABEL 187 | |
| struct vms_dst_label | |
| { | |
| unsigned char unused; | |
| unsigned char value[4]; | |
| unsigned char name[1]; | |
| }; | |
| /* Discontiguous range. */ | |
| #define DST__K_DIS_RANGE 118 | |
| #endif /* _VMS_DST_H */ |