/* Alpha VMS external format of Debug Symbol Table.

  Copyright (C) 2010-2024 Free Software Foundation, Inc.
  Written by Tristan Gingold <[email protected]>, 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 */

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.