| 1 | /* VMS object file format |
| 2 | Copyright (C) 1989, 90, 91, 92, 93, 94, 95, 96, 1997 |
| 3 | Free Software Foundation, Inc. |
| 4 | |
| 5 | This file is part of GAS, the GNU Assembler. |
| 6 | |
| 7 | GAS is free software; you can redistribute it and/or modify |
| 8 | it under the terms of the GNU General Public License as |
| 9 | published by the Free Software Foundation; either version 2, |
| 10 | or (at your option) any later version. |
| 11 | |
| 12 | GAS is distributed in the hope that it will be useful, but |
| 13 | WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See |
| 15 | the GNU General Public License for more details. |
| 16 | |
| 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GAS; see the file COPYING. If not, write to the Free |
| 19 | Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
| 20 | 02111-1307, USA. */ |
| 21 | |
| 22 | /* Tag to validate a.out object file format processing */ |
| 23 | #define OBJ_VMS 1 |
| 24 | |
| 25 | #include "targ-cpu.h" |
| 26 | |
| 27 | #define LONGWORD_ALIGNMENT 2 |
| 28 | |
| 29 | /* This macro controls subsection alignment within a section. |
| 30 | * |
| 31 | * Under VAX/VMS, the linker (and PSECT specifications) |
| 32 | * take care of correctly aligning the segments. |
| 33 | * Doing the alignment here (on initialized data) can |
| 34 | * mess up the calculation of global data PSECT sizes. |
| 35 | */ |
| 36 | #define SUB_SEGMENT_ALIGN(SEG) \ |
| 37 | (((SEG) == data_section) ? 0 : LONGWORD_ALIGNMENT) |
| 38 | |
| 39 | /* This flag is used to remember whether we are in the const or the |
| 40 | data section. By and large they are identical, but we set a no-write |
| 41 | bit for psects in the const section. */ |
| 42 | |
| 43 | extern unsigned char const_flag; |
| 44 | |
| 45 | /* This is overloaded onto const_flag, for convenience. It's used to flag |
| 46 | dummy labels like "gcc2_compiled." which occur before the first .text |
| 47 | or .data section directive. */ |
| 48 | |
| 49 | #define IN_DEFAULT_SECTION 0x80 |
| 50 | |
| 51 | /* These are defined in obj-vms.c. */ |
| 52 | extern const short seg_N_TYPE[]; |
| 53 | extern const segT N_TYPE_seg[]; |
| 54 | |
| 55 | #undef NO_RELOC |
| 56 | enum reloc_type |
| 57 | { |
| 58 | NO_RELOC, RELOC_32 |
| 59 | }; |
| 60 | |
| 61 | #define N_BADMAG(x) (0) |
| 62 | #define N_TXTOFF(x) ( sizeof(struct exec) ) |
| 63 | #define N_DATOFF(x) ( N_TXTOFF(x) + (x).a_text ) |
| 64 | #define N_TROFF(x) ( N_DATOFF(x) + (x).a_data ) |
| 65 | #define N_DROFF(x) ( N_TROFF(x) + (x).a_trsize ) |
| 66 | #define N_SYMOFF(x) ( N_DROFF(x) + (x).a_drsize ) |
| 67 | #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) |
| 68 | |
| 69 | /* We use this copy of the exec header for VMS. We do not actually use it, but |
| 70 | what we actually do is let gas fill in the relevant slots, and when we get |
| 71 | around to writing an obj file, we just pick out what we need. */ |
| 72 | |
| 73 | struct exec |
| 74 | { |
| 75 | unsigned long a_text; /* length of text, in bytes */ |
| 76 | unsigned long a_data; /* length of data, in bytes */ |
| 77 | unsigned long a_bss; /* length of uninitialized data area for file, in bytes */ |
| 78 | unsigned long a_trsize; /* length of relocation info for text, in bytes */ |
| 79 | unsigned long a_drsize; /* length of relocation info for data, in bytes */ |
| 80 | unsigned long a_entry; /* start address */ |
| 81 | unsigned long a_syms; /* length of symbol table data in file, in bytes */ |
| 82 | }; |
| 83 | |
| 84 | typedef struct |
| 85 | { |
| 86 | struct exec header; /* a.out header */ |
| 87 | long string_table_size; /* names + '\0' + sizeof(int) */ |
| 88 | } |
| 89 | object_headers; |
| 90 | |
| 91 | /* A single entry in the symbol table |
| 92 | * (this started as a clone of bout.h's nlist, but much was unneeded). |
| 93 | */ |
| 94 | struct nlist |
| 95 | { |
| 96 | char *n_name; |
| 97 | unsigned char n_type; /* See below */ |
| 98 | unsigned char n_other; /* used for const_flag and "default section" */ |
| 99 | unsigned : 16; /* padding for alignment */ |
| 100 | int n_desc; /* source line number for N_SLINE stabs */ |
| 101 | }; |
| 102 | |
| 103 | /* Legal values of n_type (see aout/stab.def for the majority of the codes). |
| 104 | */ |
| 105 | #define N_UNDF 0 /* Undefined symbol */ |
| 106 | #define N_ABS 2 /* Absolute symbol */ |
| 107 | #define N_TEXT 4 /* Text symbol */ |
| 108 | #define N_DATA 6 /* Data symbol */ |
| 109 | #define N_BSS 8 /* BSS symbol */ |
| 110 | #define N_FN 31 /* Filename symbol */ |
| 111 | |
| 112 | #define N_EXT 1 /* External symbol (OR'd in with one of above) */ |
| 113 | #define N_TYPE 036 /* Mask for all the type bits */ |
| 114 | |
| 115 | #define N_STAB 0340 /* Mask for all bits used for SDB entries */ |
| 116 | |
| 117 | #include "aout/stab_gnu.h" |
| 118 | |
| 119 | /* SYMBOL TABLE */ |
| 120 | /* Symbol table entry data type */ |
| 121 | |
| 122 | typedef struct nlist obj_symbol_type; /* Symbol table entry */ |
| 123 | |
| 124 | /* Symbol table macros and constants */ |
| 125 | |
| 126 | #define OBJ_SYMFIELD_TYPE struct VMS_Symbol * |
| 127 | |
| 128 | /* |
| 129 | * Macros to extract information from a symbol table entry. |
| 130 | * This syntaxic indirection allows independence regarding a.out or coff. |
| 131 | * The argument (s) of all these macros is a pointer to a symbol table entry. |
| 132 | */ |
| 133 | |
| 134 | /* True if the symbol is external */ |
| 135 | #define S_IS_EXTERNAL(s) ((s)->sy_symbol.n_type & N_EXT) |
| 136 | |
| 137 | /* True if symbol has been defined, ie is in N_{TEXT,DATA,BSS,ABS} or N_EXT */ |
| 138 | #define S_IS_DEFINED(s) (S_GET_TYPE(s) != N_UNDF) |
| 139 | |
| 140 | #define S_IS_COMMON(s) (S_GET_TYPE(s) == N_UNDF && S_GET_VALUE(s) != 0) |
| 141 | |
| 142 | #define S_IS_REGISTER(s) ((s)->sy_symbol.n_type == N_REGISTER) |
| 143 | |
| 144 | /* True if a debug special symbol entry */ |
| 145 | #define S_IS_DEBUG(s) ((s)->sy_symbol.n_type & N_STAB) |
| 146 | /* True if a symbol is local symbol name */ |
| 147 | /* A symbol name whose name begin with ^A is a gas internal pseudo symbol |
| 148 | nameless symbols come from .stab directives. */ |
| 149 | #define S_IS_LOCAL(s) (S_GET_NAME(s) && \ |
| 150 | !S_IS_DEBUG(s) && \ |
| 151 | (strchr(S_GET_NAME(s), '\001') != 0 || \ |
| 152 | strchr(S_GET_NAME(s), '\002') != 0 || \ |
| 153 | (S_LOCAL_NAME(s) && !flag_keep_locals))) |
| 154 | /* True if a symbol is not defined in this file */ |
| 155 | #define S_IS_EXTERN(s) ((s)->sy_symbol.n_type & N_EXT) |
| 156 | /* True if the symbol has been generated because of a .stabd directive */ |
| 157 | #define S_IS_STABD(s) (S_GET_NAME(s) == (char *)0) |
| 158 | |
| 159 | /* Accessors */ |
| 160 | /* The name of the symbol */ |
| 161 | #define S_GET_NAME(s) ((s)->sy_symbol.n_name) |
| 162 | /* The pointer to the string table */ |
| 163 | #define S_GET_OFFSET(s) ((s)->sy_name_offset) |
| 164 | /* The raw type of the symbol */ |
| 165 | #define S_GET_RAW_TYPE(s) ((s)->sy_symbol.n_type) |
| 166 | /* The type of the symbol */ |
| 167 | #define S_GET_TYPE(s) ((s)->sy_symbol.n_type & N_TYPE) |
| 168 | /* The numeric value of the segment */ |
| 169 | #define S_GET_SEGMENT(s) (N_TYPE_seg[S_GET_TYPE(s)]) |
| 170 | /* The n_other expression value */ |
| 171 | #define S_GET_OTHER(s) ((s)->sy_symbol.n_other) |
| 172 | /* The n_desc expression value */ |
| 173 | #define S_GET_DESC(s) ((s)->sy_symbol.n_desc) |
| 174 | |
| 175 | /* Modifiers */ |
| 176 | /* Assume that a symbol cannot be simultaneously in more than on segment */ |
| 177 | /* set segment */ |
| 178 | #define S_SET_SEGMENT(s,seg) ((s)->sy_symbol.n_type &= ~N_TYPE,(s)->sy_symbol.n_type|=SEGMENT_TO_SYMBOL_TYPE(seg)) |
| 179 | /* The symbol is external */ |
| 180 | #define S_SET_EXTERNAL(s) ((s)->sy_symbol.n_type |= N_EXT) |
| 181 | /* The symbol is not external */ |
| 182 | #define S_CLEAR_EXTERNAL(s) ((s)->sy_symbol.n_type &= ~N_EXT) |
| 183 | /* Set the name of the symbol */ |
| 184 | #define S_SET_NAME(s,v) ((s)->sy_symbol.n_name = (v)) |
| 185 | /* Set the offset in the string table */ |
| 186 | #define S_SET_OFFSET(s,v) ((s)->sy_name_offset = (v)) |
| 187 | /* Set the n_other expression value */ |
| 188 | #define S_SET_OTHER(s,v) ((s)->sy_symbol.n_other = (v)) |
| 189 | /* Set the n_desc expression value */ |
| 190 | #define S_SET_DESC(s,v) ((s)->sy_symbol.n_desc = (v)) |
| 191 | /* Set the n_type expression value */ |
| 192 | #define S_SET_TYPE(s,v) ((s)->sy_symbol.n_type = (v)) |
| 193 | |
| 194 | |
| 195 | /* File header macro and type definition */ |
| 196 | |
| 197 | #define H_GET_TEXT_SIZE(h) ((h)->header.a_text) |
| 198 | #define H_GET_DATA_SIZE(h) ((h)->header.a_data) |
| 199 | #define H_GET_BSS_SIZE(h) ((h)->header.a_bss) |
| 200 | |
| 201 | #define H_SET_TEXT_SIZE(h,v) ((h)->header.a_text = md_section_align(SEG_TEXT, (v))) |
| 202 | #define H_SET_DATA_SIZE(h,v) ((h)->header.a_data = md_section_align(SEG_DATA, (v))) |
| 203 | #define H_SET_BSS_SIZE(h,v) ((h)->header.a_bss = md_section_align(SEG_BSS, (v))) |
| 204 | |
| 205 | #define H_SET_STRING_SIZE(h,v) ((h)->string_table_size = (v)) |
| 206 | #define H_SET_SYMBOL_TABLE_SIZE(h,v) ((h)->header.a_syms = (v) * \ |
| 207 | sizeof(struct nlist)) |
| 208 | |
| 209 | /* line numbering stuff. */ |
| 210 | #define OBJ_EMIT_LINENO(a, b, c) {;} |
| 211 | |
| 212 | #define obj_symbol_new_hook(s) {;} |
| 213 | |
| 214 | /* Force structure tags into scope so that their use in prototypes |
| 215 | will never be their first occurance. */ |
| 216 | struct fix; |
| 217 | struct symbol; |
| 218 | struct frag; |
| 219 | |
| 220 | /* obj-vms routines visible to the rest of gas. */ |
| 221 | |
| 222 | extern void tc_aout_fix_to_chars PARAMS ((char *,struct fix *,relax_addressT)); |
| 223 | |
| 224 | extern int vms_resolve_symbol_redef PARAMS ((struct symbol *)); |
| 225 | #define RESOLVE_SYMBOL_REDEFINITION(X) vms_resolve_symbol_redef(X) |
| 226 | |
| 227 | /* Compiler-generated label "__vax_g_doubles" is used to augment .stabs. */ |
| 228 | extern void vms_check_for_special_label PARAMS ((struct symbol *)); |
| 229 | #define obj_frob_label(X) vms_check_for_special_label(X) |
| 230 | |
| 231 | extern void vms_check_for_main PARAMS ((void)); |
| 232 | |
| 233 | extern void vms_write_object_file PARAMS ((unsigned,unsigned,unsigned, |
| 234 | struct frag *,struct frag *)); |
| 235 | |
| 236 | /* VMS executables are nothing like a.out, but the VMS port of gcc uses |
| 237 | a.out format stabs which obj-vms.c then translates. */ |
| 238 | |
| 239 | #define AOUT_STABS |
| 240 | |
| 241 | \f |
| 242 | #ifdef WANT_VMS_OBJ_DEFS |
| 243 | |
| 244 | /* The rest of this file contains definitions for constants used within |
| 245 | the actual VMS object file. We do not use a $ in the symbols (as per |
| 246 | usual VMS convention) since System V gags on it. */ |
| 247 | |
| 248 | #define OBJ_S_C_HDR 0 |
| 249 | #define OBJ_S_C_HDR_MHD 0 |
| 250 | #define OBJ_S_C_HDR_LNM 1 |
| 251 | #define OBJ_S_C_HDR_SRC 2 |
| 252 | #define OBJ_S_C_HDR_TTL 3 |
| 253 | #define OBJ_S_C_HDR_CPR 4 |
| 254 | #define OBJ_S_C_HDR_MTC 5 |
| 255 | #define OBJ_S_C_HDR_GTX 6 |
| 256 | #define OBJ_S_C_GSD 1 |
| 257 | #define OBJ_S_C_GSD_PSC 0 |
| 258 | #define OBJ_S_C_GSD_SYM 1 |
| 259 | #define OBJ_S_C_GSD_EPM 2 |
| 260 | #define OBJ_S_C_GSD_PRO 3 |
| 261 | #define OBJ_S_C_GSD_SYMW 4 |
| 262 | #define OBJ_S_C_GSD_EPMW 5 |
| 263 | #define OBJ_S_C_GSD_PROW 6 |
| 264 | #define OBJ_S_C_GSD_IDC 7 |
| 265 | #define OBJ_S_C_GSD_ENV 8 |
| 266 | #define OBJ_S_C_GSD_LSY 9 |
| 267 | #define OBJ_S_C_GSD_LEPM 10 |
| 268 | #define OBJ_S_C_GSD_LPRO 11 |
| 269 | #define OBJ_S_C_GSD_SPSC 12 |
| 270 | #define OBJ_S_C_TIR 2 |
| 271 | #define OBJ_S_C_EOM 3 |
| 272 | #define OBJ_S_C_DBG 4 |
| 273 | #define OBJ_S_C_TBT 5 |
| 274 | #define OBJ_S_C_LNK 6 |
| 275 | #define OBJ_S_C_EOMW 7 |
| 276 | #define OBJ_S_C_MAXRECTYP 7 |
| 277 | #define OBJ_S_K_SUBTYP 1 |
| 278 | #define OBJ_S_C_SUBTYP 1 |
| 279 | #define OBJ_S_C_MAXRECSIZ 2048 |
| 280 | #define OBJ_S_C_STRLVL 0 |
| 281 | #define OBJ_S_C_SYMSIZ 31 |
| 282 | #define OBJ_S_C_STOREPLIM -1 |
| 283 | #define OBJ_S_C_PSCALILIM 9 |
| 284 | \f |
| 285 | #define MHD_S_C_MHD 0 |
| 286 | #define MHD_S_C_LNM 1 |
| 287 | #define MHD_S_C_SRC 2 |
| 288 | #define MHD_S_C_TTL 3 |
| 289 | #define MHD_S_C_CPR 4 |
| 290 | #define MHD_S_C_MTC 5 |
| 291 | #define MHD_S_C_GTX 6 |
| 292 | #define MHD_S_C_MAXHDRTYP 6 |
| 293 | \f |
| 294 | #define GSD_S_K_ENTRIES 1 |
| 295 | #define GSD_S_C_ENTRIES 1 |
| 296 | #define GSD_S_C_PSC 0 |
| 297 | #define GSD_S_C_SYM 1 |
| 298 | #define GSD_S_C_EPM 2 |
| 299 | #define GSD_S_C_PRO 3 |
| 300 | #define GSD_S_C_SYMW 4 |
| 301 | #define GSD_S_C_EPMW 5 |
| 302 | #define GSD_S_C_PROW 6 |
| 303 | #define GSD_S_C_IDC 7 |
| 304 | #define GSD_S_C_ENV 8 |
| 305 | #define GSD_S_C_LSY 9 |
| 306 | #define GSD_S_C_LEPM 10 |
| 307 | #define GSD_S_C_LPRO 11 |
| 308 | #define GSD_S_C_SPSC 12 |
| 309 | #define GSD_S_C_SYMV 13 |
| 310 | #define GSD_S_C_EPMV 14 |
| 311 | #define GSD_S_C_PROV 15 |
| 312 | #define GSD_S_C_MAXRECTYP 15 |
| 313 | \f |
| 314 | #define GSY_S_M_WEAK 1 |
| 315 | #define GSY_S_M_DEF 2 |
| 316 | #define GSY_S_M_UNI 4 |
| 317 | #define GSY_S_M_REL 8 |
| 318 | |
| 319 | #define LSY_S_M_DEF 2 |
| 320 | #define LSY_S_M_REL 8 |
| 321 | |
| 322 | #define ENV_S_M_DEF 1 |
| 323 | #define ENV_S_M_NESTED 2 |
| 324 | \f |
| 325 | #define GPS_S_M_PIC 1 |
| 326 | #define GPS_S_M_LIB 2 |
| 327 | #define GPS_S_M_OVR 4 |
| 328 | #define GPS_S_M_REL 8 |
| 329 | #define GPS_S_M_GBL 16 |
| 330 | #define GPS_S_M_SHR 32 |
| 331 | #define GPS_S_M_EXE 64 |
| 332 | #define GPS_S_M_RD 128 |
| 333 | #define GPS_S_M_WRT 256 |
| 334 | #define GPS_S_M_VEC 512 |
| 335 | #define GPS_S_K_NAME 9 |
| 336 | #define GPS_S_C_NAME 9 |
| 337 | \f |
| 338 | #define TIR_S_C_STA_GBL 0 |
| 339 | #define TIR_S_C_STA_SB 1 |
| 340 | #define TIR_S_C_STA_SW 2 |
| 341 | #define TIR_S_C_STA_LW 3 |
| 342 | #define TIR_S_C_STA_PB 4 |
| 343 | #define TIR_S_C_STA_PW 5 |
| 344 | #define TIR_S_C_STA_PL 6 |
| 345 | #define TIR_S_C_STA_UB 7 |
| 346 | #define TIR_S_C_STA_UW 8 |
| 347 | #define TIR_S_C_STA_BFI 9 |
| 348 | #define TIR_S_C_STA_WFI 10 |
| 349 | #define TIR_S_C_STA_LFI 11 |
| 350 | #define TIR_S_C_STA_EPM 12 |
| 351 | #define TIR_S_C_STA_CKARG 13 |
| 352 | #define TIR_S_C_STA_WPB 14 |
| 353 | #define TIR_S_C_STA_WPW 15 |
| 354 | #define TIR_S_C_STA_WPL 16 |
| 355 | #define TIR_S_C_STA_LSY 17 |
| 356 | #define TIR_S_C_STA_LIT 18 |
| 357 | #define TIR_S_C_STA_LEPM 19 |
| 358 | #define TIR_S_C_MAXSTACOD 19 |
| 359 | #define TIR_S_C_MINSTOCOD 20 |
| 360 | #define TIR_S_C_STO_SB 20 |
| 361 | #define TIR_S_C_STO_SW 21 |
| 362 | #define TIR_S_C_STO_L 22 |
| 363 | #define TIR_S_C_STO_BD 23 |
| 364 | #define TIR_S_C_STO_WD 24 |
| 365 | #define TIR_S_C_STO_LD 25 |
| 366 | #define TIR_S_C_STO_LI 26 |
| 367 | #define TIR_S_C_STO_PIDR 27 |
| 368 | #define TIR_S_C_STO_PICR 28 |
| 369 | #define TIR_S_C_STO_RSB 29 |
| 370 | #define TIR_S_C_STO_RSW 30 |
| 371 | #define TIR_S_C_STO_RL 31 |
| 372 | #define TIR_S_C_STO_VPS 32 |
| 373 | #define TIR_S_C_STO_USB 33 |
| 374 | #define TIR_S_C_STO_USW 34 |
| 375 | #define TIR_S_C_STO_RUB 35 |
| 376 | #define TIR_S_C_STO_RUW 36 |
| 377 | #define TIR_S_C_STO_B 37 |
| 378 | #define TIR_S_C_STO_W 38 |
| 379 | #define TIR_S_C_STO_RB 39 |
| 380 | #define TIR_S_C_STO_RW 40 |
| 381 | #define TIR_S_C_STO_RIVB 41 |
| 382 | #define TIR_S_C_STO_PIRR 42 |
| 383 | #define TIR_S_C_MAXSTOCOD 42 |
| 384 | #define TIR_S_C_MINOPRCOD 50 |
| 385 | #define TIR_S_C_OPR_NOP 50 |
| 386 | #define TIR_S_C_OPR_ADD 51 |
| 387 | #define TIR_S_C_OPR_SUB 52 |
| 388 | #define TIR_S_C_OPR_MUL 53 |
| 389 | #define TIR_S_C_OPR_DIV 54 |
| 390 | #define TIR_S_C_OPR_AND 55 |
| 391 | #define TIR_S_C_OPR_IOR 56 |
| 392 | #define TIR_S_C_OPR_EOR 57 |
| 393 | #define TIR_S_C_OPR_NEG 58 |
| 394 | #define TIR_S_C_OPR_COM 59 |
| 395 | #define TIR_S_C_OPR_INSV 60 |
| 396 | #define TIR_S_C_OPR_ASH 61 |
| 397 | #define TIR_S_C_OPR_USH 62 |
| 398 | #define TIR_S_C_OPR_ROT 63 |
| 399 | #define TIR_S_C_OPR_SEL 64 |
| 400 | #define TIR_S_C_OPR_REDEF 65 |
| 401 | #define TIR_S_C_OPR_DFLIT 66 |
| 402 | #define TIR_S_C_MAXOPRCOD 66 |
| 403 | #define TIR_S_C_MINCTLCOD 80 |
| 404 | #define TIR_S_C_CTL_SETRB 80 |
| 405 | #define TIR_S_C_CTL_AUGRB 81 |
| 406 | #define TIR_S_C_CTL_DFLOC 82 |
| 407 | #define TIR_S_C_CTL_STLOC 83 |
| 408 | #define TIR_S_C_CTL_STKDL 84 |
| 409 | #define TIR_S_C_MAXCTLCOD 84 |
| 410 | \f |
| 411 | /* |
| 412 | * Debugger symbol definitions: These are done by hand, as no |
| 413 | * machine-readable version seems |
| 414 | * to be available. |
| 415 | */ |
| 416 | #define DST_S_C_C 7 /* Language == "C" */ |
| 417 | #define DST_S_C_CXX 15 /* Language == "C++" */ |
| 418 | #define DST_S_C_VERSION 153 |
| 419 | #define DST_S_C_SOURCE 155 /* Source file */ |
| 420 | #define DST_S_C_PROLOG 162 |
| 421 | #define DST_S_C_BLKBEG 176 /* Beginning of block */ |
| 422 | #define DST_S_C_BLKEND 177 /* End of block */ |
| 423 | #define DST_S_C_ENTRY 181 |
| 424 | #define DST_S_C_PSECT 184 |
| 425 | #define DST_S_C_LINE_NUM 185 /* Line Number */ |
| 426 | #define DST_S_C_LBLORLIT 186 |
| 427 | #define DST_S_C_LABEL 187 |
| 428 | #define DST_S_C_MODBEG 188 /* Beginning of module */ |
| 429 | #define DST_S_C_MODEND 189 /* End of module */ |
| 430 | #define DST_S_C_RTNBEG 190 /* Beginning of routine */ |
| 431 | #define DST_S_C_RTNEND 191 /* End of routine */ |
| 432 | #define DST_S_C_DELTA_PC_W 1 /* Incr PC */ |
| 433 | #define DST_S_C_INCR_LINUM 2 /* Incr Line # */ |
| 434 | #define DST_S_C_INCR_LINUM_W 3 /* Incr Line # */ |
| 435 | #define DST_S_C_SET_LINUM_INCR 4 |
| 436 | #define DST_S_C_SET_LINUM_INCR_W 5 |
| 437 | #define DST_S_C_RESET_LINUM_INCR 6 |
| 438 | #define DST_S_C_BEG_STMT_MODE 7 |
| 439 | #define DST_S_C_END_STMT_MODE 8 |
| 440 | #define DST_S_C_SET_LINE_NUM 9 /* Set Line # */ |
| 441 | #define DST_S_C_SET_PC 10 |
| 442 | #define DST_S_C_SET_PC_W 11 |
| 443 | #define DST_S_C_SET_PC_L 12 |
| 444 | #define DST_S_C_SET_STMTNUM 13 |
| 445 | #define DST_S_C_TERM 14 /* End of lines */ |
| 446 | #define DST_S_C_TERM_W 15 /* End of lines */ |
| 447 | #define DST_S_C_SET_ABS_PC 16 /* Set PC */ |
| 448 | #define DST_S_C_DELTA_PC_L 17 /* Incr PC */ |
| 449 | #define DST_S_C_INCR_LINUM_L 18 /* Incr Line # */ |
| 450 | #define DST_S_C_SET_LINUM_B 19 /* Set Line # */ |
| 451 | #define DST_S_C_SET_LINUM_L 20 /* Set Line # */ |
| 452 | #define DST_S_C_TERM_L 21 /* End of lines */ |
| 453 | /* these are used with DST_S_C_SOURCE */ |
| 454 | #define DST_S_C_SRC_DECLFILE 1 /* Declare source file */ |
| 455 | #define DST_S_C_SRC_SETFILE 2 /* Set source file */ |
| 456 | #define DST_S_C_SRC_SETREC_L 3 /* Set record, longword value */ |
| 457 | #define DST_S_C_SRC_SETREC_W 4 /* Set record, word value */ |
| 458 | #define DST_S_C_SRC_DEFLINES_W 10 /* # of line, word counter */ |
| 459 | #define DST_S_C_SRC_DEFLINES_B 11 /* # of line, byte counter */ |
| 460 | #define DST_S_C_SRC_FORMFEED 16 /* ^L counts as a record */ |
| 461 | /* the following are the codes for the various data types. Anything not on |
| 462 | * the list is included under 'advanced_type' |
| 463 | */ |
| 464 | #define DBG_S_C_UCHAR 0x02 |
| 465 | #define DBG_S_C_USINT 0x03 |
| 466 | #define DBG_S_C_ULINT 0x04 |
| 467 | #define DBG_S_C_UQUAD 0x05 |
| 468 | #define DBG_S_C_SCHAR 0x06 |
| 469 | #define DBG_S_C_SSINT 0x07 |
| 470 | #define DBG_S_C_SLINT 0x08 |
| 471 | #define DBG_S_C_SQUAD 0x09 |
| 472 | #define DBG_S_C_REAL4 0x0a |
| 473 | #define DBG_S_C_REAL8 0x0b /* D_float double */ |
| 474 | #define DBG_S_C_COMPLX4 0x0c /* 2xF_float complex float */ |
| 475 | #define DBG_S_C_COMPLX8 0x0d /* 2xD_float complex double */ |
| 476 | #define DBG_S_C_REAL8_G 0x1b /* G_float double */ |
| 477 | #define DBG_S_C_COMPLX8_G 0x1d /* 2xG_float complex double */ |
| 478 | #define DBG_S_C_FUNCTION_ADDR 0x17 |
| 479 | #define DBG_S_C_ADVANCED_TYPE 0xa3 |
| 480 | /* Some of these are just for future reference. [pr] |
| 481 | */ |
| 482 | #define DBG_S_C_UBITA 0x01 /* unsigned, aligned bit field */ |
| 483 | #define DBG_S_C_UBITU 0x22 /* unsigned, unaligned bit field */ |
| 484 | #define DBG_S_C_SBITA 0x29 /* signed, aligned bit field */ |
| 485 | #define DBG_S_C_SBITU 0x2a /* signed, unaligned bit field */ |
| 486 | #define DBG_S_C_CSTRING 0x2e /* asciz ('\0' terminated) string */ |
| 487 | #define DBG_S_C_WCHAR 0x38 /* wchar_t */ |
| 488 | /* These are descriptor class codes. |
| 489 | */ |
| 490 | #define DSC_K_CLASS_S 0x01 /* static (fixed length) */ |
| 491 | #define DSC_K_CLASS_D 0x02 /* dynamic string (not via malloc!) */ |
| 492 | #define DSC_K_CLASS_A 0x04 /* array */ |
| 493 | #define DSC_K_CLASS_UBS 0x0d /* unaligned bit string */ |
| 494 | /* These are the codes that are used to generate the definitions of struct |
| 495 | * union and enum records |
| 496 | */ |
| 497 | #define DBG_S_C_ENUM_ITEM 0xa4 |
| 498 | #define DBG_S_C_ENUM_START 0xa5 |
| 499 | #define DBG_S_C_ENUM_END 0xa6 |
| 500 | #define DBG_S_C_STRUCT_ITEM DST_K_VFLAGS_BITOFFS /* 0xff */ |
| 501 | #define DBG_S_C_STRUCT_START 0xab |
| 502 | #define DBG_S_C_STRUCT_END 0xac |
| 503 | #define DST_K_TYPSPEC 0xaf /* type specification */ |
| 504 | /* These codes are used in the generation of the symbol definition records |
| 505 | */ |
| 506 | #define DST_K_VFLAGS_NOVAL 0x80 /* struct definition only */ |
| 507 | #define DST_K_VFLAGS_DSC 0xfa /* descriptor used */ |
| 508 | #define DST_K_VFLAGS_TVS 0xfb /* trailing value specified */ |
| 509 | #define DST_K_VS_FOLLOWS 0xfd /* value spec follows */ |
| 510 | #define DST_K_VFLAGS_BITOFFS 0xff /* value contains bit offset */ |
| 511 | #define DST_K_VALKIND_LITERAL 0 |
| 512 | #define DST_K_VALKIND_ADDR 1 |
| 513 | #define DST_K_VALKIND_DESC 2 |
| 514 | #define DST_K_VALKIND_REG 3 |
| 515 | #define DST_K_REG_VAX_AP 0x0c /* R12 */ |
| 516 | #define DST_K_REG_VAX_FP 0x0d /* R13 */ |
| 517 | #define DST_K_REG_VAX_SP 0x0e /* R14 */ |
| 518 | #define DST_V_VALKIND 0 /* offset of valkind field */ |
| 519 | #define DST_V_INDIRECT 2 /* offset to indirect bit */ |
| 520 | #define DST_V_DISP 3 /* offset to displacement bit */ |
| 521 | #define DST_V_REGNUM 4 /* offset to register number */ |
| 522 | #define DST_M_INDIRECT (1<<DST_V_INDIRECT) |
| 523 | #define DST_M_DISP (1<<DST_V_DISP) |
| 524 | #define DBG_C_FUNCTION_PARAM /* 0xc9 */ \ |
| 525 | (DST_K_VALKIND_ADDR|DST_M_DISP|(DST_K_REG_VAX_AP<<DST_V_REGNUM)) |
| 526 | #define DBG_C_LOCAL_SYM /* 0xd9 */ \ |
| 527 | (DST_K_VALKIND_ADDR|DST_M_DISP|(DST_K_REG_VAX_FP<<DST_V_REGNUM)) |
| 528 | /* Kinds of value specifications |
| 529 | */ |
| 530 | #define DST_K_VS_ALLOC_SPLIT 3 /* split lifetime */ |
| 531 | /* Kinds of type specifications |
| 532 | */ |
| 533 | #define DST_K_TS_ATOM 0x01 /* atomic type specification */ |
| 534 | #define DST_K_TS_DSC 0x02 /* descriptor type spec */ |
| 535 | #define DST_K_TS_IND 0x03 /* indirect type specification */ |
| 536 | #define DST_K_TS_TPTR 0x04 /* typed pointer type spec */ |
| 537 | #define DST_K_TS_PTR 0x05 /* pointer type spec */ |
| 538 | #define DST_K_TS_ARRAY 0x07 /* array type spec */ |
| 539 | #define DST_K_TS_NOV_LENG 0x0e /* novel length type spec */ |
| 540 | /* These are the codes that are used in the suffix records to determine the |
| 541 | * actual data type |
| 542 | */ |
| 543 | #define DBG_S_C_BASIC DST_K_TS_ATOM |
| 544 | #define DBG_S_C_BASIC_ARRAY DST_K_TS_DSC |
| 545 | #define DBG_S_C_STRUCT DST_K_TS_IND |
| 546 | #define DBG_S_C_POINTER DST_K_TS_TPTR |
| 547 | #define DBG_S_C_VOID DST_K_TS_PTR |
| 548 | #define DBG_S_C_COMPLEX_ARRAY DST_K_TS_ARRAY |
| 549 | |
| 550 | #endif /* WANT_VMS_OBJ_DEFS */ |
| 551 | |
| 552 | /* end of obj-vms.h */ |