Commit | Line | Data |
---|---|---|
be9618de KR |
1 | /* VMS object file format |
2 | Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc. | |
3 | ||
4 | This file is part of GAS, the GNU Assembler. | |
5 | ||
6 | GAS is free software; you can redistribute it and/or modify | |
7 | it under the terms of the GNU General Public License as | |
8 | published by the Free Software Foundation; either version 2, | |
9 | or (at your option) any later version. | |
10 | ||
11 | GAS is distributed in the hope that it will be useful, but | |
12 | WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See | |
14 | the GNU General Public License for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public | |
17 | License along with GAS; see the file COPYING. If not, write | |
18 | to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | ||
20 | /* Tag to validate a.out object file format processing */ | |
21 | #define OBJ_VMS 1 | |
22 | ||
23 | #include "targ-cpu.h" | |
24 | ||
22a8927a KR |
25 | /* This macro controls subsection alignment within a section. |
26 | * | |
27 | * Under VAX/VMS, the linker (and PSECT specifications) | |
28 | * take care of correctly aligning the segments. | |
29 | * Doing the alignment here (on initialized data) can | |
30 | * mess up the calculation of global data PSECT sizes. | |
31 | */ | |
32 | #define SUB_SEGMENT_ALIGN(SEG) (((SEG) == data_section) ? 0 : 2) | |
33 | ||
be9618de KR |
34 | /* This flag is used to remember whether we are in the const or the |
35 | data section. By and large they are identical, but we set a no-write | |
36 | bit for psects in the const section. */ | |
37 | ||
38 | extern char const_flag; | |
39 | ||
be9618de KR |
40 | /* These are defined in obj-vms.c. */ |
41 | extern const short seg_N_TYPE[]; | |
42 | extern const segT N_TYPE_seg[]; | |
43 | ||
44 | enum reloc_type | |
45 | { | |
46 | NO_RELOC, RELOC_32 | |
47 | }; | |
48 | ||
49 | #define N_BADMAG(x) (0) | |
50 | #define N_TXTOFF(x) ( sizeof(struct exec) ) | |
51 | #define N_DATOFF(x) ( N_TXTOFF(x) + (x).a_text ) | |
52 | #define N_TROFF(x) ( N_DATOFF(x) + (x).a_data ) | |
53 | #define N_DROFF(x) ( N_TROFF(x) + (x).a_trsize ) | |
54 | #define N_SYMOFF(x) ( N_DROFF(x) + (x).a_drsize ) | |
55 | #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) | |
56 | ||
57 | /* We use this copy of the exec header for VMS. We do not actually use it, but | |
58 | what we actually do is let gas fill in the relevant slots, and when we get | |
59 | around to writing an obj file, we just pick out what we need. */ | |
60 | ||
61 | struct exec | |
62 | { | |
63 | unsigned long a_text; /* length of text, in bytes */ | |
64 | unsigned long a_data; /* length of data, in bytes */ | |
65 | unsigned long a_bss; /* length of uninitialized data area for file, in bytes */ | |
66 | unsigned long a_trsize; /* length of relocation info for text, in bytes */ | |
67 | unsigned long a_drsize; /* length of relocation info for data, in bytes */ | |
68 | unsigned long a_entry; /* start address */ | |
69 | unsigned long a_syms; /* length of symbol table data in file, in bytes */ | |
70 | }; | |
71 | ||
72 | typedef struct | |
73 | { | |
74 | struct exec header; /* a.out header */ | |
75 | long string_table_size; /* names + '\0' + sizeof(int) */ | |
76 | } | |
77 | ||
78 | object_headers; | |
79 | ||
80 | /* A single entry in the symbol table | |
81 | */ | |
82 | struct nlist | |
83 | { | |
84 | union | |
85 | { | |
86 | char *n_name; | |
87 | struct nlist *n_next; | |
88 | long n_strx; /* Index into string table */ | |
89 | } | |
90 | n_un; | |
91 | unsigned char n_type; /* See below */ | |
92 | char n_other; /* Used in i80960 support -- see below */ | |
93 | short n_desc; | |
94 | unsigned long n_value; | |
95 | }; | |
96 | ||
97 | /* Legal values of n_type | |
98 | */ | |
99 | #define N_UNDF 0 /* Undefined symbol */ | |
100 | #define N_ABS 2 /* Absolute symbol */ | |
101 | #define N_TEXT 4 /* Text symbol */ | |
102 | #define N_DATA 6 /* Data symbol */ | |
103 | #define N_BSS 8 /* BSS symbol */ | |
104 | #define N_FN 31 /* Filename symbol */ | |
105 | ||
106 | #define N_EXT 1 /* External symbol (OR'd in with one of above) */ | |
107 | #define N_TYPE 036 /* Mask for all the type bits */ | |
108 | ||
109 | #define N_STAB 0340 /* Mask for all bits used for SDB entries */ | |
110 | ||
111 | #define N_GSYM 0x20 /* global symbol: name,,0,type,0 */ | |
112 | #define N_FNAME 0x22 /* procedure name (f77 kludge): name,,0 */ | |
113 | #define N_FUN 0x24 /* procedure: name,,0,linenumber,address */ | |
114 | #define N_STSYM 0x26 /* static symbol: name,,0,type,address */ | |
115 | #define N_LCSYM 0x28 /* .lcomm symbol: name,,0,type,address */ | |
116 | #define N_RSYM 0x40 /* register sym: name,,0,type,register */ | |
117 | #define N_SLINE 0x44 /* src line: 0,,0,linenumber,address */ | |
118 | #define N_CATCH 0x54 /* */ | |
119 | #define N_SSYM 0x60 /* structure elt: name,,0,type,struct_offset */ | |
120 | #define N_SO 0x64 /* source file name: name,,0,0,address */ | |
121 | #define N_LSYM 0x80 /* local sym: name,,0,type,offset */ | |
122 | #define N_SOL 0x84 /* #included file name: name,,0,0,address */ | |
123 | #define N_PSYM 0xa0 /* parameter: name,,0,type,offset */ | |
124 | #define N_ENTRY 0xa4 /* alternate entry: name,linenumber,address */ | |
125 | #define N_LBRAC 0xc0 /* left bracket: 0,,0,nesting level,address */ | |
126 | #define N_RBRAC 0xe0 /* right bracket: 0,,0,nesting level,address */ | |
127 | #define N_BCOMM 0xe2 /* begin common: name,, */ | |
128 | #define N_ECOMM 0xe4 /* end common: name,, */ | |
129 | #define N_ECOML 0xe8 /* end common (local name): ,,address */ | |
130 | #define N_LENG 0xfe /* second stab entry with length information */ | |
131 | ||
132 | /* SYMBOL TABLE */ | |
133 | /* Symbol table entry data type */ | |
134 | ||
135 | typedef struct nlist obj_symbol_type; /* Symbol table entry */ | |
136 | ||
137 | /* Symbol table macros and constants */ | |
138 | ||
139 | /* | |
140 | * Macros to extract information from a symbol table entry. | |
141 | * This syntaxic indirection allows independence regarding a.out or coff. | |
142 | * The argument (s) of all these macros is a pointer to a symbol table entry. | |
143 | */ | |
144 | ||
145 | /* True if the symbol is external */ | |
146 | #define S_IS_EXTERNAL(s) ((s)->sy_symbol.n_type & N_EXT) | |
147 | ||
148 | /* True if symbol has been defined, ie is in N_{TEXT,DATA,BSS,ABS} or N_EXT */ | |
149 | #define S_IS_DEFINED(s) (S_GET_TYPE(s) != N_UNDF) | |
150 | ||
151 | #define S_IS_REGISTER(s) ((s)->sy_symbol.n_type == N_REGISTER) | |
152 | ||
153 | /* True if a debug special symbol entry */ | |
154 | #define S_IS_DEBUG(s) ((s)->sy_symbol.n_type & N_STAB) | |
155 | /* True if a symbol is local symbol name */ | |
156 | /* A symbol name whose name begin with ^A is a gas internal pseudo symbol | |
157 | nameless symbols come from .stab directives. */ | |
158 | #define S_IS_LOCAL(s) (S_GET_NAME(s) && \ | |
159 | !S_IS_DEBUG(s) && \ | |
160 | (S_GET_NAME(s)[0] == '\001' || \ | |
161 | (S_LOCAL_NAME(s) && !flagseen['L']))) | |
162 | /* True if a symbol is not defined in this file */ | |
163 | #define S_IS_EXTERN(s) ((s)->sy_symbol.n_type & N_EXT) | |
164 | /* True if the symbol has been generated because of a .stabd directive */ | |
165 | #define S_IS_STABD(s) (S_GET_NAME(s) == (char *)0) | |
166 | ||
167 | /* Accessors */ | |
be9618de KR |
168 | /* The name of the symbol */ |
169 | #define S_GET_NAME(s) ((s)->sy_symbol.n_un.n_name) | |
170 | /* The pointer to the string table */ | |
171 | #define S_GET_OFFSET(s) ((s)->sy_symbol.n_un.n_strx) | |
172 | /* The raw type of the symbol */ | |
173 | #define S_GET_RAW_TYPE(s) ((s)->sy_symbol.n_type) | |
174 | /* The type of the symbol */ | |
175 | #define S_GET_TYPE(s) ((s)->sy_symbol.n_type & N_TYPE) | |
176 | /* The numeric value of the segment */ | |
177 | #define S_GET_SEGMENT(s) (N_TYPE_seg[S_GET_TYPE(s)]) | |
178 | /* The n_other expression value */ | |
179 | #define S_GET_OTHER(s) ((s)->sy_symbol.n_other) | |
180 | /* The n_desc expression value */ | |
181 | #define S_GET_DESC(s) ((s)->sy_symbol.n_desc) | |
182 | ||
183 | /* Modifiers */ | |
be9618de KR |
184 | /* Assume that a symbol cannot be simultaneously in more than on segment */ |
185 | /* set segment */ | |
186 | #define S_SET_SEGMENT(s,seg) ((s)->sy_symbol.n_type &= ~N_TYPE,(s)->sy_symbol.n_type|=SEGMENT_TO_SYMBOL_TYPE(seg)) | |
187 | /* The symbol is external */ | |
188 | #define S_SET_EXTERNAL(s) ((s)->sy_symbol.n_type |= N_EXT) | |
189 | /* The symbol is not external */ | |
190 | #define S_CLEAR_EXTERNAL(s) ((s)->sy_symbol.n_type &= ~N_EXT) | |
191 | /* Set the name of the symbol */ | |
192 | #define S_SET_NAME(s,v) ((s)->sy_symbol.n_un.n_name = (v)) | |
193 | /* Set the offset in the string table */ | |
194 | #define S_SET_OFFSET(s,v) ((s)->sy_symbol.n_un.n_strx = (v)) | |
195 | /* Set the n_other expression value */ | |
196 | #define S_SET_OTHER(s,v) ((s)->sy_symbol.n_other = (v)) | |
197 | /* Set the n_desc expression value */ | |
198 | #define S_SET_DESC(s,v) ((s)->sy_symbol.n_desc = (v)) | |
199 | ||
200 | ||
201 | /* File header macro and type definition */ | |
202 | ||
203 | #define H_GET_TEXT_SIZE(h) ((h)->header.a_text) | |
204 | #define H_GET_DATA_SIZE(h) ((h)->header.a_data) | |
205 | #define H_GET_BSS_SIZE(h) ((h)->header.a_bss) | |
206 | ||
207 | #define H_SET_TEXT_SIZE(h,v) ((h)->header.a_text = md_section_align(SEG_TEXT, (v))) | |
208 | #define H_SET_DATA_SIZE(h,v) ((h)->header.a_data = md_section_align(SEG_DATA, (v))) | |
209 | #define H_SET_BSS_SIZE(h,v) ((h)->header.a_bss = md_section_align(SEG_BSS, (v))) | |
210 | ||
211 | #define H_SET_STRING_SIZE(h,v) ((h)->string_table_size = (v)) | |
212 | #define H_SET_SYMBOL_TABLE_SIZE(h,v) ((h)->header.a_syms = (v) * \ | |
213 | sizeof(struct nlist)) | |
214 | ||
be9618de KR |
215 | /* line numbering stuff. */ |
216 | #define OBJ_EMIT_LINENO(a, b, c) {;} | |
217 | ||
218 | #define obj_symbol_new_hook(s) {;} | |
219 | ||
be9618de | 220 | struct fix; |
db4e0f90 KR |
221 | void tc_aout_fix_to_chars PARAMS ((char *where, struct fix *fixP, relax_addressT segment_address)); |
222 | ||
223 | extern int vms_resolve_symbol_redef (); | |
224 | #define RESOLVE_SYMBOL_REDEFINITION(X) vms_resolve_symbol_redef(X) | |
be9618de KR |
225 | |
226 | /* The rest of this file contains definitions for constants used within the actual | |
227 | VMS object file. We do not use a $ in the symbols (as per usual VMS | |
228 | convention) since System V gags on it. */ | |
229 | ||
230 | #define OBJ_S_C_HDR 0 | |
231 | #define OBJ_S_C_HDR_MHD 0 | |
232 | #define OBJ_S_C_HDR_LNM 1 | |
233 | #define OBJ_S_C_HDR_SRC 2 | |
234 | #define OBJ_S_C_HDR_TTL 3 | |
235 | #define OBJ_S_C_HDR_CPR 4 | |
236 | #define OBJ_S_C_HDR_MTC 5 | |
237 | #define OBJ_S_C_HDR_GTX 6 | |
238 | #define OBJ_S_C_GSD 1 | |
239 | #define OBJ_S_C_GSD_PSC 0 | |
240 | #define OBJ_S_C_GSD_SYM 1 | |
241 | #define OBJ_S_C_GSD_EPM 2 | |
242 | #define OBJ_S_C_GSD_PRO 3 | |
243 | #define OBJ_S_C_GSD_SYMW 4 | |
244 | #define OBJ_S_C_GSD_EPMW 5 | |
245 | #define OBJ_S_C_GSD_PROW 6 | |
246 | #define OBJ_S_C_GSD_IDC 7 | |
247 | #define OBJ_S_C_GSD_ENV 8 | |
248 | #define OBJ_S_C_GSD_LSY 9 | |
249 | #define OBJ_S_C_GSD_LEPM 10 | |
250 | #define OBJ_S_C_GSD_LPRO 11 | |
251 | #define OBJ_S_C_GSD_SPSC 12 | |
252 | #define OBJ_S_C_TIR 2 | |
253 | #define OBJ_S_C_EOM 3 | |
254 | #define OBJ_S_C_DBG 4 | |
255 | #define OBJ_S_C_TBT 5 | |
256 | #define OBJ_S_C_LNK 6 | |
257 | #define OBJ_S_C_EOMW 7 | |
258 | #define OBJ_S_C_MAXRECTYP 7 | |
259 | #define OBJ_S_K_SUBTYP 1 | |
260 | #define OBJ_S_C_SUBTYP 1 | |
261 | #define OBJ_S_C_MAXRECSIZ 2048 | |
262 | #define OBJ_S_C_STRLVL 0 | |
263 | #define OBJ_S_C_SYMSIZ 31 | |
264 | #define OBJ_S_C_STOREPLIM -1 | |
265 | #define OBJ_S_C_PSCALILIM 9 | |
266 | \f | |
267 | #define MHD_S_C_MHD 0 | |
268 | #define MHD_S_C_LNM 1 | |
269 | #define MHD_S_C_SRC 2 | |
270 | #define MHD_S_C_TTL 3 | |
271 | #define MHD_S_C_CPR 4 | |
272 | #define MHD_S_C_MTC 5 | |
273 | #define MHD_S_C_GTX 6 | |
274 | #define MHD_S_C_MAXHDRTYP 6 | |
275 | \f | |
276 | #define GSD_S_K_ENTRIES 1 | |
277 | #define GSD_S_C_ENTRIES 1 | |
278 | #define GSD_S_C_PSC 0 | |
279 | #define GSD_S_C_SYM 1 | |
280 | #define GSD_S_C_EPM 2 | |
281 | #define GSD_S_C_PRO 3 | |
282 | #define GSD_S_C_SYMW 4 | |
283 | #define GSD_S_C_EPMW 5 | |
284 | #define GSD_S_C_PROW 6 | |
285 | #define GSD_S_C_IDC 7 | |
286 | #define GSD_S_C_ENV 8 | |
287 | #define GSD_S_C_LSY 9 | |
288 | #define GSD_S_C_LEPM 10 | |
289 | #define GSD_S_C_LPRO 11 | |
290 | #define GSD_S_C_SPSC 12 | |
291 | #define GSD_S_C_SYMV 13 | |
292 | #define GSD_S_C_EPMV 14 | |
293 | #define GSD_S_C_PROV 15 | |
294 | #define GSD_S_C_MAXRECTYP 15 | |
295 | \f | |
296 | #define GSY_S_M_WEAK 1 | |
297 | #define GSY_S_M_DEF 2 | |
298 | #define GSY_S_M_UNI 4 | |
299 | #define GSY_S_M_REL 8 | |
300 | \f | |
301 | #define GPS_S_M_PIC 1 | |
302 | #define GPS_S_M_LIB 2 | |
303 | #define GPS_S_M_OVR 4 | |
304 | #define GPS_S_M_REL 8 | |
305 | #define GPS_S_M_GBL 16 | |
306 | #define GPS_S_M_SHR 32 | |
307 | #define GPS_S_M_EXE 64 | |
308 | #define GPS_S_M_RD 128 | |
309 | #define GPS_S_M_WRT 256 | |
310 | #define GPS_S_M_VEC 512 | |
311 | #define GPS_S_K_NAME 9 | |
312 | #define GPS_S_C_NAME 9 | |
313 | \f | |
314 | #define TIR_S_C_STA_GBL 0 | |
315 | #define TIR_S_C_STA_SB 1 | |
316 | #define TIR_S_C_STA_SW 2 | |
317 | #define TIR_S_C_STA_LW 3 | |
318 | #define TIR_S_C_STA_PB 4 | |
319 | #define TIR_S_C_STA_PW 5 | |
320 | #define TIR_S_C_STA_PL 6 | |
321 | #define TIR_S_C_STA_UB 7 | |
322 | #define TIR_S_C_STA_UW 8 | |
323 | #define TIR_S_C_STA_BFI 9 | |
324 | #define TIR_S_C_STA_WFI 10 | |
325 | #define TIR_S_C_STA_LFI 11 | |
326 | #define TIR_S_C_STA_EPM 12 | |
327 | #define TIR_S_C_STA_CKARG 13 | |
328 | #define TIR_S_C_STA_WPB 14 | |
329 | #define TIR_S_C_STA_WPW 15 | |
330 | #define TIR_S_C_STA_WPL 16 | |
331 | #define TIR_S_C_STA_LSY 17 | |
332 | #define TIR_S_C_STA_LIT 18 | |
333 | #define TIR_S_C_STA_LEPM 19 | |
334 | #define TIR_S_C_MAXSTACOD 19 | |
335 | #define TIR_S_C_MINSTOCOD 20 | |
336 | #define TIR_S_C_STO_SB 20 | |
337 | #define TIR_S_C_STO_SW 21 | |
338 | #define TIR_S_C_STO_L 22 | |
339 | #define TIR_S_C_STO_BD 23 | |
340 | #define TIR_S_C_STO_WD 24 | |
341 | #define TIR_S_C_STO_LD 25 | |
342 | #define TIR_S_C_STO_LI 26 | |
343 | #define TIR_S_C_STO_PIDR 27 | |
344 | #define TIR_S_C_STO_PICR 28 | |
345 | #define TIR_S_C_STO_RSB 29 | |
346 | #define TIR_S_C_STO_RSW 30 | |
347 | #define TIR_S_C_STO_RL 31 | |
348 | #define TIR_S_C_STO_VPS 32 | |
349 | #define TIR_S_C_STO_USB 33 | |
350 | #define TIR_S_C_STO_USW 34 | |
351 | #define TIR_S_C_STO_RUB 35 | |
352 | #define TIR_S_C_STO_RUW 36 | |
353 | #define TIR_S_C_STO_B 37 | |
354 | #define TIR_S_C_STO_W 38 | |
355 | #define TIR_S_C_STO_RB 39 | |
356 | #define TIR_S_C_STO_RW 40 | |
357 | #define TIR_S_C_STO_RIVB 41 | |
358 | #define TIR_S_C_STO_PIRR 42 | |
359 | #define TIR_S_C_MAXSTOCOD 42 | |
360 | #define TIR_S_C_MINOPRCOD 50 | |
361 | #define TIR_S_C_OPR_NOP 50 | |
362 | #define TIR_S_C_OPR_ADD 51 | |
363 | #define TIR_S_C_OPR_SUB 52 | |
364 | #define TIR_S_C_OPR_MUL 53 | |
365 | #define TIR_S_C_OPR_DIV 54 | |
366 | #define TIR_S_C_OPR_AND 55 | |
367 | #define TIR_S_C_OPR_IOR 56 | |
368 | #define TIR_S_C_OPR_EOR 57 | |
369 | #define TIR_S_C_OPR_NEG 58 | |
370 | #define TIR_S_C_OPR_COM 59 | |
371 | #define TIR_S_C_OPR_INSV 60 | |
372 | #define TIR_S_C_OPR_ASH 61 | |
373 | #define TIR_S_C_OPR_USH 62 | |
374 | #define TIR_S_C_OPR_ROT 63 | |
375 | #define TIR_S_C_OPR_SEL 64 | |
376 | #define TIR_S_C_OPR_REDEF 65 | |
377 | #define TIR_S_C_OPR_DFLIT 66 | |
378 | #define TIR_S_C_MAXOPRCOD 66 | |
379 | #define TIR_S_C_MINCTLCOD 80 | |
380 | #define TIR_S_C_CTL_SETRB 80 | |
381 | #define TIR_S_C_CTL_AUGRB 81 | |
382 | #define TIR_S_C_CTL_DFLOC 82 | |
383 | #define TIR_S_C_CTL_STLOC 83 | |
384 | #define TIR_S_C_CTL_STKDL 84 | |
385 | #define TIR_S_C_MAXCTLCOD 84 | |
386 | \f | |
387 | /* | |
388 | * Debugger symbol definitions: These are done by hand, as no | |
389 | * machine-readable version seems | |
390 | * to be available. | |
391 | */ | |
392 | #define DST_S_C_C 7 /* Language == "C" */ | |
393 | #define DST_S_C_VERSION 153 | |
394 | #define DST_S_C_SOURCE 155 /* Source file */ | |
395 | #define DST_S_C_PROLOG 162 | |
396 | #define DST_S_C_BLKBEG 176 /* Beginning of block */ | |
397 | #define DST_S_C_BLKEND 177 /* End of block */ | |
398 | #define DST_S_C_ENTRY 181 | |
399 | #define DST_S_C_PSECT 184 | |
400 | #define DST_S_C_LINE_NUM 185 /* Line Number */ | |
401 | #define DST_S_C_LBLORLIT 186 | |
402 | #define DST_S_C_LABEL 187 | |
403 | #define DST_S_C_MODBEG 188 /* Beginning of module */ | |
404 | #define DST_S_C_MODEND 189 /* End of module */ | |
405 | #define DST_S_C_RTNBEG 190 /* Beginning of routine */ | |
406 | #define DST_S_C_RTNEND 191 /* End of routine */ | |
407 | #define DST_S_C_DELTA_PC_W 1 /* Incr PC */ | |
408 | #define DST_S_C_INCR_LINUM 2 /* Incr Line # */ | |
409 | #define DST_S_C_INCR_LINUM_W 3 /* Incr Line # */ | |
410 | #define DST_S_C_SET_LINUM_INCR 4 | |
411 | #define DST_S_C_SET_LINUM_INCR_W 5 | |
412 | #define DST_S_C_RESET_LINUM_INCR 6 | |
413 | #define DST_S_C_BEG_STMT_MODE 7 | |
414 | #define DST_S_C_END_STMT_MODE 8 | |
415 | #define DST_S_C_SET_LINE_NUM 9 /* Set Line # */ | |
416 | #define DST_S_C_SET_PC 10 | |
417 | #define DST_S_C_SET_PC_W 11 | |
418 | #define DST_S_C_SET_PC_L 12 | |
419 | #define DST_S_C_SET_STMTNUM 13 | |
420 | #define DST_S_C_TERM 14 /* End of lines */ | |
421 | #define DST_S_C_TERM_W 15 /* End of lines */ | |
422 | #define DST_S_C_SET_ABS_PC 16 /* Set PC */ | |
423 | #define DST_S_C_DELTA_PC_L 17 /* Incr PC */ | |
424 | #define DST_S_C_INCR_LINUM_L 18 /* Incr Line # */ | |
425 | #define DST_S_C_SET_LINUM_B 19 /* Set Line # */ | |
426 | #define DST_S_C_SET_LINUM_L 20 /* Set Line # */ | |
427 | #define DST_S_C_TERM_L 21 /* End of lines */ | |
428 | /* these are used with DST_S_C_SOURCE */ | |
429 | #define DST_S_C_SRC_FORMFEED 16 /* ^L counts */ | |
430 | #define DST_S_C_SRC_DECLFILE 1 /* Declare file */ | |
431 | #define DST_S_C_SRC_SETFILE 2 /* Set file */ | |
432 | #define DST_S_C_SRC_SETREC_L 3 /* Set record */ | |
433 | #define DST_S_C_SRC_DEFLINES_W 10 /* # of line */ | |
434 | /* the following are the codes for the various data types. Anything not on | |
435 | * the list is included under 'advanced_type' | |
436 | */ | |
437 | #define DBG_S_C_UCHAR 0x02 | |
438 | #define DBG_S_C_USINT 0x03 | |
439 | #define DBG_S_C_ULINT 0x04 | |
440 | #define DBG_S_C_SCHAR 0x06 | |
441 | #define DBG_S_C_SSINT 0x07 | |
442 | #define DBG_S_C_SLINT 0x08 | |
443 | #define DBG_S_C_REAL4 0x0a | |
444 | #define DBG_S_C_REAL8 0x0b | |
445 | #define DBG_S_C_FUNCTION_ADDR 0x17 | |
446 | #define DBG_S_C_ADVANCED_TYPE 0xa3 | |
447 | /* These are the codes that are used to generate the definitions of struct | |
448 | * union and enum records | |
449 | */ | |
450 | #define DBG_S_C_ENUM_ITEM 0xa4 | |
451 | #define DBG_S_C_ENUM_START 0xa5 | |
452 | #define DBG_S_C_ENUM_END 0xa6 | |
453 | #define DBG_S_C_STRUCT_START 0xab | |
454 | #define DBG_S_C_STRUCT_ITEM 0xff | |
455 | #define DBG_S_C_STRUCT_END 0xac | |
456 | /* These are the codes that are used in the suffix records to determine the | |
457 | * actual data type | |
458 | */ | |
459 | #define DBG_S_C_BASIC 0x01 | |
460 | #define DBG_S_C_BASIC_ARRAY 0x02 | |
461 | #define DBG_S_C_STRUCT 0x03 | |
462 | #define DBG_S_C_POINTER 0x04 | |
463 | #define DBG_S_C_VOID 0x05 | |
464 | #define DBG_S_C_COMPLEX_ARRAY 0x07 | |
465 | /* These codes are used in the generation of the symbol definition records | |
466 | */ | |
467 | #define DBG_S_C_FUNCTION_PARAMETER 0xc9 | |
468 | #define DBG_S_C_LOCAL_SYM 0xd9 | |
be9618de | 469 | /* end of obj-vms.h */ |