1 /* Output VMS debug format symbol table information from GCC.
2 Copyright (C) 1987, 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008
4 Free Software Foundation, Inc.
5 Contributed by Douglas B. Rupp (rupp@gnat.com).
6 Updated by Bernard W. Giroud (bgiroud@users.sourceforge.net).
8 This file is part of GCC.
10 GCC is free software; you can redistribute it and/or modify it under
11 the terms of the GNU General Public License as published by the Free
12 Software Foundation; either version 3, or (at your option) any later
15 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
16 WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING3. If not see
22 <http://www.gnu.org/licenses/>. */
26 #include "coretypes.h"
29 #ifdef VMS_DEBUGGING_INFO
37 #include "langhooks.h"
41 /* Difference in seconds between the VMS Epoch and the Unix Epoch */
42 static const long long vms_epoch_offset = 3506716800ll;
44 /* NOTE: In the comments in this file, many references are made to "Debug
45 Symbol Table". This term is abbreviated as `DST' throughout the remainder
48 typedef struct dst_line_info_struct *dst_line_info_ref;
50 /* Each entry in the line_info_table maintains the file and
51 line number associated with the label generated for that
52 entry. The label gives the PC value associated with
53 the line number entry. */
54 typedef struct dst_line_info_struct
56 unsigned long dst_file_num;
57 unsigned long dst_line_num;
61 typedef struct dst_file_info_struct *dst_file_info_ref;
63 typedef struct dst_file_info_struct
66 unsigned int max_line;
67 unsigned int listing_line_start;
76 /* How to start an assembler comment. */
77 #ifndef ASM_COMMENT_START
78 #define ASM_COMMENT_START ";#"
81 /* Maximum size (in bytes) of an artificially generated label. */
82 #define MAX_ARTIFICIAL_LABEL_BYTES 30
84 /* Make sure we know the sizes of the various types debug can describe. These
85 are only defaults. If the sizes are different for your target, you should
86 override these values by defining the appropriate symbols in your tm.h
89 #define PTR_SIZE 4 /* Must be 32 bits for VMS debug info */
92 /* Pointer to a structure of filenames referenced by this compilation unit. */
93 static dst_file_info_ref file_info_table;
95 /* Total number of entries in the table (i.e. array) pointed to by
96 `file_info_table'. This is the *total* and includes both used and unused
98 static unsigned int file_info_table_allocated;
100 /* Number of entries in the file_info_table which are actually in use. */
101 static unsigned int file_info_table_in_use;
103 /* Size (in elements) of increments by which we may expand the filename
105 #define FILE_TABLE_INCREMENT 64
107 /* A structure to hold basic information for the VMS end
110 typedef struct vms_func_struct
112 const char *vms_func_name;
113 unsigned funcdef_number;
117 typedef struct vms_func_struct *vms_func_ref;
119 static unsigned int func_table_allocated;
120 static unsigned int func_table_in_use;
121 #define FUNC_TABLE_INCREMENT 256
123 /* A pointer to the base of a table that contains frame description
124 information for each routine. */
125 static vms_func_ref func_table;
127 /* Local pointer to the name of the main input file. Initialized in
129 static const char *primary_filename;
131 static char *module_producer;
132 static unsigned int module_language;
134 /* A pointer to the base of a table that contains line information
135 for each source code line in .text in the compilation unit. */
136 static dst_line_info_ref line_info_table;
138 /* Number of elements currently allocated for line_info_table. */
139 static unsigned int line_info_table_allocated;
141 /* Number of elements in line_info_table currently in use. */
142 static unsigned int line_info_table_in_use;
144 /* Size (in elements) of increments by which we may expand line_info_table. */
145 #define LINE_INFO_TABLE_INCREMENT 1024
147 /* Forward declarations for functions defined in this file. */
148 static char *full_name (const char *);
149 static unsigned int lookup_filename (const char *);
150 static void addr_const_to_string (char *, rtx);
151 static int write_debug_header (DST_HEADER *, const char *, int);
152 static int write_debug_addr (const char *, const char *, int);
153 static int write_debug_data1 (unsigned int, const char *, int);
154 static int write_debug_data2 (unsigned int, const char *, int);
155 static int write_debug_data4 (unsigned long, const char *, int);
156 static int write_debug_data8 (unsigned long long, const char *, int);
157 static int write_debug_delta4 (const char *, const char *, const char *, int);
158 static int write_debug_string (const char *, const char *, int);
159 static int write_modbeg (int);
160 static int write_modend (int);
161 static int write_rtnbeg (int, int);
162 static int write_rtnend (int, int);
163 static int write_pclines (int);
164 static int write_srccorr (int, dst_file_info_entry, int);
165 static int write_srccorrs (int);
167 static void vmsdbgout_init (const char *);
168 static void vmsdbgout_finish (const char *);
169 static void vmsdbgout_assembly_start (void);
170 static void vmsdbgout_define (unsigned int, const char *);
171 static void vmsdbgout_undef (unsigned int, const char *);
172 static void vmsdbgout_start_source_file (unsigned int, const char *);
173 static void vmsdbgout_end_source_file (unsigned int);
174 static void vmsdbgout_begin_block (unsigned int, unsigned int);
175 static void vmsdbgout_end_block (unsigned int, unsigned int);
176 static bool vmsdbgout_ignore_block (const_tree);
177 static void vmsdbgout_source_line (unsigned int, const char *);
178 static void vmsdbgout_begin_prologue (unsigned int, const char *);
179 static void vmsdbgout_end_prologue (unsigned int, const char *);
180 static void vmsdbgout_end_function (unsigned int);
181 static void vmsdbgout_end_epilogue (unsigned int, const char *);
182 static void vmsdbgout_begin_function (tree);
183 static void vmsdbgout_decl (tree);
184 static void vmsdbgout_global_decl (tree);
185 static void vmsdbgout_abstract_function (tree);
187 /* The debug hooks structure. */
189 const struct gcc_debug_hooks vmsdbg_debug_hooks
192 vmsdbgout_assembly_start,
195 vmsdbgout_start_source_file,
196 vmsdbgout_end_source_file,
197 vmsdbgout_begin_block,
199 vmsdbgout_ignore_block,
200 vmsdbgout_source_line,
201 vmsdbgout_begin_prologue,
202 vmsdbgout_end_prologue,
203 vmsdbgout_end_epilogue,
204 vmsdbgout_begin_function,
205 vmsdbgout_end_function,
207 vmsdbgout_global_decl,
208 debug_nothing_tree_int, /* type_decl */
209 debug_nothing_tree_tree_tree_bool, /* imported_module_or_decl */
210 debug_nothing_tree, /* deferred_inline_function */
211 vmsdbgout_abstract_function,
212 debug_nothing_rtx, /* label */
213 debug_nothing_int, /* handle_pch */
214 debug_nothing_rtx, /* var_location */
215 debug_nothing_void, /* switch_text_section */
216 0 /* start_end_main_source_file */
219 /* Definitions of defaults for assembler-dependent names of various
220 pseudo-ops and section names.
221 Theses may be overridden in the tm.h file (if necessary) for a particular
223 #ifdef UNALIGNED_SHORT_ASM_OP
224 #undef UNALIGNED_SHORT_ASM_OP
226 #define UNALIGNED_SHORT_ASM_OP ".word"
228 #ifdef UNALIGNED_INT_ASM_OP
229 #undef UNALIGNED_INT_ASM_OP
231 #define UNALIGNED_INT_ASM_OP ".long"
233 #ifdef UNALIGNED_LONG_ASM_OP
234 #undef UNALIGNED_LONG_ASM_OP
236 #define UNALIGNED_LONG_ASM_OP ".long"
238 #ifdef UNALIGNED_DOUBLE_INT_ASM_OP
239 #undef UNALIGNED_DOUBLE_INT_ASM_OP
241 #define UNALIGNED_DOUBLE_INT_ASM_OP ".quad"
246 #define ASM_BYTE_OP ".byte"
248 #define NUMBYTES(I) ((I) < 256 ? 1 : (I) < 65536 ? 2 : 4)
250 #define NUMBYTES0(I) ((I) < 128 ? 0 : (I) < 65536 ? 2 : 4)
252 #ifndef UNALIGNED_PTR_ASM_OP
253 #define UNALIGNED_PTR_ASM_OP \
254 (PTR_SIZE == 8 ? UNALIGNED_DOUBLE_INT_ASM_OP : UNALIGNED_INT_ASM_OP)
257 #ifndef UNALIGNED_OFFSET_ASM_OP
258 #define UNALIGNED_OFFSET_ASM_OP(OFFSET) \
259 (NUMBYTES(OFFSET) == 4 \
260 ? UNALIGNED_LONG_ASM_OP \
261 : (NUMBYTES(OFFSET) == 2 ? UNALIGNED_SHORT_ASM_OP : ASM_BYTE_OP))
264 /* Definitions of defaults for formats and names of various special
265 (artificial) labels which may be generated within this file (when the -g
266 options is used and VMS_DEBUGGING_INFO is in effect. If necessary, these
267 may be overridden from within the tm.h file, but typically, overriding these
268 defaults is unnecessary. */
270 static char text_end_label[MAX_ARTIFICIAL_LABEL_BYTES];
272 #ifndef TEXT_END_LABEL
273 #define TEXT_END_LABEL "Lvetext"
275 #ifndef FUNC_BEGIN_LABEL
276 #define FUNC_BEGIN_LABEL "LVFB"
278 #ifndef FUNC_PROLOG_LABEL
279 #define FUNC_PROLOG_LABEL "LVFP"
281 #ifndef FUNC_END_LABEL
282 #define FUNC_END_LABEL "LVFE"
284 #ifndef BLOCK_BEGIN_LABEL
285 #define BLOCK_BEGIN_LABEL "LVBB"
287 #ifndef BLOCK_END_LABEL
288 #define BLOCK_END_LABEL "LVBE"
290 #ifndef LINE_CODE_LABEL
291 #define LINE_CODE_LABEL "LVM"
294 #ifndef ASM_OUTPUT_DEBUG_DELTA2
295 #define ASM_OUTPUT_DEBUG_DELTA2(FILE,LABEL1,LABEL2) \
298 fprintf ((FILE), "\t%s\t", UNALIGNED_SHORT_ASM_OP); \
299 assemble_name (FILE, LABEL1); \
300 fprintf (FILE, "-"); \
301 assemble_name (FILE, LABEL2); \
306 #ifndef ASM_OUTPUT_DEBUG_DELTA4
307 #define ASM_OUTPUT_DEBUG_DELTA4(FILE,LABEL1,LABEL2) \
310 fprintf ((FILE), "\t%s\t", UNALIGNED_INT_ASM_OP); \
311 assemble_name (FILE, LABEL1); \
312 fprintf (FILE, "-"); \
313 assemble_name (FILE, LABEL2); \
318 #ifndef ASM_OUTPUT_DEBUG_ADDR_DELTA
319 #define ASM_OUTPUT_DEBUG_ADDR_DELTA(FILE,LABEL1,LABEL2) \
322 fprintf ((FILE), "\t%s\t", UNALIGNED_PTR_ASM_OP); \
323 assemble_name (FILE, LABEL1); \
324 fprintf (FILE, "-"); \
325 assemble_name (FILE, LABEL2); \
330 #ifndef ASM_OUTPUT_DEBUG_ADDR
331 #define ASM_OUTPUT_DEBUG_ADDR(FILE,LABEL) \
334 fprintf ((FILE), "\t%s\t", UNALIGNED_PTR_ASM_OP); \
335 assemble_name (FILE, LABEL); \
340 #ifndef ASM_OUTPUT_DEBUG_ADDR_CONST
341 #define ASM_OUTPUT_DEBUG_ADDR_CONST(FILE,ADDR) \
342 fprintf ((FILE), "\t%s\t%s", UNALIGNED_PTR_ASM_OP, (ADDR))
345 #ifndef ASM_OUTPUT_DEBUG_DATA1
346 #define ASM_OUTPUT_DEBUG_DATA1(FILE,VALUE) \
347 fprintf ((FILE), "\t%s\t0x%x", ASM_BYTE_OP, (unsigned char) VALUE)
350 #ifndef ASM_OUTPUT_DEBUG_DATA2
351 #define ASM_OUTPUT_DEBUG_DATA2(FILE,VALUE) \
352 fprintf ((FILE), "\t%s\t0x%x", UNALIGNED_SHORT_ASM_OP, \
353 (unsigned short) VALUE)
356 #ifndef ASM_OUTPUT_DEBUG_DATA4
357 #define ASM_OUTPUT_DEBUG_DATA4(FILE,VALUE) \
358 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_INT_ASM_OP, (unsigned long) VALUE)
361 #ifndef ASM_OUTPUT_DEBUG_DATA
362 #define ASM_OUTPUT_DEBUG_DATA(FILE,VALUE) \
363 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_OFFSET_ASM_OP(VALUE), VALUE)
366 #ifndef ASM_OUTPUT_DEBUG_ADDR_DATA
367 #define ASM_OUTPUT_DEBUG_ADDR_DATA(FILE,VALUE) \
368 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_PTR_ASM_OP, \
369 (unsigned long) VALUE)
372 #ifndef ASM_OUTPUT_DEBUG_DATA8
373 #define ASM_OUTPUT_DEBUG_DATA8(FILE,VALUE) \
374 fprintf ((FILE), "\t%s\t0x%llx", UNALIGNED_DOUBLE_INT_ASM_OP, \
375 (unsigned long long) VALUE)
378 /* This is similar to the default ASM_OUTPUT_ASCII, except that no trailing
379 newline is produced. When flag_verbose_asm is asserted, we add commentary
380 at the end of the line, so we must avoid output of a newline here. */
381 #ifndef ASM_OUTPUT_DEBUG_STRING
382 #define ASM_OUTPUT_DEBUG_STRING(FILE,P) \
385 register int slen = strlen(P); \
386 register const char *p = (P); \
388 fprintf (FILE, "\t.ascii \""); \
389 for (i = 0; i < slen; i++) \
391 register int c = p[i]; \
392 if (c == '\"' || c == '\\') \
394 if (c >= ' ' && c < 0177) \
397 fprintf (FILE, "\\%o", c); \
399 fprintf (FILE, "\""); \
404 /* Convert a reference to the assembler name of a C-level name. This
405 macro has the same effect as ASM_OUTPUT_LABELREF, but copies to
406 a string rather than writing to a file. */
407 #ifndef ASM_NAME_TO_STRING
408 #define ASM_NAME_TO_STRING(STR, NAME) \
411 if ((NAME)[0] == '*') \
412 strcpy (STR, NAME+1); \
414 strcpy (STR, NAME); \
420 /* General utility functions. */
422 /* Convert an integer constant expression into assembler syntax. Addition and
423 subtraction are the only arithmetic that may appear in these expressions.
424 This is an adaptation of output_addr_const in final.c. Here, the target
425 of the conversion is a string buffer. We can't use output_addr_const
426 directly, because it writes to a file. */
429 addr_const_to_string (char *str, rtx x)
436 switch (GET_CODE (x))
439 gcc_assert (flag_pic);
444 ASM_NAME_TO_STRING (buf1, XSTR (x, 0));
449 ASM_GENERATE_INTERNAL_LABEL (buf1, "L", CODE_LABEL_NUMBER (XEXP (x, 0)));
450 ASM_NAME_TO_STRING (buf2, buf1);
455 ASM_GENERATE_INTERNAL_LABEL (buf1, "L", CODE_LABEL_NUMBER (x));
456 ASM_NAME_TO_STRING (buf2, buf1);
461 sprintf (buf1, HOST_WIDE_INT_PRINT_DEC, INTVAL (x));
466 /* This used to output parentheses around the expression, but that does
467 not work on the 386 (either ATT or BSD assembler). */
468 addr_const_to_string (buf1, XEXP (x, 0));
473 if (GET_MODE (x) == VOIDmode)
475 /* We can use %d if the number is one word and positive. */
476 if (CONST_DOUBLE_HIGH (x))
477 sprintf (buf1, HOST_WIDE_INT_PRINT_DOUBLE_HEX,
478 CONST_DOUBLE_HIGH (x), CONST_DOUBLE_LOW (x));
479 else if (CONST_DOUBLE_LOW (x) < 0)
480 sprintf (buf1, HOST_WIDE_INT_PRINT_HEX, CONST_DOUBLE_LOW (x));
482 sprintf (buf1, HOST_WIDE_INT_PRINT_DEC,
483 CONST_DOUBLE_LOW (x));
487 /* We can't handle floating point constants; PRINT_OPERAND must
489 output_operand_lossage ("floating constant misused");
493 /* Some assemblers need integer constants to appear last (eg masm). */
494 if (GET_CODE (XEXP (x, 0)) == CONST_INT)
496 addr_const_to_string (buf1, XEXP (x, 1));
498 if (INTVAL (XEXP (x, 0)) >= 0)
500 addr_const_to_string (buf1, XEXP (x, 0));
505 addr_const_to_string (buf1, XEXP (x, 0));
507 if (INTVAL (XEXP (x, 1)) >= 0)
509 addr_const_to_string (buf1, XEXP (x, 1));
515 /* Avoid outputting things like x-x or x+5-x, since some assemblers
516 can't handle that. */
517 x = simplify_subtraction (x);
518 if (GET_CODE (x) != MINUS)
521 addr_const_to_string (buf1, XEXP (x, 0));
524 if (GET_CODE (XEXP (x, 1)) == CONST_INT
525 && INTVAL (XEXP (x, 1)) < 0)
528 addr_const_to_string (buf1, XEXP (x, 1));
534 addr_const_to_string (buf1, XEXP (x, 1));
541 addr_const_to_string (buf1, XEXP (x, 0));
546 output_operand_lossage ("invalid expression as operand");
550 /* Output the debug header HEADER. Also output COMMENT if flag_verbose_asm is
551 set. Return the header size. Just return the size if DOSIZEONLY is
555 write_debug_header (DST_HEADER *header, const char *comment, int dosizeonly)
559 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file,
560 header->dst__header_length.dst_w_length);
562 if (flag_verbose_asm)
563 fprintf (asm_out_file, "\t%s record length", ASM_COMMENT_START);
564 fputc ('\n', asm_out_file);
566 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file,
567 header->dst__header_type.dst_w_type);
569 if (flag_verbose_asm)
570 fprintf (asm_out_file, "\t%s record type (%s)", ASM_COMMENT_START,
573 fputc ('\n', asm_out_file);
579 /* Output the address of SYMBOL. Also output COMMENT if flag_verbose_asm is
580 set. Return the address size. Just return the size if DOSIZEONLY is
584 write_debug_addr (const char *symbol, const char *comment, int dosizeonly)
588 ASM_OUTPUT_DEBUG_ADDR (asm_out_file, symbol);
589 if (flag_verbose_asm)
590 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
591 fputc ('\n', asm_out_file);
597 /* Output the single byte DATA1. Also output COMMENT if flag_verbose_asm is
598 set. Return the data size. Just return the size if DOSIZEONLY is
602 write_debug_data1 (unsigned int data1, const char *comment, int dosizeonly)
606 ASM_OUTPUT_DEBUG_DATA1 (asm_out_file, data1);
607 if (flag_verbose_asm)
608 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
609 fputc ('\n', asm_out_file);
615 /* Output the single word DATA2. Also output COMMENT if flag_verbose_asm is
616 set. Return the data size. Just return the size if DOSIZEONLY is
620 write_debug_data2 (unsigned int data2, const char *comment, int dosizeonly)
624 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file, data2);
625 if (flag_verbose_asm)
626 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
627 fputc ('\n', asm_out_file);
633 /* Output double word DATA4. Also output COMMENT if flag_verbose_asm is set.
634 Return the data size. Just return the size if DOSIZEONLY is nonzero. */
637 write_debug_data4 (unsigned long data4, const char *comment, int dosizeonly)
641 ASM_OUTPUT_DEBUG_DATA4 (asm_out_file, data4);
642 if (flag_verbose_asm)
643 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
644 fputc ('\n', asm_out_file);
650 /* Output quad word DATA8. Also output COMMENT if flag_verbose_asm is set.
651 Return the data size. Just return the size if DOSIZEONLY is nonzero. */
654 write_debug_data8 (unsigned long long data8, const char *comment,
659 ASM_OUTPUT_DEBUG_DATA8 (asm_out_file, data8);
660 if (flag_verbose_asm)
661 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
662 fputc ('\n', asm_out_file);
668 /* Output the difference between LABEL1 and LABEL2. Also output COMMENT if
669 flag_verbose_asm is set. Return the data size. Just return the size if
670 DOSIZEONLY is nonzero. */
673 write_debug_delta4 (const char *label1, const char *label2,
674 const char *comment, int dosizeonly)
678 ASM_OUTPUT_DEBUG_DELTA4 (asm_out_file, label1, label2);
679 if (flag_verbose_asm)
680 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
681 fputc ('\n', asm_out_file);
687 /* Output a character string STRING. Also write COMMENT if flag_verbose_asm is
688 set. Return the string length. Just return the length if DOSIZEONLY is
692 write_debug_string (const char *string, const char *comment, int dosizeonly)
696 ASM_OUTPUT_DEBUG_STRING (asm_out_file, string);
697 if (flag_verbose_asm)
698 fprintf (asm_out_file, "\t%s %s", ASM_COMMENT_START, comment);
699 fputc ('\n', asm_out_file);
702 return strlen (string);
705 /* Output a module begin header and return the header size. Just return the
706 size if DOSIZEONLY is nonzero. */
709 write_modbeg (int dosizeonly)
711 DST_MODULE_BEGIN modbeg;
714 char *module_name, *m;
719 /* Assumes primary filename has Unix syntax file spec. */
720 module_name = xstrdup (lbasename (primary_filename));
722 m = strrchr (module_name, '.');
726 modnamelen = strlen (module_name);
727 for (i = 0; i < modnamelen; i++)
728 module_name[i] = TOUPPER (module_name[i]);
730 prodnamelen = strlen (module_producer);
732 modbeg.dst_a_modbeg_header.dst__header_length.dst_w_length
733 = DST_K_MODBEG_SIZE + modnamelen + DST_K_MB_TRLR_SIZE + prodnamelen - 1;
734 modbeg.dst_a_modbeg_header.dst__header_type.dst_w_type = DST_K_MODBEG;
735 modbeg.dst_b_modbeg_flags.dst_v_modbeg_hide = 0;
736 modbeg.dst_b_modbeg_flags.dst_v_modbeg_version = 1;
737 modbeg.dst_b_modbeg_flags.dst_v_modbeg_unused = 0;
738 modbeg.dst_b_modbeg_unused = 0;
739 modbeg.dst_l_modbeg_language = module_language;
740 modbeg.dst_w_version_major = DST_K_VERSION_MAJOR;
741 modbeg.dst_w_version_minor = DST_K_VERSION_MINOR;
742 modbeg.dst_b_modbeg_name = strlen (module_name);
744 mb_trlr.dst_b_compiler = strlen (module_producer);
746 totsize += write_debug_header (&modbeg.dst_a_modbeg_header,
747 "modbeg", dosizeonly);
748 totsize += write_debug_data1 (*((char *) &modbeg.dst_b_modbeg_flags),
749 "flags", dosizeonly);
750 totsize += write_debug_data1 (modbeg.dst_b_modbeg_unused,
751 "unused", dosizeonly);
752 totsize += write_debug_data4 (modbeg.dst_l_modbeg_language,
753 "language", dosizeonly);
754 totsize += write_debug_data2 (modbeg.dst_w_version_major,
755 "DST major version", dosizeonly);
756 totsize += write_debug_data2 (modbeg.dst_w_version_minor,
757 "DST minor version", dosizeonly);
758 totsize += write_debug_data1 (modbeg.dst_b_modbeg_name,
759 "length of module name", dosizeonly);
760 totsize += write_debug_string (module_name, "module name", dosizeonly);
761 totsize += write_debug_data1 (mb_trlr.dst_b_compiler,
762 "length of compiler name", dosizeonly);
763 totsize += write_debug_string (module_producer, "compiler name", dosizeonly);
768 /* Output a module end trailer and return the trailer size. Just return
769 the size if DOSIZEONLY is nonzero. */
772 write_modend (int dosizeonly)
774 DST_MODULE_END modend;
777 modend.dst_a_modend_header.dst__header_length.dst_w_length
778 = DST_K_MODEND_SIZE - 1;
779 modend.dst_a_modend_header.dst__header_type.dst_w_type = DST_K_MODEND;
781 totsize += write_debug_header (&modend.dst_a_modend_header, "modend",
787 /* Output a routine begin header routine RTNNUM and return the header size.
788 Just return the size if DOSIZEONLY is nonzero. */
791 write_rtnbeg (int rtnnum, int dosizeonly)
797 char label[MAX_ARTIFICIAL_LABEL_BYTES];
798 DST_ROUTINE_BEGIN rtnbeg;
800 vms_func_ref fde = &func_table[rtnnum];
802 rtnname = fde->vms_func_name;
803 rtnnamelen = strlen (rtnname);
804 rtnentryname = concat (rtnname, "..en", NULL);
806 if (!strcmp (rtnname, "main"))
809 const char *go = "TRANSFER$BREAK$GO";
811 /* This command isn't documented in DSTRECORDS, so it's made to
812 look like what DEC C does */
814 /* header size - 1st byte + flag byte + STO_LW size
815 + string count byte + string length */
816 header.dst__header_length.dst_w_length
817 = DST_K_DST_HEADER_SIZE - 1 + 1 + 4 + 1 + strlen (go);
818 header.dst__header_type.dst_w_type = 0x17;
820 totsize += write_debug_header (&header, "transfer", dosizeonly);
822 /* I think this is a flag byte, but I don't know what this flag means */
823 totsize += write_debug_data1 (0x1, "flags ???", dosizeonly);
825 /* Routine Begin PD Address */
826 totsize += write_debug_addr (rtnname, "main procedure descriptor",
828 totsize += write_debug_data1 (strlen (go), "length of main_name",
830 totsize += write_debug_string (go, "main name", dosizeonly);
833 /* The header length never includes the length byte. */
834 rtnbeg.dst_a_rtnbeg_header.dst__header_length.dst_w_length
835 = DST_K_RTNBEG_SIZE + rtnnamelen - 1;
836 rtnbeg.dst_a_rtnbeg_header.dst__header_type.dst_w_type = DST_K_RTNBEG;
837 rtnbeg.dst_b_rtnbeg_flags.dst_v_rtnbeg_unused = 0;
838 rtnbeg.dst_b_rtnbeg_flags.dst_v_rtnbeg_unalloc = 0;
839 rtnbeg.dst_b_rtnbeg_flags.dst_v_rtnbeg_prototype = 0;
840 rtnbeg.dst_b_rtnbeg_flags.dst_v_rtnbeg_inlined = 0;
841 rtnbeg.dst_b_rtnbeg_flags.dst_v_rtnbeg_no_call = 1;
842 rtnbeg.dst_b_rtnbeg_name = rtnnamelen;
844 totsize += write_debug_header (&rtnbeg.dst_a_rtnbeg_header, "rtnbeg",
846 totsize += write_debug_data1 (*((char *) &rtnbeg.dst_b_rtnbeg_flags),
847 "flags", dosizeonly);
849 /* Routine Begin Address */
850 totsize += write_debug_addr (rtnentryname, "routine entry name", dosizeonly);
852 /* Routine Begin PD Address */
853 totsize += write_debug_addr (rtnname, "routine procedure descriptor",
856 /* Routine Begin Name */
857 totsize += write_debug_data1 (rtnbeg.dst_b_rtnbeg_name,
858 "length of routine name", dosizeonly);
860 totsize += write_debug_string (rtnname, "routine name", dosizeonly);
864 if (debug_info_level > DINFO_LEVEL_TERSE)
866 prolog.dst_a_prolog_header.dst__header_length.dst_w_length
867 = DST_K_PROLOG_SIZE - 1;
868 prolog.dst_a_prolog_header.dst__header_type.dst_w_type = DST_K_PROLOG;
870 totsize += write_debug_header (&prolog.dst_a_prolog_header, "prolog",
873 ASM_GENERATE_INTERNAL_LABEL (label, FUNC_PROLOG_LABEL, fde->funcdef_number);
874 totsize += write_debug_addr (label, "prolog breakpoint addr",
881 /* Output a routine end trailer for routine RTNNUM and return the header size.
882 Just return the size if DOSIZEONLY is nonzero. */
885 write_rtnend (int rtnnum, int dosizeonly)
887 DST_ROUTINE_END rtnend;
888 char label1[MAX_ARTIFICIAL_LABEL_BYTES];
889 char label2[MAX_ARTIFICIAL_LABEL_BYTES];
891 vms_func_ref fde = &func_table[rtnnum];
892 int corrected_rtnnum = fde->funcdef_number;
896 rtnend.dst_a_rtnend_header.dst__header_length.dst_w_length
897 = DST_K_RTNEND_SIZE - 1;
898 rtnend.dst_a_rtnend_header.dst__header_type.dst_w_type = DST_K_RTNEND;
899 rtnend.dst_b_rtnend_unused = 0;
900 rtnend.dst_l_rtnend_size = 0; /* Calculated below. */
902 totsize += write_debug_header (&rtnend.dst_a_rtnend_header, "rtnend",
904 totsize += write_debug_data1 (rtnend.dst_b_rtnend_unused, "unused",
907 ASM_GENERATE_INTERNAL_LABEL (label1, FUNC_BEGIN_LABEL, corrected_rtnnum);
908 ASM_GENERATE_INTERNAL_LABEL (label2, FUNC_END_LABEL, corrected_rtnnum);
909 totsize += write_debug_delta4 (label2, label1, "routine size", dosizeonly);
914 #define K_DELTA_PC(I) \
915 ((I) < 128 ? -(I) : (I) < 65536 ? DST_K_DELTA_PC_W : DST_K_DELTA_PC_L)
917 #define K_SET_LINUM(I) \
918 ((I) < 256 ? DST_K_SET_LINUM_B \
919 : (I) < 65536 ? DST_K_SET_LINUM : DST_K_SET_LINUM_L)
921 #define K_INCR_LINUM(I) \
922 ((I) < 256 ? DST_K_INCR_LINUM \
923 : (I) < 65536 ? DST_K_INCR_LINUM_W : DST_K_INCR_LINUM_L)
925 /* Output the PC to line number correlations and return the size. Just return
926 the size if DOSIZEONLY is nonzero */
929 write_pclines (int dosizeonly)
936 DST_LINE_NUM_HEADER line_num;
937 DST_PCLINE_COMMANDS pcline;
938 char label[MAX_ARTIFICIAL_LABEL_BYTES];
939 char lastlabel[MAX_ARTIFICIAL_LABEL_BYTES];
943 max_line = file_info_table[1].max_line;
944 file_info_table[1].listing_line_start = linestart;
945 linestart = linestart + ((max_line / 100000) + 1) * 100000;
947 for (i = 2; i < file_info_table_in_use; i++)
949 max_line = file_info_table[i].max_line;
950 file_info_table[i].listing_line_start = linestart;
951 linestart = linestart + ((max_line / 10000) + 1) * 10000;
954 /* Set starting address to beginning of text section. */
955 line_num.dst_a_line_num_header.dst__header_length.dst_w_length = 8;
956 line_num.dst_a_line_num_header.dst__header_type.dst_w_type = DST_K_LINE_NUM;
957 pcline.dst_b_pcline_command = DST_K_SET_ABS_PC;
959 totsize += write_debug_header (&line_num.dst_a_line_num_header,
960 "line_num", dosizeonly);
961 totsize += write_debug_data1 (pcline.dst_b_pcline_command,
962 "line_num (SET ABS PC)", dosizeonly);
968 ASM_OUTPUT_DEBUG_ADDR (asm_out_file, TEXT_SECTION_ASM_OP);
969 if (flag_verbose_asm)
970 fprintf (asm_out_file, "\t%s line_num", ASM_COMMENT_START);
971 fputc ('\n', asm_out_file);
974 fn = line_info_table[1].dst_file_num;
975 ln = (file_info_table[fn].listing_line_start
976 + line_info_table[1].dst_line_num);
977 line_num.dst_a_line_num_header.dst__header_length.dst_w_length = 4 + 4;
978 pcline.dst_b_pcline_command = DST_K_SET_LINUM_L;
980 totsize += write_debug_header (&line_num.dst_a_line_num_header,
981 "line_num", dosizeonly);
982 totsize += write_debug_data1 (pcline.dst_b_pcline_command,
983 "line_num (SET LINUM LONG)", dosizeonly);
985 sprintf (buff, "line_num (%d)", ln ? ln - 1 : 0);
986 totsize += write_debug_data4 (ln ? ln - 1 : 0, buff, dosizeonly);
989 strcpy (lastlabel, TEXT_SECTION_ASM_OP);
990 for (i = 1; i < line_info_table_in_use; i++)
994 fn = line_info_table[i].dst_file_num;
995 ln = (file_info_table[fn].listing_line_start
996 + line_info_table[i].dst_line_num);
999 extrabytes = 5; /* NUMBYTES (ln - lastln - 1) + 1; */
1000 else if (ln <= lastln)
1001 extrabytes = 5; /* NUMBYTES (ln - 1) + 1; */
1005 line_num.dst_a_line_num_header.dst__header_length.dst_w_length
1008 totsize += write_debug_header
1009 (&line_num.dst_a_line_num_header, "line_num", dosizeonly);
1011 if (ln - lastln > 1)
1013 int lndif = ln - lastln - 1;
1015 /* K_INCR_LINUM (lndif); */
1016 pcline.dst_b_pcline_command = DST_K_INCR_LINUM_L;
1018 totsize += write_debug_data1 (pcline.dst_b_pcline_command,
1019 "line_num (INCR LINUM LONG)",
1022 sprintf (buff, "line_num (%d)", lndif);
1023 totsize += write_debug_data4 (lndif, buff, dosizeonly);
1025 else if (ln <= lastln)
1027 /* K_SET_LINUM (ln-1); */
1028 pcline.dst_b_pcline_command = DST_K_SET_LINUM_L;
1030 totsize += write_debug_data1 (pcline.dst_b_pcline_command,
1031 "line_num (SET LINUM LONG)",
1034 sprintf (buff, "line_num (%d)", ln - 1);
1035 totsize += write_debug_data4 (ln - 1, buff, dosizeonly);
1038 pcline.dst_b_pcline_command = DST_K_DELTA_PC_L;
1040 totsize += write_debug_data1 (pcline.dst_b_pcline_command,
1041 "line_num (DELTA PC LONG)", dosizeonly);
1043 ASM_GENERATE_INTERNAL_LABEL (label, LINE_CODE_LABEL, i);
1044 totsize += write_debug_delta4 (label, lastlabel, "increment line_num",
1048 strcpy (lastlabel, label);
1054 /* Output a source correlation for file FILEID using information saved in
1055 FILE_INFO_ENTRY and return the size. Just return the size if DOSIZEONLY is
1059 write_srccorr (int fileid, dst_file_info_entry file_info_entry,
1062 int src_command_size;
1063 int linesleft = file_info_entry.max_line;
1064 int linestart = file_info_entry.listing_line_start;
1065 int flen = file_info_entry.flen;
1067 DST_SOURCE_CORR src_header;
1068 DST_SRC_COMMAND src_command;
1069 DST_SRC_COMMAND src_command_sf;
1070 DST_SRC_COMMAND src_command_sl;
1071 DST_SRC_COMMAND src_command_sr;
1072 DST_SRC_COMMAND src_command_dl;
1073 DST_SRC_CMDTRLR src_cmdtrlr;
1079 src_header.dst_a_source_corr_header.dst__header_length.dst_w_length
1080 = DST_K_SOURCE_CORR_HEADER_SIZE + 1 - 1;
1081 src_header.dst_a_source_corr_header.dst__header_type.dst_w_type
1083 src_command.dst_b_src_command = DST_K_SRC_FORMFEED;
1085 totsize += write_debug_header (&src_header.dst_a_source_corr_header,
1086 "source corr", dosizeonly);
1088 totsize += write_debug_data1 (src_command.dst_b_src_command,
1089 "source_corr (SRC FORMFEED)",
1094 = DST_K_SRC_COMMAND_SIZE + flen + DST_K_SRC_CMDTRLR_SIZE;
1095 src_command.dst_b_src_command = DST_K_SRC_DECLFILE;
1096 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_length
1097 = src_command_size - 2;
1098 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_flags = 0;
1099 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_w_src_df_fileid
1101 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_q_src_df_rms_cdt
1102 = file_info_entry.cdt;
1103 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_l_src_df_rms_ebk
1104 = file_info_entry.ebk;
1105 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_w_src_df_rms_ffb
1106 = file_info_entry.ffb;
1107 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_rms_rfo
1108 = file_info_entry.rfo;
1109 src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_filename
1110 = file_info_entry.flen;
1112 src_header.dst_a_source_corr_header.dst__header_length.dst_w_length
1113 = DST_K_SOURCE_CORR_HEADER_SIZE + src_command_size - 1;
1114 src_header.dst_a_source_corr_header.dst__header_type.dst_w_type
1117 src_cmdtrlr.dst_b_src_df_libmodname = 0;
1119 totsize += write_debug_header (&src_header.dst_a_source_corr_header,
1120 "source corr", dosizeonly);
1121 totsize += write_debug_data1 (src_command.dst_b_src_command,
1122 "source_corr (DECL SRC FILE)", dosizeonly);
1123 totsize += write_debug_data1
1124 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_length,
1125 "source_corr (length)", dosizeonly);
1127 totsize += write_debug_data1
1128 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_flags,
1129 "source_corr (flags)", dosizeonly);
1131 totsize += write_debug_data2
1132 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_w_src_df_fileid,
1133 "source_corr (fileid)", dosizeonly);
1135 totsize += write_debug_data8
1136 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_q_src_df_rms_cdt,
1137 "source_corr (creation date)", dosizeonly);
1139 totsize += write_debug_data4
1140 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_l_src_df_rms_ebk,
1141 "source_corr (EOF block number)", dosizeonly);
1143 totsize += write_debug_data2
1144 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_w_src_df_rms_ffb,
1145 "source_corr (first free byte)", dosizeonly);
1147 totsize += write_debug_data1
1148 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_rms_rfo,
1149 "source_corr (record and file organization)", dosizeonly);
1151 totsize += write_debug_data1
1152 (src_command.dst_a_src_cmd_fields.dst_a_src_decl_src.dst_b_src_df_filename,
1153 "source_corr (filename length)", dosizeonly);
1155 totsize += write_debug_string (remap_debug_filename (
1156 file_info_entry.file_name),
1157 "source file name", dosizeonly);
1158 totsize += write_debug_data1 (src_cmdtrlr.dst_b_src_df_libmodname,
1159 "source_corr (libmodname)", dosizeonly);
1161 src_command_sf.dst_b_src_command = DST_K_SRC_SETFILE;
1162 src_command_sf.dst_a_src_cmd_fields.dst_w_src_unsword = fileid;
1164 src_command_sr.dst_b_src_command = DST_K_SRC_SETREC_W;
1165 src_command_sr.dst_a_src_cmd_fields.dst_w_src_unsword = 1;
1167 src_command_sl.dst_b_src_command = DST_K_SRC_SETLNUM_L;
1168 src_command_sl.dst_a_src_cmd_fields.dst_l_src_unslong = linestart + 1;
1170 src_command_dl.dst_b_src_command = DST_K_SRC_DEFLINES_W;
1172 if (linesleft > 65534)
1173 linesleft = linesleft - 65534, linestodo = 65534;
1175 linestodo = linesleft, linesleft = 0;
1177 src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword = linestodo;
1179 src_header.dst_a_source_corr_header.dst__header_length.dst_w_length
1180 = DST_K_SOURCE_CORR_HEADER_SIZE + 3 + 3 + 5 + 3 - 1;
1181 src_header.dst_a_source_corr_header.dst__header_type.dst_w_type
1184 if (src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword)
1186 totsize += write_debug_header (&src_header.dst_a_source_corr_header,
1187 "source corr", dosizeonly);
1189 totsize += write_debug_data1 (src_command_sf.dst_b_src_command,
1190 "source_corr (src setfile)", dosizeonly);
1192 totsize += write_debug_data2
1193 (src_command_sf.dst_a_src_cmd_fields.dst_w_src_unsword,
1194 "source_corr (fileid)", dosizeonly);
1196 totsize += write_debug_data1 (src_command_sr.dst_b_src_command,
1197 "source_corr (setrec)", dosizeonly);
1199 totsize += write_debug_data2
1200 (src_command_sr.dst_a_src_cmd_fields.dst_w_src_unsword,
1201 "source_corr (recnum)", dosizeonly);
1203 totsize += write_debug_data1 (src_command_sl.dst_b_src_command,
1204 "source_corr (setlnum)", dosizeonly);
1206 totsize += write_debug_data4
1207 (src_command_sl.dst_a_src_cmd_fields.dst_l_src_unslong,
1208 "source_corr (linenum)", dosizeonly);
1210 totsize += write_debug_data1 (src_command_dl.dst_b_src_command,
1211 "source_corr (deflines)", dosizeonly);
1213 sprintf (buff, "source_corr (%d)",
1214 src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword);
1215 totsize += write_debug_data2
1216 (src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword,
1219 while (linesleft > 0)
1221 src_header.dst_a_source_corr_header.dst__header_length.dst_w_length
1222 = DST_K_SOURCE_CORR_HEADER_SIZE + 3 - 1;
1223 src_header.dst_a_source_corr_header.dst__header_type.dst_w_type
1225 src_command_dl.dst_b_src_command = DST_K_SRC_DEFLINES_W;
1227 if (linesleft > 65534)
1228 linesleft = linesleft - 65534, linestodo = 65534;
1230 linestodo = linesleft, linesleft = 0;
1232 src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword = linestodo;
1234 totsize += write_debug_header (&src_header.dst_a_source_corr_header,
1235 "source corr", dosizeonly);
1236 totsize += write_debug_data1 (src_command_dl.dst_b_src_command,
1237 "source_corr (deflines)", dosizeonly);
1238 sprintf (buff, "source_corr (%d)",
1239 src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword);
1240 totsize += write_debug_data2
1241 (src_command_dl.dst_a_src_cmd_fields.dst_w_src_unsword,
1249 /* Output all the source correlation entries and return the size. Just return
1250 the size if DOSIZEONLY is nonzero. */
1253 write_srccorrs (int dosizeonly)
1258 for (i = 1; i < file_info_table_in_use; i++)
1259 totsize += write_srccorr (i, file_info_table[i], dosizeonly);
1264 /* Output a marker (i.e. a label) for the beginning of a function, before
1268 vmsdbgout_begin_prologue (unsigned int line, const char *file)
1270 char label[MAX_ARTIFICIAL_LABEL_BYTES];
1272 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1273 (*dwarf2_debug_hooks.begin_prologue) (line, file);
1275 if (debug_info_level > DINFO_LEVEL_NONE)
1277 ASM_GENERATE_INTERNAL_LABEL (label, FUNC_BEGIN_LABEL,
1278 current_function_funcdef_no);
1279 ASM_OUTPUT_LABEL (asm_out_file, label);
1283 /* Output a marker (i.e. a label) for the beginning of a function, after
1287 vmsdbgout_end_prologue (unsigned int line, const char *file)
1289 char label[MAX_ARTIFICIAL_LABEL_BYTES];
1291 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1292 (*dwarf2_debug_hooks.end_prologue) (line, file);
1294 if (debug_info_level > DINFO_LEVEL_TERSE)
1296 ASM_GENERATE_INTERNAL_LABEL (label, FUNC_PROLOG_LABEL,
1297 current_function_funcdef_no);
1298 ASM_OUTPUT_LABEL (asm_out_file, label);
1300 /* VMS PCA expects every PC range to correlate to some line and file. */
1301 vmsdbgout_source_line (line, file);
1305 /* No output for VMS debug, but make obligatory call to Dwarf2 debug */
1308 vmsdbgout_end_function (unsigned int line)
1310 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1311 (*dwarf2_debug_hooks.end_function) (line);
1314 /* Output a marker (i.e. a label) for the absolute end of the generated code
1315 for a function definition. This gets called *after* the epilogue code has
1319 vmsdbgout_end_epilogue (unsigned int line, const char *file)
1321 char label[MAX_ARTIFICIAL_LABEL_BYTES];
1323 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1324 (*dwarf2_debug_hooks.end_epilogue) (line, file);
1326 if (debug_info_level > DINFO_LEVEL_NONE)
1328 /* Output a label to mark the endpoint of the code generated for this
1330 ASM_GENERATE_INTERNAL_LABEL (label, FUNC_END_LABEL,
1331 current_function_funcdef_no);
1332 ASM_OUTPUT_LABEL (asm_out_file, label);
1334 /* VMS PCA expects every PC range to correlate to some line and file. */
1335 vmsdbgout_source_line (line, file);
1339 /* Output a marker (i.e. a label) for the beginning of the generated code for
1343 vmsdbgout_begin_block (register unsigned line, register unsigned blocknum)
1345 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1346 (*dwarf2_debug_hooks.begin_block) (line, blocknum);
1348 if (debug_info_level > DINFO_LEVEL_TERSE)
1349 targetm.asm_out.internal_label (asm_out_file, BLOCK_BEGIN_LABEL, blocknum);
1352 /* Output a marker (i.e. a label) for the end of the generated code for a
1356 vmsdbgout_end_block (register unsigned line, register unsigned blocknum)
1358 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1359 (*dwarf2_debug_hooks.end_block) (line, blocknum);
1361 if (debug_info_level > DINFO_LEVEL_TERSE)
1362 targetm.asm_out.internal_label (asm_out_file, BLOCK_END_LABEL, blocknum);
1365 /* Not implemented in VMS Debug. */
1368 vmsdbgout_ignore_block (const_tree block)
1372 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1373 retval = (*dwarf2_debug_hooks.ignore_block) (block);
1378 /* Add an entry for function DECL into the func_table. */
1381 vmsdbgout_begin_function (tree decl)
1383 const char *name = XSTR (XEXP (DECL_RTL (decl), 0), 0);
1386 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1387 (*dwarf2_debug_hooks.begin_function) (decl);
1389 if (func_table_in_use == func_table_allocated)
1391 func_table_allocated += FUNC_TABLE_INCREMENT;
1393 = (vms_func_ref) xrealloc (func_table,
1394 func_table_allocated * sizeof (vms_func_node));
1397 /* Add the new entry to the end of the function name table. */
1398 fde = &func_table[func_table_in_use++];
1399 fde->vms_func_name = xstrdup (name);
1400 fde->funcdef_number = current_function_funcdef_no;
1404 static char fullname_buff [4096];
1406 /* Return the full file specification for FILENAME. The specification must be
1407 in VMS syntax in order to be processed by VMS Debug. */
1410 full_name (const char *filename)
1413 FILE *fp = fopen (filename, "r");
1415 fgetname (fp, fullname_buff, 1);
1418 getcwd (fullname_buff, sizeof (fullname_buff));
1420 strcat (fullname_buff, "/");
1421 strcat (fullname_buff, filename);
1423 /* ??? Insert hairy code here to translate Unix style file specification
1427 return fullname_buff;
1430 /* Lookup a filename (in the list of filenames that we know about here in
1431 vmsdbgout.c) and return its "index". The index of each (known) filename is
1432 just a unique number which is associated with only that one filename. We
1433 need such numbers for the sake of generating labels and references
1434 to those files numbers. If the filename given as an argument is not
1435 found in our current list, add it to the list and assign it the next
1436 available unique index number. In order to speed up searches, we remember
1437 the index of the filename was looked up last. This handles the majority of
1441 lookup_filename (const char *file_name)
1443 static unsigned int last_file_lookup_index = 0;
1445 register unsigned i;
1452 struct stat statbuf;
1454 if (stat (file_name, &statbuf) == 0)
1460 /* Adjust for GMT. */
1461 ts = (struct tm *) localtime (&statbuf.st_ctime);
1462 gmtoff = ts->tm_gmtoff;
1464 /* VMS has multiple file format types. */
1465 rfo = statbuf.st_fab_rfm;
1467 /* Is GMT adjustment an issue with a cross-compiler? */
1470 /* Assume stream LF type file. */
1473 cdt = 10000000 * (statbuf.st_ctime + gmtoff + vms_epoch_offset);
1474 ebk = statbuf.st_size / 512 + 1;
1475 ffb = statbuf.st_size - ((statbuf.st_size / 512) * 512);
1476 fnam = full_name (file_name);
1477 flen = strlen (fnam);
1489 /* Check to see if the file name that was searched on the previous call
1490 matches this file name. If so, return the index. */
1491 if (last_file_lookup_index != 0)
1493 fn = file_info_table[last_file_lookup_index].file_name;
1494 if (strcmp (fnam, fn) == 0)
1495 return last_file_lookup_index;
1498 /* Didn't match the previous lookup, search the table */
1499 for (i = 1; i < file_info_table_in_use; ++i)
1501 fn = file_info_table[i].file_name;
1502 if (strcmp (fnam, fn) == 0)
1504 last_file_lookup_index = i;
1509 /* Prepare to add a new table entry by making sure there is enough space in
1510 the table to do so. If not, expand the current table. */
1511 if (file_info_table_in_use == file_info_table_allocated)
1514 file_info_table_allocated += FILE_TABLE_INCREMENT;
1515 file_info_table = XRESIZEVEC (dst_file_info_entry, file_info_table,
1516 file_info_table_allocated);
1519 /* Add the new entry to the end of the filename table. */
1520 file_info_table[file_info_table_in_use].file_name = xstrdup (fnam);
1521 file_info_table[file_info_table_in_use].max_line = 0;
1522 file_info_table[file_info_table_in_use].cdt = cdt;
1523 file_info_table[file_info_table_in_use].ebk = ebk;
1524 file_info_table[file_info_table_in_use].ffb = ffb;
1525 file_info_table[file_info_table_in_use].rfo = rfo;
1526 file_info_table[file_info_table_in_use].flen = flen;
1528 last_file_lookup_index = file_info_table_in_use++;
1529 return last_file_lookup_index;
1532 /* Output a label to mark the beginning of a source code line entry
1533 and record information relating to this source line, in
1534 'line_info_table' for later output of the .debug_line section. */
1537 vmsdbgout_source_line (register unsigned line, register const char *filename)
1539 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1540 (*dwarf2_debug_hooks.source_line) (line, filename);
1542 if (debug_info_level >= DINFO_LEVEL_TERSE)
1544 dst_line_info_ref line_info;
1546 targetm.asm_out.internal_label (asm_out_file, LINE_CODE_LABEL,
1547 line_info_table_in_use);
1549 /* Expand the line info table if necessary. */
1550 if (line_info_table_in_use == line_info_table_allocated)
1552 line_info_table_allocated += LINE_INFO_TABLE_INCREMENT;
1553 line_info_table = XRESIZEVEC (dst_line_info_entry, line_info_table,
1554 line_info_table_allocated);
1557 /* Add the new entry at the end of the line_info_table. */
1558 line_info = &line_info_table[line_info_table_in_use++];
1559 line_info->dst_file_num = lookup_filename (filename);
1560 line_info->dst_line_num = line;
1561 if (line > file_info_table[line_info->dst_file_num].max_line)
1562 file_info_table[line_info->dst_file_num].max_line = line;
1566 /* Record the beginning of a new source file, for later output.
1567 At present, unimplemented. */
1570 vmsdbgout_start_source_file (unsigned int lineno, const char *filename)
1572 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1573 (*dwarf2_debug_hooks.start_source_file) (lineno, filename);
1576 /* Record the end of a source file, for later output.
1577 At present, unimplemented. */
1580 vmsdbgout_end_source_file (unsigned int lineno ATTRIBUTE_UNUSED)
1582 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1583 (*dwarf2_debug_hooks.end_source_file) (lineno);
1586 /* Set up for Debug output at the start of compilation. */
1589 vmsdbgout_init (const char *main_input_filename)
1591 const char *language_string = lang_hooks.name;
1593 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1594 (*dwarf2_debug_hooks.init) (main_input_filename);
1596 if (debug_info_level == DINFO_LEVEL_NONE)
1599 /* Remember the name of the primary input file. */
1600 primary_filename = main_input_filename;
1602 /* Allocate the initial hunk of the file_info_table. */
1603 file_info_table = XCNEWVEC (dst_file_info_entry, FILE_TABLE_INCREMENT);
1604 file_info_table_allocated = FILE_TABLE_INCREMENT;
1606 /* Skip the first entry - file numbers begin at 1 */
1607 file_info_table_in_use = 1;
1609 func_table = (vms_func_ref) xcalloc (FUNC_TABLE_INCREMENT, sizeof (vms_func_node));
1610 func_table_allocated = FUNC_TABLE_INCREMENT;
1611 func_table_in_use = 1;
1613 /* Allocate the initial hunk of the line_info_table. */
1614 line_info_table = XCNEWVEC (dst_line_info_entry, LINE_INFO_TABLE_INCREMENT);
1615 line_info_table_allocated = LINE_INFO_TABLE_INCREMENT;
1616 /* zero-th entry is allocated, but unused */
1617 line_info_table_in_use = 1;
1619 lookup_filename (primary_filename);
1621 if (!strcmp (language_string, "GNU C"))
1622 module_language = DST_K_C;
1623 else if (!strcmp (language_string, "GNU C++"))
1624 module_language = DST_K_CXX;
1625 else if (!strcmp (language_string, "GNU Ada"))
1626 module_language = DST_K_ADA;
1627 else if (!strcmp (language_string, "GNU F77"))
1628 module_language = DST_K_FORTRAN;
1630 module_language = DST_K_UNKNOWN;
1632 module_producer = concat (language_string, " ", version_string, NULL);
1634 ASM_GENERATE_INTERNAL_LABEL (text_end_label, TEXT_END_LABEL, 0);
1638 /* Not implemented in VMS Debug. */
1641 vmsdbgout_assembly_start (void)
1643 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1644 (*dwarf2_debug_hooks.assembly_start) ();
1647 /* Not implemented in VMS Debug. */
1650 vmsdbgout_define (unsigned int lineno, const char *buffer)
1652 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1653 (*dwarf2_debug_hooks.define) (lineno, buffer);
1656 /* Not implemented in VMS Debug. */
1659 vmsdbgout_undef (unsigned int lineno, const char *buffer)
1661 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1662 (*dwarf2_debug_hooks.undef) (lineno, buffer);
1665 /* Not implemented in VMS Debug. */
1668 vmsdbgout_decl (tree decl)
1670 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1671 (*dwarf2_debug_hooks.function_decl) (decl);
1674 /* Not implemented in VMS Debug. */
1677 vmsdbgout_global_decl (tree decl)
1679 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1680 (*dwarf2_debug_hooks.global_decl) (decl);
1683 /* Not implemented in VMS Debug. */
1686 vmsdbgout_abstract_function (tree decl)
1688 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1689 (*dwarf2_debug_hooks.outlining_inline_function) (decl);
1692 /* Output stuff that Debug requires at the end of every file and generate the
1693 VMS Debug debugging info. */
1696 vmsdbgout_finish (const char *main_input_filename ATTRIBUTE_UNUSED)
1701 if (write_symbols == VMS_AND_DWARF2_DEBUG)
1702 (*dwarf2_debug_hooks.finish) (main_input_filename);
1704 if (debug_info_level == DINFO_LEVEL_NONE)
1707 /* Output a terminator label for the .text section. */
1708 switch_to_section (text_section);
1709 targetm.asm_out.internal_label (asm_out_file, TEXT_END_LABEL, 0);
1711 /* Output debugging information.
1712 Warning! Do not change the name of the .vmsdebug section without
1713 changing it in the assembler also. */
1714 switch_to_section (get_named_section (NULL, ".vmsdebug", 0));
1715 ASM_OUTPUT_ALIGN (asm_out_file, 0);
1717 totsize = write_modbeg (1);
1718 for (i = 1; i < func_table_in_use; i++)
1720 totsize += write_rtnbeg (i, 1);
1721 totsize += write_rtnend (i, 1);
1723 totsize += write_pclines (1);
1726 for (i = 1; i < func_table_in_use; i++)
1728 write_rtnbeg (i, 0);
1729 write_rtnend (i, 0);
1733 if (debug_info_level > DINFO_LEVEL_TERSE)
1735 totsize = write_srccorrs (1);
1739 totsize = write_modend (1);
1742 #endif /* VMS_DEBUGGING_INFO */