545 lines
18 KiB
C
545 lines
18 KiB
C
/* VMS object file format
|
||
Copyright (C) 1989, 1990, 1991, 1994, 1995 Free Software Foundation, Inc.
|
||
|
||
This file is part of GAS, the GNU Assembler.
|
||
|
||
GAS 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 2,
|
||
or (at your option) any later version.
|
||
|
||
GAS 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 GAS; see the file COPYING. If not, write
|
||
to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||
|
||
/* Tag to validate a.out object file format processing */
|
||
#define OBJ_VMS 1
|
||
|
||
#include "targ-cpu.h"
|
||
|
||
/* This macro controls subsection alignment within a section.
|
||
*
|
||
* Under VAX/VMS, the linker (and PSECT specifications)
|
||
* take care of correctly aligning the segments.
|
||
* Doing the alignment here (on initialized data) can
|
||
* mess up the calculation of global data PSECT sizes.
|
||
*/
|
||
#define SUB_SEGMENT_ALIGN(SEG) (((SEG) == data_section) ? 0 : 2)
|
||
|
||
/* This flag is used to remember whether we are in the const or the
|
||
data section. By and large they are identical, but we set a no-write
|
||
bit for psects in the const section. */
|
||
|
||
extern unsigned char const_flag;
|
||
|
||
/* This is overloaded onto const_flag, for convenience. It's used to flag
|
||
dummy labels like "gcc2_compiled." which occur before the first .text
|
||
or .data section directive. */
|
||
|
||
#define IN_DEFAULT_SECTION 0x80
|
||
|
||
/* These are defined in obj-vms.c. */
|
||
extern const short seg_N_TYPE[];
|
||
extern const segT N_TYPE_seg[];
|
||
|
||
#undef NO_RELOC
|
||
enum reloc_type
|
||
{
|
||
NO_RELOC, RELOC_32
|
||
};
|
||
|
||
#define N_BADMAG(x) (0)
|
||
#define N_TXTOFF(x) ( sizeof(struct exec) )
|
||
#define N_DATOFF(x) ( N_TXTOFF(x) + (x).a_text )
|
||
#define N_TROFF(x) ( N_DATOFF(x) + (x).a_data )
|
||
#define N_DROFF(x) ( N_TROFF(x) + (x).a_trsize )
|
||
#define N_SYMOFF(x) ( N_DROFF(x) + (x).a_drsize )
|
||
#define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms )
|
||
|
||
/* We use this copy of the exec header for VMS. We do not actually use it, but
|
||
what we actually do is let gas fill in the relevant slots, and when we get
|
||
around to writing an obj file, we just pick out what we need. */
|
||
|
||
struct exec
|
||
{
|
||
unsigned long a_text; /* length of text, in bytes */
|
||
unsigned long a_data; /* length of data, in bytes */
|
||
unsigned long a_bss; /* length of uninitialized data area for file, in bytes */
|
||
unsigned long a_trsize; /* length of relocation info for text, in bytes */
|
||
unsigned long a_drsize; /* length of relocation info for data, in bytes */
|
||
unsigned long a_entry; /* start address */
|
||
unsigned long a_syms; /* length of symbol table data in file, in bytes */
|
||
};
|
||
|
||
typedef struct
|
||
{
|
||
struct exec header; /* a.out header */
|
||
long string_table_size; /* names + '\0' + sizeof(int) */
|
||
}
|
||
object_headers;
|
||
|
||
/* A single entry in the symbol table
|
||
* (this started as a clone of bout.h's nlist, but much was unneeded).
|
||
*/
|
||
struct nlist
|
||
{
|
||
char *n_name;
|
||
unsigned char n_type; /* See below */
|
||
unsigned char n_other; /* used for const_flag and "default section" */
|
||
unsigned : 16; /* padding for alignment */
|
||
int n_desc; /* source line number for N_SLINE stabs */
|
||
};
|
||
|
||
/* Legal values of n_type (see aout/stab.def for the majority of the codes).
|
||
*/
|
||
#define N_UNDF 0 /* Undefined symbol */
|
||
#define N_ABS 2 /* Absolute symbol */
|
||
#define N_TEXT 4 /* Text symbol */
|
||
#define N_DATA 6 /* Data symbol */
|
||
#define N_BSS 8 /* BSS symbol */
|
||
#define N_FN 31 /* Filename symbol */
|
||
|
||
#define N_EXT 1 /* External symbol (OR'd in with one of above) */
|
||
#define N_TYPE 036 /* Mask for all the type bits */
|
||
|
||
#define N_STAB 0340 /* Mask for all bits used for SDB entries */
|
||
|
||
#include "aout/stab_gnu.h"
|
||
|
||
/* SYMBOL TABLE */
|
||
/* Symbol table entry data type */
|
||
|
||
typedef struct nlist obj_symbol_type; /* Symbol table entry */
|
||
|
||
/* Symbol table macros and constants */
|
||
|
||
#define OBJ_SYMFIELD_TYPE struct VMS_Symbol *
|
||
|
||
/*
|
||
* Macros to extract information from a symbol table entry.
|
||
* This syntaxic indirection allows independence regarding a.out or coff.
|
||
* The argument (s) of all these macros is a pointer to a symbol table entry.
|
||
*/
|
||
|
||
/* True if the symbol is external */
|
||
#define S_IS_EXTERNAL(s) ((s)->sy_symbol.n_type & N_EXT)
|
||
|
||
/* True if symbol has been defined, ie is in N_{TEXT,DATA,BSS,ABS} or N_EXT */
|
||
#define S_IS_DEFINED(s) (S_GET_TYPE(s) != N_UNDF)
|
||
|
||
#define S_IS_REGISTER(s) ((s)->sy_symbol.n_type == N_REGISTER)
|
||
|
||
/* True if a debug special symbol entry */
|
||
#define S_IS_DEBUG(s) ((s)->sy_symbol.n_type & N_STAB)
|
||
/* True if a symbol is local symbol name */
|
||
/* A symbol name whose name begin with ^A is a gas internal pseudo symbol
|
||
nameless symbols come from .stab directives. */
|
||
#define S_IS_LOCAL(s) (S_GET_NAME(s) && \
|
||
!S_IS_DEBUG(s) && \
|
||
(S_GET_NAME(s)[0] == '\001' || \
|
||
(S_LOCAL_NAME(s) && !flag_keep_locals)))
|
||
/* True if a symbol is not defined in this file */
|
||
#define S_IS_EXTERN(s) ((s)->sy_symbol.n_type & N_EXT)
|
||
/* True if the symbol has been generated because of a .stabd directive */
|
||
#define S_IS_STABD(s) (S_GET_NAME(s) == (char *)0)
|
||
|
||
/* Accessors */
|
||
/* The name of the symbol */
|
||
#define S_GET_NAME(s) ((s)->sy_symbol.n_name)
|
||
/* The pointer to the string table */
|
||
#define S_GET_OFFSET(s) ((s)->sy_name_offset)
|
||
/* The raw type of the symbol */
|
||
#define S_GET_RAW_TYPE(s) ((s)->sy_symbol.n_type)
|
||
/* The type of the symbol */
|
||
#define S_GET_TYPE(s) ((s)->sy_symbol.n_type & N_TYPE)
|
||
/* The numeric value of the segment */
|
||
#define S_GET_SEGMENT(s) (N_TYPE_seg[S_GET_TYPE(s)])
|
||
/* The n_other expression value */
|
||
#define S_GET_OTHER(s) ((s)->sy_symbol.n_other)
|
||
/* The n_desc expression value */
|
||
#define S_GET_DESC(s) ((s)->sy_symbol.n_desc)
|
||
|
||
/* Modifiers */
|
||
/* Assume that a symbol cannot be simultaneously in more than on segment */
|
||
/* set segment */
|
||
#define S_SET_SEGMENT(s,seg) ((s)->sy_symbol.n_type &= ~N_TYPE,(s)->sy_symbol.n_type|=SEGMENT_TO_SYMBOL_TYPE(seg))
|
||
/* The symbol is external */
|
||
#define S_SET_EXTERNAL(s) ((s)->sy_symbol.n_type |= N_EXT)
|
||
/* The symbol is not external */
|
||
#define S_CLEAR_EXTERNAL(s) ((s)->sy_symbol.n_type &= ~N_EXT)
|
||
/* Set the name of the symbol */
|
||
#define S_SET_NAME(s,v) ((s)->sy_symbol.n_name = (v))
|
||
/* Set the offset in the string table */
|
||
#define S_SET_OFFSET(s,v) ((s)->sy_name_offset = (v))
|
||
/* Set the n_other expression value */
|
||
#define S_SET_OTHER(s,v) ((s)->sy_symbol.n_other = (v))
|
||
/* Set the n_desc expression value */
|
||
#define S_SET_DESC(s,v) ((s)->sy_symbol.n_desc = (v))
|
||
/* Set the n_type expression value */
|
||
#define S_SET_TYPE(s,v) ((s)->sy_symbol.n_type = (v))
|
||
|
||
|
||
/* File header macro and type definition */
|
||
|
||
#define H_GET_TEXT_SIZE(h) ((h)->header.a_text)
|
||
#define H_GET_DATA_SIZE(h) ((h)->header.a_data)
|
||
#define H_GET_BSS_SIZE(h) ((h)->header.a_bss)
|
||
|
||
#define H_SET_TEXT_SIZE(h,v) ((h)->header.a_text = md_section_align(SEG_TEXT, (v)))
|
||
#define H_SET_DATA_SIZE(h,v) ((h)->header.a_data = md_section_align(SEG_DATA, (v)))
|
||
#define H_SET_BSS_SIZE(h,v) ((h)->header.a_bss = md_section_align(SEG_BSS, (v)))
|
||
|
||
#define H_SET_STRING_SIZE(h,v) ((h)->string_table_size = (v))
|
||
#define H_SET_SYMBOL_TABLE_SIZE(h,v) ((h)->header.a_syms = (v) * \
|
||
sizeof(struct nlist))
|
||
|
||
/* line numbering stuff. */
|
||
#define OBJ_EMIT_LINENO(a, b, c) {;}
|
||
|
||
#define obj_symbol_new_hook(s) {;}
|
||
|
||
/* Force structure tags into scope so that their use in prototypes
|
||
will never be their first occurance. */
|
||
struct fix;
|
||
struct symbol;
|
||
struct frag;
|
||
|
||
/* obj-vms routines visible to the rest of gas. */
|
||
|
||
extern void tc_aout_fix_to_chars PARAMS ((char *,struct fix *,relax_addressT));
|
||
|
||
extern int vms_resolve_symbol_redef PARAMS ((struct symbol *));
|
||
#define RESOLVE_SYMBOL_REDEFINITION(X) vms_resolve_symbol_redef(X)
|
||
|
||
/* Compiler-generated label "__vax_g_doubles" is used to augment .stabs. */
|
||
extern void vms_check_for_special_label PARAMS ((struct symbol *));
|
||
#define tc_frob_label(X) vms_check_for_special_label(X)
|
||
|
||
extern void vms_check_for_main PARAMS ((void));
|
||
|
||
extern void vms_write_object_file PARAMS ((unsigned,unsigned,unsigned,
|
||
struct frag *,struct frag *));
|
||
|
||
/* VMS executables are nothing like a.out, but the VMS port of gcc uses
|
||
a.out format stabs which obj-vms.c then translates. */
|
||
|
||
#define AOUT_STABS
|
||
|
||
|
||
#ifdef WANT_VMS_OBJ_DEFS
|
||
|
||
/* The rest of this file contains definitions for constants used within
|
||
the actual VMS object file. We do not use a $ in the symbols (as per
|
||
usual VMS convention) since System V gags on it. */
|
||
|
||
#define OBJ_S_C_HDR 0
|
||
#define OBJ_S_C_HDR_MHD 0
|
||
#define OBJ_S_C_HDR_LNM 1
|
||
#define OBJ_S_C_HDR_SRC 2
|
||
#define OBJ_S_C_HDR_TTL 3
|
||
#define OBJ_S_C_HDR_CPR 4
|
||
#define OBJ_S_C_HDR_MTC 5
|
||
#define OBJ_S_C_HDR_GTX 6
|
||
#define OBJ_S_C_GSD 1
|
||
#define OBJ_S_C_GSD_PSC 0
|
||
#define OBJ_S_C_GSD_SYM 1
|
||
#define OBJ_S_C_GSD_EPM 2
|
||
#define OBJ_S_C_GSD_PRO 3
|
||
#define OBJ_S_C_GSD_SYMW 4
|
||
#define OBJ_S_C_GSD_EPMW 5
|
||
#define OBJ_S_C_GSD_PROW 6
|
||
#define OBJ_S_C_GSD_IDC 7
|
||
#define OBJ_S_C_GSD_ENV 8
|
||
#define OBJ_S_C_GSD_LSY 9
|
||
#define OBJ_S_C_GSD_LEPM 10
|
||
#define OBJ_S_C_GSD_LPRO 11
|
||
#define OBJ_S_C_GSD_SPSC 12
|
||
#define OBJ_S_C_TIR 2
|
||
#define OBJ_S_C_EOM 3
|
||
#define OBJ_S_C_DBG 4
|
||
#define OBJ_S_C_TBT 5
|
||
#define OBJ_S_C_LNK 6
|
||
#define OBJ_S_C_EOMW 7
|
||
#define OBJ_S_C_MAXRECTYP 7
|
||
#define OBJ_S_K_SUBTYP 1
|
||
#define OBJ_S_C_SUBTYP 1
|
||
#define OBJ_S_C_MAXRECSIZ 2048
|
||
#define OBJ_S_C_STRLVL 0
|
||
#define OBJ_S_C_SYMSIZ 31
|
||
#define OBJ_S_C_STOREPLIM -1
|
||
#define OBJ_S_C_PSCALILIM 9
|
||
|
||
#define MHD_S_C_MHD 0
|
||
#define MHD_S_C_LNM 1
|
||
#define MHD_S_C_SRC 2
|
||
#define MHD_S_C_TTL 3
|
||
#define MHD_S_C_CPR 4
|
||
#define MHD_S_C_MTC 5
|
||
#define MHD_S_C_GTX 6
|
||
#define MHD_S_C_MAXHDRTYP 6
|
||
|
||
#define GSD_S_K_ENTRIES 1
|
||
#define GSD_S_C_ENTRIES 1
|
||
#define GSD_S_C_PSC 0
|
||
#define GSD_S_C_SYM 1
|
||
#define GSD_S_C_EPM 2
|
||
#define GSD_S_C_PRO 3
|
||
#define GSD_S_C_SYMW 4
|
||
#define GSD_S_C_EPMW 5
|
||
#define GSD_S_C_PROW 6
|
||
#define GSD_S_C_IDC 7
|
||
#define GSD_S_C_ENV 8
|
||
#define GSD_S_C_LSY 9
|
||
#define GSD_S_C_LEPM 10
|
||
#define GSD_S_C_LPRO 11
|
||
#define GSD_S_C_SPSC 12
|
||
#define GSD_S_C_SYMV 13
|
||
#define GSD_S_C_EPMV 14
|
||
#define GSD_S_C_PROV 15
|
||
#define GSD_S_C_MAXRECTYP 15
|
||
|
||
#define GSY_S_M_WEAK 1
|
||
#define GSY_S_M_DEF 2
|
||
#define GSY_S_M_UNI 4
|
||
#define GSY_S_M_REL 8
|
||
|
||
#define LSY_S_M_DEF 2
|
||
#define LSY_S_M_REL 8
|
||
|
||
#define ENV_S_M_DEF 1
|
||
#define ENV_S_M_NESTED 2
|
||
|
||
#define GPS_S_M_PIC 1
|
||
#define GPS_S_M_LIB 2
|
||
#define GPS_S_M_OVR 4
|
||
#define GPS_S_M_REL 8
|
||
#define GPS_S_M_GBL 16
|
||
#define GPS_S_M_SHR 32
|
||
#define GPS_S_M_EXE 64
|
||
#define GPS_S_M_RD 128
|
||
#define GPS_S_M_WRT 256
|
||
#define GPS_S_M_VEC 512
|
||
#define GPS_S_K_NAME 9
|
||
#define GPS_S_C_NAME 9
|
||
|
||
#define TIR_S_C_STA_GBL 0
|
||
#define TIR_S_C_STA_SB 1
|
||
#define TIR_S_C_STA_SW 2
|
||
#define TIR_S_C_STA_LW 3
|
||
#define TIR_S_C_STA_PB 4
|
||
#define TIR_S_C_STA_PW 5
|
||
#define TIR_S_C_STA_PL 6
|
||
#define TIR_S_C_STA_UB 7
|
||
#define TIR_S_C_STA_UW 8
|
||
#define TIR_S_C_STA_BFI 9
|
||
#define TIR_S_C_STA_WFI 10
|
||
#define TIR_S_C_STA_LFI 11
|
||
#define TIR_S_C_STA_EPM 12
|
||
#define TIR_S_C_STA_CKARG 13
|
||
#define TIR_S_C_STA_WPB 14
|
||
#define TIR_S_C_STA_WPW 15
|
||
#define TIR_S_C_STA_WPL 16
|
||
#define TIR_S_C_STA_LSY 17
|
||
#define TIR_S_C_STA_LIT 18
|
||
#define TIR_S_C_STA_LEPM 19
|
||
#define TIR_S_C_MAXSTACOD 19
|
||
#define TIR_S_C_MINSTOCOD 20
|
||
#define TIR_S_C_STO_SB 20
|
||
#define TIR_S_C_STO_SW 21
|
||
#define TIR_S_C_STO_L 22
|
||
#define TIR_S_C_STO_BD 23
|
||
#define TIR_S_C_STO_WD 24
|
||
#define TIR_S_C_STO_LD 25
|
||
#define TIR_S_C_STO_LI 26
|
||
#define TIR_S_C_STO_PIDR 27
|
||
#define TIR_S_C_STO_PICR 28
|
||
#define TIR_S_C_STO_RSB 29
|
||
#define TIR_S_C_STO_RSW 30
|
||
#define TIR_S_C_STO_RL 31
|
||
#define TIR_S_C_STO_VPS 32
|
||
#define TIR_S_C_STO_USB 33
|
||
#define TIR_S_C_STO_USW 34
|
||
#define TIR_S_C_STO_RUB 35
|
||
#define TIR_S_C_STO_RUW 36
|
||
#define TIR_S_C_STO_B 37
|
||
#define TIR_S_C_STO_W 38
|
||
#define TIR_S_C_STO_RB 39
|
||
#define TIR_S_C_STO_RW 40
|
||
#define TIR_S_C_STO_RIVB 41
|
||
#define TIR_S_C_STO_PIRR 42
|
||
#define TIR_S_C_MAXSTOCOD 42
|
||
#define TIR_S_C_MINOPRCOD 50
|
||
#define TIR_S_C_OPR_NOP 50
|
||
#define TIR_S_C_OPR_ADD 51
|
||
#define TIR_S_C_OPR_SUB 52
|
||
#define TIR_S_C_OPR_MUL 53
|
||
#define TIR_S_C_OPR_DIV 54
|
||
#define TIR_S_C_OPR_AND 55
|
||
#define TIR_S_C_OPR_IOR 56
|
||
#define TIR_S_C_OPR_EOR 57
|
||
#define TIR_S_C_OPR_NEG 58
|
||
#define TIR_S_C_OPR_COM 59
|
||
#define TIR_S_C_OPR_INSV 60
|
||
#define TIR_S_C_OPR_ASH 61
|
||
#define TIR_S_C_OPR_USH 62
|
||
#define TIR_S_C_OPR_ROT 63
|
||
#define TIR_S_C_OPR_SEL 64
|
||
#define TIR_S_C_OPR_REDEF 65
|
||
#define TIR_S_C_OPR_DFLIT 66
|
||
#define TIR_S_C_MAXOPRCOD 66
|
||
#define TIR_S_C_MINCTLCOD 80
|
||
#define TIR_S_C_CTL_SETRB 80
|
||
#define TIR_S_C_CTL_AUGRB 81
|
||
#define TIR_S_C_CTL_DFLOC 82
|
||
#define TIR_S_C_CTL_STLOC 83
|
||
#define TIR_S_C_CTL_STKDL 84
|
||
#define TIR_S_C_MAXCTLCOD 84
|
||
|
||
/*
|
||
* Debugger symbol definitions: These are done by hand, as no
|
||
* machine-readable version seems
|
||
* to be available.
|
||
*/
|
||
#define DST_S_C_C 7 /* Language == "C" */
|
||
#define DST_S_C_CXX 15 /* Language == "C++" */
|
||
#define DST_S_C_VERSION 153
|
||
#define DST_S_C_SOURCE 155 /* Source file */
|
||
#define DST_S_C_PROLOG 162
|
||
#define DST_S_C_BLKBEG 176 /* Beginning of block */
|
||
#define DST_S_C_BLKEND 177 /* End of block */
|
||
#define DST_S_C_ENTRY 181
|
||
#define DST_S_C_PSECT 184
|
||
#define DST_S_C_LINE_NUM 185 /* Line Number */
|
||
#define DST_S_C_LBLORLIT 186
|
||
#define DST_S_C_LABEL 187
|
||
#define DST_S_C_MODBEG 188 /* Beginning of module */
|
||
#define DST_S_C_MODEND 189 /* End of module */
|
||
#define DST_S_C_RTNBEG 190 /* Beginning of routine */
|
||
#define DST_S_C_RTNEND 191 /* End of routine */
|
||
#define DST_S_C_DELTA_PC_W 1 /* Incr PC */
|
||
#define DST_S_C_INCR_LINUM 2 /* Incr Line # */
|
||
#define DST_S_C_INCR_LINUM_W 3 /* Incr Line # */
|
||
#define DST_S_C_SET_LINUM_INCR 4
|
||
#define DST_S_C_SET_LINUM_INCR_W 5
|
||
#define DST_S_C_RESET_LINUM_INCR 6
|
||
#define DST_S_C_BEG_STMT_MODE 7
|
||
#define DST_S_C_END_STMT_MODE 8
|
||
#define DST_S_C_SET_LINE_NUM 9 /* Set Line # */
|
||
#define DST_S_C_SET_PC 10
|
||
#define DST_S_C_SET_PC_W 11
|
||
#define DST_S_C_SET_PC_L 12
|
||
#define DST_S_C_SET_STMTNUM 13
|
||
#define DST_S_C_TERM 14 /* End of lines */
|
||
#define DST_S_C_TERM_W 15 /* End of lines */
|
||
#define DST_S_C_SET_ABS_PC 16 /* Set PC */
|
||
#define DST_S_C_DELTA_PC_L 17 /* Incr PC */
|
||
#define DST_S_C_INCR_LINUM_L 18 /* Incr Line # */
|
||
#define DST_S_C_SET_LINUM_B 19 /* Set Line # */
|
||
#define DST_S_C_SET_LINUM_L 20 /* Set Line # */
|
||
#define DST_S_C_TERM_L 21 /* End of lines */
|
||
/* these are used with DST_S_C_SOURCE */
|
||
#define DST_S_C_SRC_DECLFILE 1 /* Declare source file */
|
||
#define DST_S_C_SRC_SETFILE 2 /* Set source file */
|
||
#define DST_S_C_SRC_SETREC_L 3 /* Set record, longword value */
|
||
#define DST_S_C_SRC_SETREC_W 4 /* Set record, word value */
|
||
#define DST_S_C_SRC_DEFLINES_W 10 /* # of line, word counter */
|
||
#define DST_S_C_SRC_DEFLINES_B 11 /* # of line, byte counter */
|
||
#define DST_S_C_SRC_FORMFEED 16 /* ^L counts as a record */
|
||
/* the following are the codes for the various data types. Anything not on
|
||
* the list is included under 'advanced_type'
|
||
*/
|
||
#define DBG_S_C_UCHAR 0x02
|
||
#define DBG_S_C_USINT 0x03
|
||
#define DBG_S_C_ULINT 0x04
|
||
#define DBG_S_C_UQUAD 0x05
|
||
#define DBG_S_C_SCHAR 0x06
|
||
#define DBG_S_C_SSINT 0x07
|
||
#define DBG_S_C_SLINT 0x08
|
||
#define DBG_S_C_SQUAD 0x09
|
||
#define DBG_S_C_REAL4 0x0a
|
||
#define DBG_S_C_REAL8 0x0b /* D_float double */
|
||
#define DBG_S_C_COMPLX4 0x0c /* 2xF_float complex float */
|
||
#define DBG_S_C_COMPLX8 0x0d /* 2xD_float complex double */
|
||
#define DBG_S_C_REAL8_G 0x1b /* G_float double */
|
||
#define DBG_S_C_COMPLX8_G 0x1d /* 2xG_float complex double */
|
||
#define DBG_S_C_FUNCTION_ADDR 0x17
|
||
#define DBG_S_C_ADVANCED_TYPE 0xa3
|
||
/* Some of these are just for future reference. [pr]
|
||
*/
|
||
#define DBG_S_C_UBITA 0x01 /* unsigned, aligned bit field */
|
||
#define DBG_S_C_UBITU 0x22 /* unsigned, unaligned bit field */
|
||
#define DBG_S_C_SBITA 0x29 /* signed, aligned bit field */
|
||
#define DBG_S_C_SBITU 0x2a /* signed, unaligned bit field */
|
||
#define DBG_S_C_CSTRING 0x2e /* asciz ('\0' terminated) string */
|
||
#define DBG_S_C_WCHAR 0x38 /* wchar_t */
|
||
/* These are descriptor class codes.
|
||
*/
|
||
#define DSC_K_CLASS_S 0x01 /* static (fixed length) */
|
||
#define DSC_K_CLASS_D 0x02 /* dynamic string (not via malloc!) */
|
||
#define DSC_K_CLASS_A 0x04 /* array */
|
||
#define DSC_K_CLASS_UBS 0x0d /* unaligned bit string */
|
||
/* These are the codes that are used to generate the definitions of struct
|
||
* union and enum records
|
||
*/
|
||
#define DBG_S_C_ENUM_ITEM 0xa4
|
||
#define DBG_S_C_ENUM_START 0xa5
|
||
#define DBG_S_C_ENUM_END 0xa6
|
||
#define DBG_S_C_STRUCT_ITEM DST_K_VFLAGS_BITOFFS /* 0xff */
|
||
#define DBG_S_C_STRUCT_START 0xab
|
||
#define DBG_S_C_STRUCT_END 0xac
|
||
#define DST_K_TYPSPEC 0xaf /* type specification */
|
||
/* These codes are used in the generation of the symbol definition records
|
||
*/
|
||
#define DST_K_VFLAGS_NOVAL 0x80 /* struct definition only */
|
||
#define DST_K_VFLAGS_DSC 0xfa /* descriptor used */
|
||
#define DST_K_VFLAGS_TVS 0xfb /* trailing value specified */
|
||
#define DST_K_VS_FOLLOWS 0xfd /* value spec follows */
|
||
#define DST_K_VFLAGS_BITOFFS 0xff /* value contains bit offset */
|
||
#define DST_K_VALKIND_LITERAL 0
|
||
#define DST_K_VALKIND_ADDR 1
|
||
#define DST_K_VALKIND_DESC 2
|
||
#define DST_K_VALKIND_REG 3
|
||
#define DST_K_REG_VAX_AP 0x0c /* R12 */
|
||
#define DST_K_REG_VAX_FP 0x0d /* R13 */
|
||
#define DST_K_REG_VAX_SP 0x0e /* R14 */
|
||
#define DST_V_VALKIND 0 /* offset of valkind field */
|
||
#define DST_V_INDIRECT 2 /* offset to indirect bit */
|
||
#define DST_V_DISP 3 /* offset to displacement bit */
|
||
#define DST_V_REGNUM 4 /* offset to register number */
|
||
#define DST_M_INDIRECT (1<<DST_V_INDIRECT)
|
||
#define DST_M_DISP (1<<DST_V_DISP)
|
||
#define DBG_C_FUNCTION_PARAM /* 0xc9 */ \
|
||
(DST_K_VALKIND_ADDR|DST_M_DISP|(DST_K_REG_VAX_AP<<DST_V_REGNUM))
|
||
#define DBG_C_LOCAL_SYM /* 0xd9 */ \
|
||
(DST_K_VALKIND_ADDR|DST_M_DISP|(DST_K_REG_VAX_FP<<DST_V_REGNUM))
|
||
/* Kinds of value specifications
|
||
*/
|
||
#define DST_K_VS_ALLOC_SPLIT 3 /* split lifetime */
|
||
/* Kinds of type specifications
|
||
*/
|
||
#define DST_K_TS_ATOM 0x01 /* atomic type specification */
|
||
#define DST_K_TS_DSC 0x02 /* descriptor type spec */
|
||
#define DST_K_TS_IND 0x03 /* indirect type specification */
|
||
#define DST_K_TS_TPTR 0x04 /* typed pointer type spec */
|
||
#define DST_K_TS_PTR 0x05 /* pointer type spec */
|
||
#define DST_K_TS_ARRAY 0x07 /* array type spec */
|
||
#define DST_K_TS_NOV_LENG 0x0e /* novel length type spec */
|
||
/* These are the codes that are used in the suffix records to determine the
|
||
* actual data type
|
||
*/
|
||
#define DBG_S_C_BASIC DST_K_TS_ATOM
|
||
#define DBG_S_C_BASIC_ARRAY DST_K_TS_DSC
|
||
#define DBG_S_C_STRUCT DST_K_TS_IND
|
||
#define DBG_S_C_POINTER DST_K_TS_TPTR
|
||
#define DBG_S_C_VOID DST_K_TS_PTR
|
||
#define DBG_S_C_COMPLEX_ARRAY DST_K_TS_ARRAY
|
||
|
||
#endif /* WANT_VMS_OBJ_DEFS */
|
||
|
||
/* end of obj-vms.h */
|