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 Free Software Foundation, Inc.
4 Contributed by Douglas B. Rupp (rupp@gnat.com).
5 Updated by Bernard W. Giroud (bgiroud@users.sourceforge.net).
7 This file is part of GCC.
9 GCC is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 2, or (at your option) any later
14 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 You should have received a copy of the GNU General Public License
20 along with GCC; see the file COPYING. If not, write to the Free
21 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
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 (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 (char *, char *, const char *, int);
158 static int write_debug_string (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_define (unsigned int, const char *);
170 static void vmsdbgout_undef (unsigned int, const char *);
171 static void vmsdbgout_start_source_file (unsigned int, const char *);
172 static void vmsdbgout_end_source_file (unsigned int);
173 static void vmsdbgout_begin_block (unsigned int, unsigned int);
174 static void vmsdbgout_end_block (unsigned int, unsigned int);
175 static bool vmsdbgout_ignore_block (tree
);
176 static void vmsdbgout_source_line (unsigned int, const char *);
177 static void vmsdbgout_begin_prologue (unsigned int, const char *);
178 static void vmsdbgout_end_prologue (unsigned int, const char *);
179 static void vmsdbgout_end_function (unsigned int);
180 static void vmsdbgout_end_epilogue (unsigned int, const char *);
181 static void vmsdbgout_begin_function (tree
);
182 static void vmsdbgout_decl (tree
);
183 static void vmsdbgout_global_decl (tree
);
184 static void vmsdbgout_abstract_function (tree
);
186 /* The debug hooks structure. */
188 const struct gcc_debug_hooks vmsdbg_debug_hooks
193 vmsdbgout_start_source_file
,
194 vmsdbgout_end_source_file
,
195 vmsdbgout_begin_block
,
197 vmsdbgout_ignore_block
,
198 vmsdbgout_source_line
,
199 vmsdbgout_begin_prologue
,
200 vmsdbgout_end_prologue
,
201 vmsdbgout_end_epilogue
,
202 vmsdbgout_begin_function
,
203 vmsdbgout_end_function
,
205 vmsdbgout_global_decl
,
206 debug_nothing_tree_int
, /* type_decl */
207 debug_nothing_tree_tree
, /* imported_module_or_decl */
208 debug_nothing_tree
, /* deferred_inline_function */
209 vmsdbgout_abstract_function
,
210 debug_nothing_rtx
, /* label */
211 debug_nothing_int
, /* handle_pch */
212 debug_nothing_rtx
, /* var_location */
213 0 /* start_end_main_source_file */
216 /* Definitions of defaults for assembler-dependent names of various
217 pseudo-ops and section names.
218 Theses may be overridden in the tm.h file (if necessary) for a particular
220 #ifdef UNALIGNED_SHORT_ASM_OP
221 #undef UNALIGNED_SHORT_ASM_OP
223 #define UNALIGNED_SHORT_ASM_OP ".word"
225 #ifdef UNALIGNED_INT_ASM_OP
226 #undef UNALIGNED_INT_ASM_OP
228 #define UNALIGNED_INT_ASM_OP ".long"
230 #ifdef UNALIGNED_LONG_ASM_OP
231 #undef UNALIGNED_LONG_ASM_OP
233 #define UNALIGNED_LONG_ASM_OP ".long"
235 #ifdef UNALIGNED_DOUBLE_INT_ASM_OP
236 #undef UNALIGNED_DOUBLE_INT_ASM_OP
238 #define UNALIGNED_DOUBLE_INT_ASM_OP ".quad"
243 #define ASM_BYTE_OP ".byte"
245 #define NUMBYTES(I) ((I) < 256 ? 1 : (I) < 65536 ? 2 : 4)
247 #define NUMBYTES0(I) ((I) < 128 ? 0 : (I) < 65536 ? 2 : 4)
249 #ifndef UNALIGNED_PTR_ASM_OP
250 #define UNALIGNED_PTR_ASM_OP \
251 (PTR_SIZE == 8 ? UNALIGNED_DOUBLE_INT_ASM_OP : UNALIGNED_INT_ASM_OP)
254 #ifndef UNALIGNED_OFFSET_ASM_OP
255 #define UNALIGNED_OFFSET_ASM_OP(OFFSET) \
256 (NUMBYTES(OFFSET) == 4 \
257 ? UNALIGNED_LONG_ASM_OP \
258 : (NUMBYTES(OFFSET) == 2 ? UNALIGNED_SHORT_ASM_OP : ASM_BYTE_OP))
261 /* Definitions of defaults for formats and names of various special
262 (artificial) labels which may be generated within this file (when the -g
263 options is used and VMS_DEBUGGING_INFO is in effect. If necessary, these
264 may be overridden from within the tm.h file, but typically, overriding these
265 defaults is unnecessary. */
267 static char text_end_label
[MAX_ARTIFICIAL_LABEL_BYTES
];
269 #ifndef TEXT_END_LABEL
270 #define TEXT_END_LABEL "Lvetext"
272 #ifndef FUNC_BEGIN_LABEL
273 #define FUNC_BEGIN_LABEL "LVFB"
275 #ifndef FUNC_PROLOG_LABEL
276 #define FUNC_PROLOG_LABEL "LVFP"
278 #ifndef FUNC_END_LABEL
279 #define FUNC_END_LABEL "LVFE"
281 #ifndef BLOCK_BEGIN_LABEL
282 #define BLOCK_BEGIN_LABEL "LVBB"
284 #ifndef BLOCK_END_LABEL
285 #define BLOCK_END_LABEL "LVBE"
287 #ifndef LINE_CODE_LABEL
288 #define LINE_CODE_LABEL "LVM"
291 #ifndef ASM_OUTPUT_DEBUG_DELTA2
292 #define ASM_OUTPUT_DEBUG_DELTA2(FILE,LABEL1,LABEL2) \
295 fprintf ((FILE), "\t%s\t", UNALIGNED_SHORT_ASM_OP); \
296 assemble_name (FILE, LABEL1); \
297 fprintf (FILE, "-"); \
298 assemble_name (FILE, LABEL2); \
303 #ifndef ASM_OUTPUT_DEBUG_DELTA4
304 #define ASM_OUTPUT_DEBUG_DELTA4(FILE,LABEL1,LABEL2) \
307 fprintf ((FILE), "\t%s\t", UNALIGNED_INT_ASM_OP); \
308 assemble_name (FILE, LABEL1); \
309 fprintf (FILE, "-"); \
310 assemble_name (FILE, LABEL2); \
315 #ifndef ASM_OUTPUT_DEBUG_ADDR_DELTA
316 #define ASM_OUTPUT_DEBUG_ADDR_DELTA(FILE,LABEL1,LABEL2) \
319 fprintf ((FILE), "\t%s\t", UNALIGNED_PTR_ASM_OP); \
320 assemble_name (FILE, LABEL1); \
321 fprintf (FILE, "-"); \
322 assemble_name (FILE, LABEL2); \
327 #ifndef ASM_OUTPUT_DEBUG_ADDR
328 #define ASM_OUTPUT_DEBUG_ADDR(FILE,LABEL) \
331 fprintf ((FILE), "\t%s\t", UNALIGNED_PTR_ASM_OP); \
332 assemble_name (FILE, LABEL); \
337 #ifndef ASM_OUTPUT_DEBUG_ADDR_CONST
338 #define ASM_OUTPUT_DEBUG_ADDR_CONST(FILE,ADDR) \
339 fprintf ((FILE), "\t%s\t%s", UNALIGNED_PTR_ASM_OP, (ADDR))
342 #ifndef ASM_OUTPUT_DEBUG_DATA1
343 #define ASM_OUTPUT_DEBUG_DATA1(FILE,VALUE) \
344 fprintf ((FILE), "\t%s\t0x%x", ASM_BYTE_OP, (unsigned char) VALUE)
347 #ifndef ASM_OUTPUT_DEBUG_DATA2
348 #define ASM_OUTPUT_DEBUG_DATA2(FILE,VALUE) \
349 fprintf ((FILE), "\t%s\t0x%x", UNALIGNED_SHORT_ASM_OP, \
350 (unsigned short) VALUE)
353 #ifndef ASM_OUTPUT_DEBUG_DATA4
354 #define ASM_OUTPUT_DEBUG_DATA4(FILE,VALUE) \
355 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_INT_ASM_OP, (unsigned long) VALUE)
358 #ifndef ASM_OUTPUT_DEBUG_DATA
359 #define ASM_OUTPUT_DEBUG_DATA(FILE,VALUE) \
360 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_OFFSET_ASM_OP(VALUE), VALUE)
363 #ifndef ASM_OUTPUT_DEBUG_ADDR_DATA
364 #define ASM_OUTPUT_DEBUG_ADDR_DATA(FILE,VALUE) \
365 fprintf ((FILE), "\t%s\t0x%lx", UNALIGNED_PTR_ASM_OP, \
366 (unsigned long) VALUE)
369 #ifndef ASM_OUTPUT_DEBUG_DATA8
370 #define ASM_OUTPUT_DEBUG_DATA8(FILE,VALUE) \
371 fprintf ((FILE), "\t%s\t0x%llx", UNALIGNED_DOUBLE_INT_ASM_OP, \
372 (unsigned long long) VALUE)
375 /* This is similar to the default ASM_OUTPUT_ASCII, except that no trailing
376 newline is produced. When flag_verbose_asm is asserted, we add commentary
377 at the end of the line, so we must avoid output of a newline here. */
378 #ifndef ASM_OUTPUT_DEBUG_STRING
379 #define ASM_OUTPUT_DEBUG_STRING(FILE,P) \
382 register int slen = strlen(P); \
383 register char *p = (P); \
385 fprintf (FILE, "\t.ascii \""); \
386 for (i = 0; i < slen; i++) \
388 register int c = p[i]; \
389 if (c == '\"' || c == '\\') \
391 if (c >= ' ' && c < 0177) \
394 fprintf (FILE, "\\%o", c); \
396 fprintf (FILE, "\""); \
401 /* Convert a reference to the assembler name of a C-level name. This
402 macro has the same effect as ASM_OUTPUT_LABELREF, but copies to
403 a string rather than writing to a file. */
404 #ifndef ASM_NAME_TO_STRING
405 #define ASM_NAME_TO_STRING(STR, NAME) \
408 if ((NAME)[0] == '*') \
409 strcpy (STR, NAME+1); \
411 strcpy (STR, NAME); \
417 /* General utility functions. */
419 /* Convert an integer constant expression into assembler syntax. Addition and
420 subtraction are the only arithmetic that may appear in these expressions.
421 This is an adaptation of output_addr_const in final.c. Here, the target
422 of the conversion is a string buffer. We can't use output_addr_const
423 directly, because it writes to a file. */
426 addr_const_to_string (char *str
, rtx x
)
433 switch (GET_CODE (x
))
443 ASM_NAME_TO_STRING (buf1
, XSTR (x
, 0));
448 ASM_GENERATE_INTERNAL_LABEL (buf1
, "L", CODE_LABEL_NUMBER (XEXP (x
, 0)));
449 ASM_NAME_TO_STRING (buf2
, buf1
);
454 ASM_GENERATE_INTERNAL_LABEL (buf1
, "L", CODE_LABEL_NUMBER (x
));
455 ASM_NAME_TO_STRING (buf2
, buf1
);
460 sprintf (buf1
, HOST_WIDE_INT_PRINT_DEC
, INTVAL (x
));
465 /* This used to output parentheses around the expression, but that does
466 not work on the 386 (either ATT or BSD assembler). */
467 addr_const_to_string (buf1
, XEXP (x
, 0));
472 if (GET_MODE (x
) == VOIDmode
)
474 /* We can use %d if the number is one word and positive. */
475 if (CONST_DOUBLE_HIGH (x
))
476 sprintf (buf1
, HOST_WIDE_INT_PRINT_DOUBLE_HEX
,
477 CONST_DOUBLE_HIGH (x
), CONST_DOUBLE_LOW (x
));
478 else if (CONST_DOUBLE_LOW (x
) < 0)
479 sprintf (buf1
, HOST_WIDE_INT_PRINT_HEX
, CONST_DOUBLE_LOW (x
));
481 sprintf (buf1
, HOST_WIDE_INT_PRINT_DEC
,
482 CONST_DOUBLE_LOW (x
));
486 /* We can't handle floating point constants; PRINT_OPERAND must
488 output_operand_lossage ("floating constant misused");
492 /* Some assemblers need integer constants to appear last (eg masm). */
493 if (GET_CODE (XEXP (x
, 0)) == CONST_INT
)
495 addr_const_to_string (buf1
, XEXP (x
, 1));
497 if (INTVAL (XEXP (x
, 0)) >= 0)
499 addr_const_to_string (buf1
, XEXP (x
, 0));
504 addr_const_to_string (buf1
, XEXP (x
, 0));
506 if (INTVAL (XEXP (x
, 1)) >= 0)
508 addr_const_to_string (buf1
, XEXP (x
, 1));
514 /* Avoid outputting things like x-x or x+5-x, since some assemblers
515 can't handle that. */
516 x
= simplify_subtraction (x
);
517 if (GET_CODE (x
) != MINUS
)
520 addr_const_to_string (buf1
, XEXP (x
, 0));
523 if (GET_CODE (XEXP (x
, 1)) == CONST_INT
524 && INTVAL (XEXP (x
, 1)) < 0)
527 addr_const_to_string (buf1
, XEXP (x
, 1));
533 addr_const_to_string (buf1
, XEXP (x
, 1));
540 addr_const_to_string (buf1
, XEXP (x
, 0));
545 output_operand_lossage ("invalid expression as operand");
549 /* Output the debug header HEADER. Also output COMMENT if flag_verbose_asm is
550 set. Return the header size. Just return the size if DOSIZEONLY is
554 write_debug_header (DST_HEADER
*header
, const char *comment
, int dosizeonly
)
558 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file
,
559 header
->dst__header_length
.dst_w_length
);
561 if (flag_verbose_asm
)
562 fprintf (asm_out_file
, "\t%s record length", ASM_COMMENT_START
);
563 fputc ('\n', asm_out_file
);
565 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file
,
566 header
->dst__header_type
.dst_w_type
);
568 if (flag_verbose_asm
)
569 fprintf (asm_out_file
, "\t%s record type (%s)", ASM_COMMENT_START
,
572 fputc ('\n', asm_out_file
);
578 /* Output the address of SYMBOL. Also output COMMENT if flag_verbose_asm is
579 set. Return the address size. Just return the size if DOSIZEONLY is
583 write_debug_addr (char *symbol
, const char *comment
, int dosizeonly
)
587 ASM_OUTPUT_DEBUG_ADDR (asm_out_file
, symbol
);
588 if (flag_verbose_asm
)
589 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
590 fputc ('\n', asm_out_file
);
596 /* Output the single byte DATA1. Also output COMMENT if flag_verbose_asm is
597 set. Return the data size. Just return the size if DOSIZEONLY is
601 write_debug_data1 (unsigned int data1
, const char *comment
, int dosizeonly
)
605 ASM_OUTPUT_DEBUG_DATA1 (asm_out_file
, data1
);
606 if (flag_verbose_asm
)
607 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
608 fputc ('\n', asm_out_file
);
614 /* Output the single word DATA2. Also output COMMENT if flag_verbose_asm is
615 set. Return the data size. Just return the size if DOSIZEONLY is
619 write_debug_data2 (unsigned int data2
, const char *comment
, int dosizeonly
)
623 ASM_OUTPUT_DEBUG_DATA2 (asm_out_file
, data2
);
624 if (flag_verbose_asm
)
625 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
626 fputc ('\n', asm_out_file
);
632 /* Output double word DATA4. Also output COMMENT if flag_verbose_asm is set.
633 Return the data size. Just return the size if DOSIZEONLY is nonzero. */
636 write_debug_data4 (unsigned long data4
, const char *comment
, int dosizeonly
)
640 ASM_OUTPUT_DEBUG_DATA4 (asm_out_file
, data4
);
641 if (flag_verbose_asm
)
642 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
643 fputc ('\n', asm_out_file
);
649 /* Output quad word DATA8. Also output COMMENT if flag_verbose_asm is set.
650 Return the data size. Just return the size if DOSIZEONLY is nonzero. */
653 write_debug_data8 (unsigned long long data8
, const char *comment
,
658 ASM_OUTPUT_DEBUG_DATA8 (asm_out_file
, data8
);
659 if (flag_verbose_asm
)
660 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
661 fputc ('\n', asm_out_file
);
667 /* Output the difference between LABEL1 and LABEL2. Also output COMMENT if
668 flag_verbose_asm is set. Return the data size. Just return the size if
669 DOSIZEONLY is nonzero. */
672 write_debug_delta4 (char *label1
, char *label2
, const char *comment
,
677 ASM_OUTPUT_DEBUG_DELTA4 (asm_out_file
, label1
, label2
);
678 if (flag_verbose_asm
)
679 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
680 fputc ('\n', asm_out_file
);
686 /* Output a character string STRING. Also write COMMENT if flag_verbose_asm is
687 set. Return the string length. Just return the length if DOSIZEONLY is
691 write_debug_string (char *string
, const char *comment
, int dosizeonly
)
695 ASM_OUTPUT_DEBUG_STRING (asm_out_file
, string
);
696 if (flag_verbose_asm
)
697 fprintf (asm_out_file
, "\t%s %s", ASM_COMMENT_START
, comment
);
698 fputc ('\n', asm_out_file
);
701 return strlen (string
);
704 /* Output a module begin header and return the header size. Just return the
705 size if DOSIZEONLY is nonzero. */
708 write_modbeg (int dosizeonly
)
710 DST_MODULE_BEGIN modbeg
;
713 char *module_name
, *m
;
718 /* Assumes primary filename has Unix syntax file spec. */
719 module_name
= xstrdup (basename ((char *) primary_filename
));
721 m
= strrchr (module_name
, '.');
725 modnamelen
= strlen (module_name
);
726 for (i
= 0; i
< modnamelen
; i
++)
727 module_name
[i
] = TOUPPER (module_name
[i
]);
729 prodnamelen
= strlen (module_producer
);
731 modbeg
.dst_a_modbeg_header
.dst__header_length
.dst_w_length
732 = DST_K_MODBEG_SIZE
+ modnamelen
+ DST_K_MB_TRLR_SIZE
+ prodnamelen
- 1;
733 modbeg
.dst_a_modbeg_header
.dst__header_type
.dst_w_type
= DST_K_MODBEG
;
734 modbeg
.dst_b_modbeg_flags
.dst_v_modbeg_hide
= 0;
735 modbeg
.dst_b_modbeg_flags
.dst_v_modbeg_version
= 1;
736 modbeg
.dst_b_modbeg_flags
.dst_v_modbeg_unused
= 0;
737 modbeg
.dst_b_modbeg_unused
= 0;
738 modbeg
.dst_l_modbeg_language
= module_language
;
739 modbeg
.dst_w_version_major
= DST_K_VERSION_MAJOR
;
740 modbeg
.dst_w_version_minor
= DST_K_VERSION_MINOR
;
741 modbeg
.dst_b_modbeg_name
= strlen (module_name
);
743 mb_trlr
.dst_b_compiler
= strlen (module_producer
);
745 totsize
+= write_debug_header (&modbeg
.dst_a_modbeg_header
,
746 "modbeg", dosizeonly
);
747 totsize
+= write_debug_data1 (*((char *) &modbeg
.dst_b_modbeg_flags
),
748 "flags", dosizeonly
);
749 totsize
+= write_debug_data1 (modbeg
.dst_b_modbeg_unused
,
750 "unused", dosizeonly
);
751 totsize
+= write_debug_data4 (modbeg
.dst_l_modbeg_language
,
752 "language", dosizeonly
);
753 totsize
+= write_debug_data2 (modbeg
.dst_w_version_major
,
754 "DST major version", dosizeonly
);
755 totsize
+= write_debug_data2 (modbeg
.dst_w_version_minor
,
756 "DST minor version", dosizeonly
);
757 totsize
+= write_debug_data1 (modbeg
.dst_b_modbeg_name
,
758 "length of module name", dosizeonly
);
759 totsize
+= write_debug_string (module_name
, "module name", dosizeonly
);
760 totsize
+= write_debug_data1 (mb_trlr
.dst_b_compiler
,
761 "length of compiler name", dosizeonly
);
762 totsize
+= write_debug_string (module_producer
, "compiler name", dosizeonly
);
767 /* Output a module end trailer and return the trailer size. Just return
768 the size if DOSIZEONLY is nonzero. */
771 write_modend (int dosizeonly
)
773 DST_MODULE_END modend
;
776 modend
.dst_a_modend_header
.dst__header_length
.dst_w_length
777 = DST_K_MODEND_SIZE
- 1;
778 modend
.dst_a_modend_header
.dst__header_type
.dst_w_type
= DST_K_MODEND
;
780 totsize
+= write_debug_header (&modend
.dst_a_modend_header
, "modend",
786 /* Output a routine begin header routine RTNNUM and return the header size.
787 Just return the size if DOSIZEONLY is nonzero. */
790 write_rtnbeg (int rtnnum
, int dosizeonly
)
796 char label
[MAX_ARTIFICIAL_LABEL_BYTES
];
797 DST_ROUTINE_BEGIN rtnbeg
;
799 vms_func_ref fde
= &func_table
[rtnnum
];
801 rtnname
= (char *)fde
->vms_func_name
;
802 rtnnamelen
= strlen (rtnname
);
803 rtnentryname
= concat (rtnname
, "..en", NULL
);
805 if (!strcmp (rtnname
, "main"))
808 const char *go
= "TRANSFER$BREAK$GO";
810 /* This command isn't documented in DSTRECORDS, so it's made to
811 look like what DEC C does */
813 /* header size - 1st byte + flag byte + STO_LW size
814 + string count byte + string length */
815 header
.dst__header_length
.dst_w_length
816 = DST_K_DST_HEADER_SIZE
- 1 + 1 + 4 + 1 + strlen (go
);
817 header
.dst__header_type
.dst_w_type
= 0x17;
819 totsize
+= write_debug_header (&header
, "transfer", dosizeonly
);
821 /* I think this is a flag byte, but I don't know what this flag means */
822 totsize
+= write_debug_data1 (0x1, "flags ???", dosizeonly
);
824 /* Routine Begin PD Address */
825 totsize
+= write_debug_addr (rtnname
, "main procedure descriptor",
827 totsize
+= write_debug_data1 (strlen (go
), "length of main_name",
829 totsize
+= write_debug_string ((char *) go
, "main name", dosizeonly
);
832 /* The header length never includes the length byte. */
833 rtnbeg
.dst_a_rtnbeg_header
.dst__header_length
.dst_w_length
834 = DST_K_RTNBEG_SIZE
+ rtnnamelen
- 1;
835 rtnbeg
.dst_a_rtnbeg_header
.dst__header_type
.dst_w_type
= DST_K_RTNBEG
;
836 rtnbeg
.dst_b_rtnbeg_flags
.dst_v_rtnbeg_unused
= 0;
837 rtnbeg
.dst_b_rtnbeg_flags
.dst_v_rtnbeg_unalloc
= 0;
838 rtnbeg
.dst_b_rtnbeg_flags
.dst_v_rtnbeg_prototype
= 0;
839 rtnbeg
.dst_b_rtnbeg_flags
.dst_v_rtnbeg_inlined
= 0;
840 rtnbeg
.dst_b_rtnbeg_flags
.dst_v_rtnbeg_no_call
= 1;
841 rtnbeg
.dst_b_rtnbeg_name
= rtnnamelen
;
843 totsize
+= write_debug_header (&rtnbeg
.dst_a_rtnbeg_header
, "rtnbeg",
845 totsize
+= write_debug_data1 (*((char *) &rtnbeg
.dst_b_rtnbeg_flags
),
846 "flags", dosizeonly
);
848 /* Routine Begin Address */
849 totsize
+= write_debug_addr (rtnentryname
, "routine entry name", dosizeonly
);
851 /* Routine Begin PD Address */
852 totsize
+= write_debug_addr (rtnname
, "routine procedure descriptor",
855 /* Routine Begin Name */
856 totsize
+= write_debug_data1 (rtnbeg
.dst_b_rtnbeg_name
,
857 "length of routine name", dosizeonly
);
859 totsize
+= write_debug_string (rtnname
, "routine name", dosizeonly
);
863 if (debug_info_level
> DINFO_LEVEL_TERSE
)
865 prolog
.dst_a_prolog_header
.dst__header_length
.dst_w_length
866 = DST_K_PROLOG_SIZE
- 1;
867 prolog
.dst_a_prolog_header
.dst__header_type
.dst_w_type
= DST_K_PROLOG
;
869 totsize
+= write_debug_header (&prolog
.dst_a_prolog_header
, "prolog",
872 ASM_GENERATE_INTERNAL_LABEL (label
, FUNC_PROLOG_LABEL
, fde
->funcdef_number
);
873 totsize
+= write_debug_addr (label
, "prolog breakpoint addr",
880 /* Output a routine end trailer for routine RTNNUM and return the header size.
881 Just return the size if DOSIZEONLY is nonzero. */
884 write_rtnend (int rtnnum
, int dosizeonly
)
886 DST_ROUTINE_END rtnend
;
887 char label1
[MAX_ARTIFICIAL_LABEL_BYTES
];
888 char label2
[MAX_ARTIFICIAL_LABEL_BYTES
];
890 vms_func_ref fde
= &func_table
[rtnnum
];
891 int corrected_rtnnum
= fde
->funcdef_number
;
895 rtnend
.dst_a_rtnend_header
.dst__header_length
.dst_w_length
896 = DST_K_RTNEND_SIZE
- 1;
897 rtnend
.dst_a_rtnend_header
.dst__header_type
.dst_w_type
= DST_K_RTNEND
;
898 rtnend
.dst_b_rtnend_unused
= 0;
899 rtnend
.dst_l_rtnend_size
= 0; /* Calculated below. */
901 totsize
+= write_debug_header (&rtnend
.dst_a_rtnend_header
, "rtnend",
903 totsize
+= write_debug_data1 (rtnend
.dst_b_rtnend_unused
, "unused",
906 ASM_GENERATE_INTERNAL_LABEL (label1
, FUNC_BEGIN_LABEL
, corrected_rtnnum
);
907 ASM_GENERATE_INTERNAL_LABEL (label2
, FUNC_END_LABEL
, corrected_rtnnum
);
908 totsize
+= write_debug_delta4 (label2
, label1
, "routine size", dosizeonly
);
913 #define K_DELTA_PC(I) \
914 ((I) < 128 ? -(I) : (I) < 65536 ? DST_K_DELTA_PC_W : DST_K_DELTA_PC_L)
916 #define K_SET_LINUM(I) \
917 ((I) < 256 ? DST_K_SET_LINUM_B \
918 : (I) < 65536 ? DST_K_SET_LINUM : DST_K_SET_LINUM_L)
920 #define K_INCR_LINUM(I) \
921 ((I) < 256 ? DST_K_INCR_LINUM \
922 : (I) < 65536 ? DST_K_INCR_LINUM_W : DST_K_INCR_LINUM_L)
924 /* Output the PC to line number correlations and return the size. Just return
925 the size if DOSIZEONLY is nonzero */
928 write_pclines (int dosizeonly
)
935 DST_LINE_NUM_HEADER line_num
;
936 DST_PCLINE_COMMANDS pcline
;
937 char label
[MAX_ARTIFICIAL_LABEL_BYTES
];
938 char lastlabel
[MAX_ARTIFICIAL_LABEL_BYTES
];
942 max_line
= file_info_table
[1].max_line
;
943 file_info_table
[1].listing_line_start
= linestart
;
944 linestart
= linestart
+ ((max_line
/ 100000) + 1) * 100000;
946 for (i
= 2; i
< file_info_table_in_use
; i
++)
948 max_line
= file_info_table
[i
].max_line
;
949 file_info_table
[i
].listing_line_start
= linestart
;
950 linestart
= linestart
+ ((max_line
/ 10000) + 1) * 10000;
953 /* Set starting address to beginning of text section. */
954 line_num
.dst_a_line_num_header
.dst__header_length
.dst_w_length
= 8;
955 line_num
.dst_a_line_num_header
.dst__header_type
.dst_w_type
= DST_K_LINE_NUM
;
956 pcline
.dst_b_pcline_command
= DST_K_SET_ABS_PC
;
958 totsize
+= write_debug_header (&line_num
.dst_a_line_num_header
,
959 "line_num", dosizeonly
);
960 totsize
+= write_debug_data1 (pcline
.dst_b_pcline_command
,
961 "line_num (SET ABS PC)", dosizeonly
);
967 ASM_OUTPUT_DEBUG_ADDR (asm_out_file
, TEXT_SECTION_ASM_OP
);
968 if (flag_verbose_asm
)
969 fprintf (asm_out_file
, "\t%s line_num", ASM_COMMENT_START
);
970 fputc ('\n', asm_out_file
);
973 fn
= line_info_table
[1].dst_file_num
;
974 ln
= (file_info_table
[fn
].listing_line_start
975 + line_info_table
[1].dst_line_num
);
976 line_num
.dst_a_line_num_header
.dst__header_length
.dst_w_length
= 4 + 4;
977 pcline
.dst_b_pcline_command
= DST_K_SET_LINUM_L
;
979 totsize
+= write_debug_header (&line_num
.dst_a_line_num_header
,
980 "line_num", dosizeonly
);
981 totsize
+= write_debug_data1 (pcline
.dst_b_pcline_command
,
982 "line_num (SET LINUM LONG)", dosizeonly
);
984 sprintf (buff
, "line_num (%d)", ln
? ln
- 1 : 0);
985 totsize
+= write_debug_data4 (ln
? ln
- 1 : 0, buff
, dosizeonly
);
988 strcpy (lastlabel
, TEXT_SECTION_ASM_OP
);
989 for (i
= 1; i
< line_info_table_in_use
; i
++)
993 fn
= line_info_table
[i
].dst_file_num
;
994 ln
= (file_info_table
[fn
].listing_line_start
995 + line_info_table
[i
].dst_line_num
);
998 extrabytes
= 5; /* NUMBYTES (ln - lastln - 1) + 1; */
999 else if (ln
<= lastln
)
1000 extrabytes
= 5; /* NUMBYTES (ln - 1) + 1; */
1004 line_num
.dst_a_line_num_header
.dst__header_length
.dst_w_length
1007 totsize
+= write_debug_header
1008 (&line_num
.dst_a_line_num_header
, "line_num", dosizeonly
);
1010 if (ln
- lastln
> 1)
1012 int lndif
= ln
- lastln
- 1;
1014 /* K_INCR_LINUM (lndif); */
1015 pcline
.dst_b_pcline_command
= DST_K_INCR_LINUM_L
;
1017 totsize
+= write_debug_data1 (pcline
.dst_b_pcline_command
,
1018 "line_num (INCR LINUM LONG)",
1021 sprintf (buff
, "line_num (%d)", lndif
);
1022 totsize
+= write_debug_data4 (lndif
, buff
, dosizeonly
);
1024 else if (ln
<= lastln
)
1026 /* K_SET_LINUM (ln-1); */
1027 pcline
.dst_b_pcline_command
= DST_K_SET_LINUM_L
;
1029 totsize
+= write_debug_data1 (pcline
.dst_b_pcline_command
,
1030 "line_num (SET LINUM LONG)",
1033 sprintf (buff
, "line_num (%d)", ln
- 1);
1034 totsize
+= write_debug_data4 (ln
- 1, buff
, dosizeonly
);
1037 pcline
.dst_b_pcline_command
= DST_K_DELTA_PC_L
;
1039 totsize
+= write_debug_data1 (pcline
.dst_b_pcline_command
,
1040 "line_num (DELTA PC LONG)", dosizeonly
);
1042 ASM_GENERATE_INTERNAL_LABEL (label
, LINE_CODE_LABEL
, i
);
1043 totsize
+= write_debug_delta4 (label
, lastlabel
, "increment line_num",
1047 strcpy (lastlabel
, label
);
1053 /* Output a source correlation for file FILEID using information saved in
1054 FILE_INFO_ENTRY and return the size. Just return the size if DOSIZEONLY is
1058 write_srccorr (int fileid
, dst_file_info_entry file_info_entry
,
1061 int src_command_size
;
1062 int linesleft
= file_info_entry
.max_line
;
1063 int linestart
= file_info_entry
.listing_line_start
;
1064 int flen
= file_info_entry
.flen
;
1066 DST_SOURCE_CORR src_header
;
1067 DST_SRC_COMMAND src_command
;
1068 DST_SRC_COMMAND src_command_sf
;
1069 DST_SRC_COMMAND src_command_sl
;
1070 DST_SRC_COMMAND src_command_sr
;
1071 DST_SRC_COMMAND src_command_dl
;
1072 DST_SRC_CMDTRLR src_cmdtrlr
;
1078 src_header
.dst_a_source_corr_header
.dst__header_length
.dst_w_length
1079 = DST_K_SOURCE_CORR_HEADER_SIZE
+ 1 - 1;
1080 src_header
.dst_a_source_corr_header
.dst__header_type
.dst_w_type
1082 src_command
.dst_b_src_command
= DST_K_SRC_FORMFEED
;
1084 totsize
+= write_debug_header (&src_header
.dst_a_source_corr_header
,
1085 "source corr", dosizeonly
);
1087 totsize
+= write_debug_data1 (src_command
.dst_b_src_command
,
1088 "source_corr (SRC FORMFEED)",
1093 = DST_K_SRC_COMMAND_SIZE
+ flen
+ DST_K_SRC_CMDTRLR_SIZE
;
1094 src_command
.dst_b_src_command
= DST_K_SRC_DECLFILE
;
1095 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_length
1096 = src_command_size
- 2;
1097 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_flags
= 0;
1098 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_w_src_df_fileid
1100 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_q_src_df_rms_cdt
1101 = file_info_entry
.cdt
;
1102 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_l_src_df_rms_ebk
1103 = file_info_entry
.ebk
;
1104 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_w_src_df_rms_ffb
1105 = file_info_entry
.ffb
;
1106 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_rms_rfo
1107 = file_info_entry
.rfo
;
1108 src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_filename
1109 = file_info_entry
.flen
;
1111 src_header
.dst_a_source_corr_header
.dst__header_length
.dst_w_length
1112 = DST_K_SOURCE_CORR_HEADER_SIZE
+ src_command_size
- 1;
1113 src_header
.dst_a_source_corr_header
.dst__header_type
.dst_w_type
1116 src_cmdtrlr
.dst_b_src_df_libmodname
= 0;
1118 totsize
+= write_debug_header (&src_header
.dst_a_source_corr_header
,
1119 "source corr", dosizeonly
);
1120 totsize
+= write_debug_data1 (src_command
.dst_b_src_command
,
1121 "source_corr (DECL SRC FILE)", dosizeonly
);
1122 totsize
+= write_debug_data1
1123 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_length
,
1124 "source_corr (length)", dosizeonly
);
1126 totsize
+= write_debug_data1
1127 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_flags
,
1128 "source_corr (flags)", dosizeonly
);
1130 totsize
+= write_debug_data2
1131 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_w_src_df_fileid
,
1132 "source_corr (fileid)", dosizeonly
);
1134 totsize
+= write_debug_data8
1135 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_q_src_df_rms_cdt
,
1136 "source_corr (creation date)", dosizeonly
);
1138 totsize
+= write_debug_data4
1139 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_l_src_df_rms_ebk
,
1140 "source_corr (EOF block number)", dosizeonly
);
1142 totsize
+= write_debug_data2
1143 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_w_src_df_rms_ffb
,
1144 "source_corr (first free byte)", dosizeonly
);
1146 totsize
+= write_debug_data1
1147 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_rms_rfo
,
1148 "source_corr (record and file organization)", dosizeonly
);
1150 totsize
+= write_debug_data1
1151 (src_command
.dst_a_src_cmd_fields
.dst_a_src_decl_src
.dst_b_src_df_filename
,
1152 "source_corr (filename length)", dosizeonly
);
1154 totsize
+= write_debug_string (file_info_entry
.file_name
,
1155 "source file name", dosizeonly
);
1156 totsize
+= write_debug_data1 (src_cmdtrlr
.dst_b_src_df_libmodname
,
1157 "source_corr (libmodname)", dosizeonly
);
1159 src_command_sf
.dst_b_src_command
= DST_K_SRC_SETFILE
;
1160 src_command_sf
.dst_a_src_cmd_fields
.dst_w_src_unsword
= fileid
;
1162 src_command_sr
.dst_b_src_command
= DST_K_SRC_SETREC_W
;
1163 src_command_sr
.dst_a_src_cmd_fields
.dst_w_src_unsword
= 1;
1165 src_command_sl
.dst_b_src_command
= DST_K_SRC_SETLNUM_L
;
1166 src_command_sl
.dst_a_src_cmd_fields
.dst_l_src_unslong
= linestart
+ 1;
1168 src_command_dl
.dst_b_src_command
= DST_K_SRC_DEFLINES_W
;
1170 if (linesleft
> 65534)
1171 linesleft
= linesleft
- 65534, linestodo
= 65534;
1173 linestodo
= linesleft
, linesleft
= 0;
1175 src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
= linestodo
;
1177 src_header
.dst_a_source_corr_header
.dst__header_length
.dst_w_length
1178 = DST_K_SOURCE_CORR_HEADER_SIZE
+ 3 + 3 + 5 + 3 - 1;
1179 src_header
.dst_a_source_corr_header
.dst__header_type
.dst_w_type
1182 if (src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
)
1184 totsize
+= write_debug_header (&src_header
.dst_a_source_corr_header
,
1185 "source corr", dosizeonly
);
1187 totsize
+= write_debug_data1 (src_command_sf
.dst_b_src_command
,
1188 "source_corr (src setfile)", dosizeonly
);
1190 totsize
+= write_debug_data2
1191 (src_command_sf
.dst_a_src_cmd_fields
.dst_w_src_unsword
,
1192 "source_corr (fileid)", dosizeonly
);
1194 totsize
+= write_debug_data1 (src_command_sr
.dst_b_src_command
,
1195 "source_corr (setrec)", dosizeonly
);
1197 totsize
+= write_debug_data2
1198 (src_command_sr
.dst_a_src_cmd_fields
.dst_w_src_unsword
,
1199 "source_corr (recnum)", dosizeonly
);
1201 totsize
+= write_debug_data1 (src_command_sl
.dst_b_src_command
,
1202 "source_corr (setlnum)", dosizeonly
);
1204 totsize
+= write_debug_data4
1205 (src_command_sl
.dst_a_src_cmd_fields
.dst_l_src_unslong
,
1206 "source_corr (linenum)", dosizeonly
);
1208 totsize
+= write_debug_data1 (src_command_dl
.dst_b_src_command
,
1209 "source_corr (deflines)", dosizeonly
);
1211 sprintf (buff
, "source_corr (%d)",
1212 src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
);
1213 totsize
+= write_debug_data2
1214 (src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
,
1217 while (linesleft
> 0)
1219 src_header
.dst_a_source_corr_header
.dst__header_length
.dst_w_length
1220 = DST_K_SOURCE_CORR_HEADER_SIZE
+ 3 - 1;
1221 src_header
.dst_a_source_corr_header
.dst__header_type
.dst_w_type
1223 src_command_dl
.dst_b_src_command
= DST_K_SRC_DEFLINES_W
;
1225 if (linesleft
> 65534)
1226 linesleft
= linesleft
- 65534, linestodo
= 65534;
1228 linestodo
= linesleft
, linesleft
= 0;
1230 src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
= linestodo
;
1232 totsize
+= write_debug_header (&src_header
.dst_a_source_corr_header
,
1233 "source corr", dosizeonly
);
1234 totsize
+= write_debug_data1 (src_command_dl
.dst_b_src_command
,
1235 "source_corr (deflines)", dosizeonly
);
1236 sprintf (buff
, "source_corr (%d)",
1237 src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
);
1238 totsize
+= write_debug_data2
1239 (src_command_dl
.dst_a_src_cmd_fields
.dst_w_src_unsword
,
1247 /* Output all the source correlation entries and return the size. Just return
1248 the size if DOSIZEONLY is nonzero. */
1251 write_srccorrs (int dosizeonly
)
1256 for (i
= 1; i
< file_info_table_in_use
; i
++)
1257 totsize
+= write_srccorr (i
, file_info_table
[i
], dosizeonly
);
1262 /* Output a marker (i.e. a label) for the beginning of a function, before
1266 vmsdbgout_begin_prologue (unsigned int line
, const char *file
)
1268 char label
[MAX_ARTIFICIAL_LABEL_BYTES
];
1270 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1271 (*dwarf2_debug_hooks
.begin_prologue
) (line
, file
);
1273 if (debug_info_level
> DINFO_LEVEL_NONE
)
1275 ASM_GENERATE_INTERNAL_LABEL (label
, FUNC_BEGIN_LABEL
,
1276 current_function_funcdef_no
);
1277 ASM_OUTPUT_LABEL (asm_out_file
, label
);
1281 /* Output a marker (i.e. a label) for the beginning of a function, after
1285 vmsdbgout_end_prologue (unsigned int line
, const char *file
)
1287 char label
[MAX_ARTIFICIAL_LABEL_BYTES
];
1289 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1290 (*dwarf2_debug_hooks
.end_prologue
) (line
, file
);
1292 if (debug_info_level
> DINFO_LEVEL_TERSE
)
1294 ASM_GENERATE_INTERNAL_LABEL (label
, FUNC_PROLOG_LABEL
,
1295 current_function_funcdef_no
);
1296 ASM_OUTPUT_LABEL (asm_out_file
, label
);
1298 /* VMS PCA expects every PC range to correlate to some line and file. */
1299 vmsdbgout_source_line (line
, file
);
1303 /* No output for VMS debug, but make obligatory call to Dwarf2 debug */
1306 vmsdbgout_end_function (unsigned int line
)
1308 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1309 (*dwarf2_debug_hooks
.end_function
) (line
);
1312 /* Output a marker (i.e. a label) for the absolute end of the generated code
1313 for a function definition. This gets called *after* the epilogue code has
1317 vmsdbgout_end_epilogue (unsigned int line
, const char *file
)
1319 char label
[MAX_ARTIFICIAL_LABEL_BYTES
];
1321 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1322 (*dwarf2_debug_hooks
.end_epilogue
) (line
, file
);
1324 if (debug_info_level
> DINFO_LEVEL_NONE
)
1326 /* Output a label to mark the endpoint of the code generated for this
1328 ASM_GENERATE_INTERNAL_LABEL (label
, FUNC_END_LABEL
,
1329 current_function_funcdef_no
);
1330 ASM_OUTPUT_LABEL (asm_out_file
, label
);
1332 /* VMS PCA expects every PC range to correlate to some line and file. */
1333 vmsdbgout_source_line (line
, file
);
1337 /* Output a marker (i.e. a label) for the beginning of the generated code for
1341 vmsdbgout_begin_block (register unsigned line
, register unsigned blocknum
)
1343 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1344 (*dwarf2_debug_hooks
.begin_block
) (line
, blocknum
);
1346 if (debug_info_level
> DINFO_LEVEL_TERSE
)
1347 targetm
.asm_out
.internal_label (asm_out_file
, BLOCK_BEGIN_LABEL
, blocknum
);
1350 /* Output a marker (i.e. a label) for the end of the generated code for a
1354 vmsdbgout_end_block (register unsigned line
, register unsigned blocknum
)
1356 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1357 (*dwarf2_debug_hooks
.end_block
) (line
, blocknum
);
1359 if (debug_info_level
> DINFO_LEVEL_TERSE
)
1360 targetm
.asm_out
.internal_label (asm_out_file
, BLOCK_END_LABEL
, blocknum
);
1363 /* Not implemented in VMS Debug. */
1366 vmsdbgout_ignore_block (tree block
)
1370 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1371 retval
= (*dwarf2_debug_hooks
.ignore_block
) (block
);
1376 /* Add an entry for function DECL into the func_table. */
1379 vmsdbgout_begin_function (tree decl
)
1381 const char *name
= XSTR (XEXP (DECL_RTL (decl
), 0), 0);
1384 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1385 (*dwarf2_debug_hooks
.begin_function
) (decl
);
1387 if (func_table_in_use
== func_table_allocated
)
1389 func_table_allocated
+= FUNC_TABLE_INCREMENT
;
1391 = (vms_func_ref
) xrealloc (func_table
,
1392 func_table_allocated
* sizeof (vms_func_node
));
1395 /* Add the new entry to the end of the function name table. */
1396 fde
= &func_table
[func_table_in_use
++];
1397 fde
->vms_func_name
= xstrdup (name
);
1398 fde
->funcdef_number
= current_function_funcdef_no
;
1402 static char fullname_buff
[4096];
1404 /* Return the full file specification for FILENAME. The specification must be
1405 in VMS syntax in order to be processed by VMS Debug. */
1408 full_name (const char *filename
)
1411 FILE *fp
= fopen (filename
, "r");
1413 fgetname (fp
, fullname_buff
, 1);
1416 getcwd (fullname_buff
, sizeof (fullname_buff
));
1418 strcat (fullname_buff
, "/");
1419 strcat (fullname_buff
, filename
);
1421 /* ??? Insert hairy code here to translate Unix style file specification
1425 return fullname_buff
;
1428 /* Lookup a filename (in the list of filenames that we know about here in
1429 vmsdbgout.c) and return its "index". The index of each (known) filename is
1430 just a unique number which is associated with only that one filename. We
1431 need such numbers for the sake of generating labels and references
1432 to those files numbers. If the filename given as an argument is not
1433 found in our current list, add it to the list and assign it the next
1434 available unique index number. In order to speed up searches, we remember
1435 the index of the filename was looked up last. This handles the majority of
1439 lookup_filename (const char *file_name
)
1441 static unsigned int last_file_lookup_index
= 0;
1443 register unsigned i
;
1450 struct stat statbuf
;
1452 if (stat (file_name
, &statbuf
) == 0)
1458 /* Adjust for GMT. */
1459 ts
= (struct tm
*) localtime (&statbuf
.st_ctime
);
1460 gmtoff
= ts
->tm_gmtoff
;
1462 /* VMS has multiple file format types. */
1463 rfo
= statbuf
.st_fab_rfm
;
1465 /* Is GMT adjustment an issue with a cross-compiler? */
1468 /* Assume stream LF type file. */
1471 cdt
= 10000000 * (statbuf
.st_ctime
+ gmtoff
+ vms_epoch_offset
);
1472 ebk
= statbuf
.st_size
/ 512 + 1;
1473 ffb
= statbuf
.st_size
- ((statbuf
.st_size
/ 512) * 512);
1474 fnam
= full_name (file_name
);
1475 flen
= strlen (fnam
);
1487 /* Check to see if the file name that was searched on the previous call
1488 matches this file name. If so, return the index. */
1489 if (last_file_lookup_index
!= 0)
1491 fn
= file_info_table
[last_file_lookup_index
].file_name
;
1492 if (strcmp (fnam
, fn
) == 0)
1493 return last_file_lookup_index
;
1496 /* Didn't match the previous lookup, search the table */
1497 for (i
= 1; i
< file_info_table_in_use
; ++i
)
1499 fn
= file_info_table
[i
].file_name
;
1500 if (strcmp (fnam
, fn
) == 0)
1502 last_file_lookup_index
= i
;
1507 /* Prepare to add a new table entry by making sure there is enough space in
1508 the table to do so. If not, expand the current table. */
1509 if (file_info_table_in_use
== file_info_table_allocated
)
1512 file_info_table_allocated
+= FILE_TABLE_INCREMENT
;
1513 file_info_table
= xrealloc (file_info_table
,
1514 (file_info_table_allocated
1515 * sizeof (dst_file_info_entry
)));
1518 /* Add the new entry to the end of the filename table. */
1519 file_info_table
[file_info_table_in_use
].file_name
= xstrdup (fnam
);
1520 file_info_table
[file_info_table_in_use
].max_line
= 0;
1521 file_info_table
[file_info_table_in_use
].cdt
= cdt
;
1522 file_info_table
[file_info_table_in_use
].ebk
= ebk
;
1523 file_info_table
[file_info_table_in_use
].ffb
= ffb
;
1524 file_info_table
[file_info_table_in_use
].rfo
= rfo
;
1525 file_info_table
[file_info_table_in_use
].flen
= flen
;
1527 last_file_lookup_index
= file_info_table_in_use
++;
1528 return last_file_lookup_index
;
1531 /* Output a label to mark the beginning of a source code line entry
1532 and record information relating to this source line, in
1533 'line_info_table' for later output of the .debug_line section. */
1536 vmsdbgout_source_line (register unsigned line
, register const char *filename
)
1538 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1539 (*dwarf2_debug_hooks
.source_line
) (line
, filename
);
1541 if (debug_info_level
>= DINFO_LEVEL_TERSE
)
1543 dst_line_info_ref line_info
;
1545 targetm
.asm_out
.internal_label (asm_out_file
, LINE_CODE_LABEL
,
1546 line_info_table_in_use
);
1548 /* Expand the line info table if necessary. */
1549 if (line_info_table_in_use
== line_info_table_allocated
)
1551 line_info_table_allocated
+= LINE_INFO_TABLE_INCREMENT
;
1552 line_info_table
= xrealloc (line_info_table
,
1553 (line_info_table_allocated
1554 * sizeof (dst_line_info_entry
)));
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. */
1604 = xcalloc (FILE_TABLE_INCREMENT
, sizeof (dst_file_info_entry
));
1605 file_info_table_allocated
= FILE_TABLE_INCREMENT
;
1607 /* Skip the first entry - file numbers begin at 1 */
1608 file_info_table_in_use
= 1;
1610 func_table
= (vms_func_ref
) xcalloc (FUNC_TABLE_INCREMENT
, sizeof (vms_func_node
));
1611 func_table_allocated
= FUNC_TABLE_INCREMENT
;
1612 func_table_in_use
= 1;
1614 /* Allocate the initial hunk of the line_info_table. */
1616 = xcalloc (LINE_INFO_TABLE_INCREMENT
, sizeof (dst_line_info_entry
));
1617 line_info_table_allocated
= LINE_INFO_TABLE_INCREMENT
;
1618 /* zero-th entry is allocated, but unused */
1619 line_info_table_in_use
= 1;
1621 lookup_filename (primary_filename
);
1623 if (!strcmp (language_string
, "GNU C"))
1624 module_language
= DST_K_C
;
1625 else if (!strcmp (language_string
, "GNU C++"))
1626 module_language
= DST_K_CXX
;
1627 else if (!strcmp (language_string
, "GNU Ada"))
1628 module_language
= DST_K_ADA
;
1629 else if (!strcmp (language_string
, "GNU F77"))
1630 module_language
= DST_K_FORTRAN
;
1632 module_language
= DST_K_UNKNOWN
;
1634 module_producer
= concat (language_string
, " ", version_string
, NULL
);
1636 ASM_GENERATE_INTERNAL_LABEL (text_end_label
, TEXT_END_LABEL
, 0);
1640 /* Not implemented in VMS Debug. */
1643 vmsdbgout_define (unsigned int lineno
, const char *buffer
)
1645 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1646 (*dwarf2_debug_hooks
.define
) (lineno
, buffer
);
1649 /* Not implemented in VMS Debug. */
1652 vmsdbgout_undef (unsigned int lineno
, const char *buffer
)
1654 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1655 (*dwarf2_debug_hooks
.undef
) (lineno
, buffer
);
1658 /* Not implemented in VMS Debug. */
1661 vmsdbgout_decl (tree decl
)
1663 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1664 (*dwarf2_debug_hooks
.function_decl
) (decl
);
1667 /* Not implemented in VMS Debug. */
1670 vmsdbgout_global_decl (tree decl
)
1672 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1673 (*dwarf2_debug_hooks
.global_decl
) (decl
);
1676 /* Not implemented in VMS Debug. */
1679 vmsdbgout_abstract_function (tree decl
)
1681 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1682 (*dwarf2_debug_hooks
.outlining_inline_function
) (decl
);
1685 /* Output stuff that Debug requires at the end of every file and generate the
1686 VMS Debug debugging info. */
1689 vmsdbgout_finish (const char *main_input_filename ATTRIBUTE_UNUSED
)
1694 if (write_symbols
== VMS_AND_DWARF2_DEBUG
)
1695 (*dwarf2_debug_hooks
.finish
) (main_input_filename
);
1697 if (debug_info_level
== DINFO_LEVEL_NONE
)
1700 /* Output a terminator label for the .text section. */
1702 targetm
.asm_out
.internal_label (asm_out_file
, TEXT_END_LABEL
, 0);
1704 /* Output debugging information.
1705 Warning! Do not change the name of the .vmsdebug section without
1706 changing it in the assembler also. */
1707 named_section (NULL_TREE
, ".vmsdebug", 0);
1708 ASM_OUTPUT_ALIGN (asm_out_file
, 0);
1710 totsize
= write_modbeg (1);
1711 for (i
= 1; i
< func_table_in_use
; i
++)
1713 totsize
+= write_rtnbeg (i
, 1);
1714 totsize
+= write_rtnend (i
, 1);
1716 totsize
+= write_pclines (1);
1719 for (i
= 1; i
< func_table_in_use
; i
++)
1721 write_rtnbeg (i
, 0);
1722 write_rtnend (i
, 0);
1726 if (debug_info_level
> DINFO_LEVEL_TERSE
)
1728 totsize
= write_srccorrs (1);
1732 totsize
= write_modend (1);
1735 #endif /* VMS_DEBUGGING_INFO */