| /* Alpha VMS external format of Debug Symbol Table. |
| |
| Copyright (C) 2010-2016 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 */ |