1996-09-18 05:35:50 +00:00
|
|
|
|
/* Output xcoff-format symbol table information from GNU compiler.
|
2007-05-19 01:19:51 +00:00
|
|
|
|
Copyright (C) 1992, 1994, 1995, 1997, 1998, 1999, 2000, 2002, 2003, 2004
|
2002-02-01 18:16:02 +00:00
|
|
|
|
Free Software Foundation, Inc.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
This file is part of GCC.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
|
|
|
the terms of the GNU General Public License as published by the Free
|
|
|
|
|
Software Foundation; either version 2, or (at your option) any later
|
|
|
|
|
version.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
|
|
for more details.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
2002-02-01 18:16:02 +00:00
|
|
|
|
along with GCC; see the file COPYING. If not, write to the Free
|
2007-05-19 01:19:51 +00:00
|
|
|
|
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Output xcoff-format symbol table data. The main functionality is contained
|
|
|
|
|
in dbxout.c. This file implements the sdbout-like parts of the xcoff
|
|
|
|
|
interface. Many functions are very similar to their counterparts in
|
|
|
|
|
sdbout.c. */
|
|
|
|
|
|
|
|
|
|
#include "config.h"
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "system.h"
|
2004-07-28 03:11:36 +00:00
|
|
|
|
#include "coretypes.h"
|
|
|
|
|
#include "tm.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#include "tree.h"
|
|
|
|
|
#include "rtl.h"
|
|
|
|
|
#include "flags.h"
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "toplev.h"
|
|
|
|
|
#include "output.h"
|
2002-02-01 18:16:02 +00:00
|
|
|
|
#include "ggc.h"
|
2003-07-11 03:40:53 +00:00
|
|
|
|
#include "target.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#ifdef XCOFF_DEBUGGING_INFO
|
|
|
|
|
|
|
|
|
|
/* This defines the C_* storage classes. */
|
2004-07-28 03:11:36 +00:00
|
|
|
|
#include "xcoff.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#include "xcoffout.h"
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "dbxout.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#include "gstab.h"
|
|
|
|
|
|
|
|
|
|
/* Line number of beginning of current function, minus one.
|
|
|
|
|
Negative means not in a function or not using xcoff. */
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static int xcoff_begin_function_line = -1;
|
|
|
|
|
static int xcoff_inlining = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Name of the current include file. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *xcoff_current_include_file;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Name of the current function file. This is the file the `.bf' is
|
|
|
|
|
emitted from. In case a line is emitted from a different file,
|
|
|
|
|
(by including that file of course), then the line number will be
|
|
|
|
|
absolute. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *xcoff_current_function_file;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Names of bss and data sections. These should be unique names for each
|
|
|
|
|
compilation unit. */
|
|
|
|
|
|
|
|
|
|
char *xcoff_bss_section_name;
|
|
|
|
|
char *xcoff_private_data_section_name;
|
|
|
|
|
char *xcoff_read_only_section_name;
|
|
|
|
|
|
|
|
|
|
/* Last source file name mentioned in a NOTE insn. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *xcoff_lastfile;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Macro definitions used below. */
|
|
|
|
|
|
|
|
|
|
#define ABS_OR_RELATIVE_LINENO(LINENO) \
|
|
|
|
|
((xcoff_inlining) ? (LINENO) : (LINENO) - xcoff_begin_function_line)
|
|
|
|
|
|
2007-05-19 01:19:51 +00:00
|
|
|
|
/* Output source line numbers via ".line". */
|
|
|
|
|
#define ASM_OUTPUT_LINE(FILE,LINENUM) \
|
2002-02-01 18:16:02 +00:00
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
if (xcoff_begin_function_line >= 0) \
|
|
|
|
|
fprintf (FILE, "\t.line\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)); \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#define ASM_OUTPUT_LFB(FILE,LINENUM) \
|
|
|
|
|
{ \
|
|
|
|
|
if (xcoff_begin_function_line == -1) \
|
|
|
|
|
{ \
|
|
|
|
|
xcoff_begin_function_line = (LINENUM) - 1;\
|
|
|
|
|
fprintf (FILE, "\t.bf\t%d\n", (LINENUM)); \
|
|
|
|
|
} \
|
|
|
|
|
xcoff_current_function_file \
|
|
|
|
|
= (xcoff_current_include_file \
|
|
|
|
|
? xcoff_current_include_file : main_input_filename); \
|
|
|
|
|
}
|
|
|
|
|
|
2004-07-28 03:11:36 +00:00
|
|
|
|
#define ASM_OUTPUT_LFE(FILE,LINENUM) \
|
2002-02-01 18:16:02 +00:00
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
fprintf (FILE, "\t.ef\t%d\n", (LINENUM)); \
|
|
|
|
|
xcoff_begin_function_line = -1; \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#define ASM_OUTPUT_LBB(FILE,LINENUM,BLOCKNUM) \
|
|
|
|
|
fprintf (FILE, "\t.bb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
|
|
|
|
|
|
|
|
|
|
#define ASM_OUTPUT_LBE(FILE,LINENUM,BLOCKNUM) \
|
|
|
|
|
fprintf (FILE, "\t.eb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2004-07-28 03:11:36 +00:00
|
|
|
|
static void xcoffout_block (tree, int, tree);
|
|
|
|
|
static void xcoffout_source_file (FILE *, const char *, int);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Support routines for XCOFF debugging info. */
|
|
|
|
|
|
2007-05-19 01:19:51 +00:00
|
|
|
|
struct xcoff_type_number
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2007-05-19 01:19:51 +00:00
|
|
|
|
const char *name;
|
|
|
|
|
int number;
|
|
|
|
|
};
|
|
|
|
|
static const struct xcoff_type_number xcoff_type_numbers[] = {
|
|
|
|
|
{ "int", -1 },
|
|
|
|
|
{ "char", -2 },
|
|
|
|
|
{ "short int", -3 },
|
|
|
|
|
{ "long int", -4 }, /* fiddled to -31 if 64 bits */
|
|
|
|
|
{ "unsigned char", -5 },
|
|
|
|
|
{ "signed char", -6 },
|
|
|
|
|
{ "short unsigned int", -7 },
|
|
|
|
|
{ "unsigned int", -8 },
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* No such type "unsigned". */
|
2007-05-19 01:19:51 +00:00
|
|
|
|
{ "long unsigned int", -10 }, /* fiddled to -32 if 64 bits */
|
|
|
|
|
{ "void", -11 },
|
|
|
|
|
{ "float", -12 },
|
|
|
|
|
{ "double", -13 },
|
|
|
|
|
{ "long double", -14 },
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Pascal and Fortran types run from -15 to -29. */
|
2007-05-19 01:19:51 +00:00
|
|
|
|
{ "wchar", -30 }, /* XXX Should be "wchar_t" ? */
|
|
|
|
|
{ "long long int", -31 },
|
|
|
|
|
{ "long long unsigned int", -32 },
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Additional Fortran types run from -33 to -37. */
|
|
|
|
|
|
|
|
|
|
/* ??? Should also handle built-in C++ and Obj-C types. There perhaps
|
|
|
|
|
aren't any that C doesn't already have. */
|
2007-05-19 01:19:51 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Returns an XCOFF fundamental type number for DECL (assumed to be a
|
|
|
|
|
TYPE_DECL), or 0 if dbxout.c should assign a type number normally. */
|
|
|
|
|
int
|
|
|
|
|
xcoff_assign_fundamental_type_number (tree decl)
|
|
|
|
|
{
|
|
|
|
|
const char *name;
|
|
|
|
|
size_t i;
|
|
|
|
|
|
|
|
|
|
/* Do not waste time searching the list for non-intrinsic types. */
|
|
|
|
|
if (DECL_NAME (decl) == 0 || ! DECL_IS_BUILTIN (decl))
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
name = IDENTIFIER_POINTER (DECL_NAME (decl));
|
|
|
|
|
|
|
|
|
|
/* Linear search, blech, but the list is too small to bother
|
|
|
|
|
doing anything else. */
|
|
|
|
|
for (i = 0; i < ARRAY_SIZE (xcoff_type_numbers); i++)
|
|
|
|
|
if (!strcmp (xcoff_type_numbers[i].name, name))
|
|
|
|
|
goto found;
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
found:
|
|
|
|
|
/* -4 and -10 should be replaced with -31 and -32, respectively,
|
|
|
|
|
when used for a 64-bit type. */
|
|
|
|
|
if (int_size_in_bytes (TREE_TYPE (decl)) == 8)
|
|
|
|
|
{
|
|
|
|
|
if (xcoff_type_numbers[i].number == -4)
|
|
|
|
|
return -31;
|
|
|
|
|
if (xcoff_type_numbers[i].number == -10)
|
|
|
|
|
return -32;
|
|
|
|
|
}
|
|
|
|
|
return xcoff_type_numbers[i].number;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print an error message for unrecognized stab codes. */
|
|
|
|
|
|
|
|
|
|
#define UNKNOWN_STAB(STR) \
|
2007-05-19 01:19:51 +00:00
|
|
|
|
internal_error ("no sclass for %s stab (0x%x)", STR, stab)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Conversion routine from BSD stabs to AIX storage classes. */
|
|
|
|
|
|
|
|
|
|
int
|
2004-07-28 03:11:36 +00:00
|
|
|
|
stab_to_sclass (int stab)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
switch (stab)
|
|
|
|
|
{
|
|
|
|
|
case N_GSYM:
|
|
|
|
|
return C_GSYM;
|
|
|
|
|
|
|
|
|
|
case N_FNAME:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_FNAME");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_FUN:
|
|
|
|
|
return C_FUN;
|
|
|
|
|
|
|
|
|
|
case N_STSYM:
|
|
|
|
|
case N_LCSYM:
|
|
|
|
|
return C_STSYM;
|
|
|
|
|
|
|
|
|
|
case N_MAIN:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_MAIN");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_RSYM:
|
|
|
|
|
return C_RSYM;
|
|
|
|
|
|
|
|
|
|
case N_SSYM:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_SSYM");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_RPSYM:
|
|
|
|
|
return C_RPSYM;
|
|
|
|
|
|
|
|
|
|
case N_PSYM:
|
|
|
|
|
return C_PSYM;
|
|
|
|
|
case N_LSYM:
|
|
|
|
|
return C_LSYM;
|
|
|
|
|
case N_DECL:
|
|
|
|
|
return C_DECL;
|
|
|
|
|
case N_ENTRY:
|
|
|
|
|
return C_ENTRY;
|
|
|
|
|
|
|
|
|
|
case N_SO:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_SO");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_SOL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_SOL");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_SLINE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_SLINE");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_DSLINE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_DSLINE");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_BSLINE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_BSLINE");
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case N_BINCL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_BINCL");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_EINCL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_EINCL");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_EXCL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_EXCL");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_LBRAC:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_LBRAC");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_RBRAC:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_RBRAC");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_BCOMM:
|
|
|
|
|
return C_BCOMM;
|
|
|
|
|
case N_ECOMM:
|
|
|
|
|
return C_ECOMM;
|
|
|
|
|
case N_ECOML:
|
|
|
|
|
return C_ECOML;
|
|
|
|
|
|
|
|
|
|
case N_LENG:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_LENG");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_PC:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_PC");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_M2C:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_M2C");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_SCOPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_SCOPE");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case N_CATCH:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("N_CATCH");
|
|
|
|
|
|
|
|
|
|
case N_OPT:
|
|
|
|
|
UNKNOWN_STAB ("N_OPT");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
UNKNOWN_STAB ("?");
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output debugging info to FILE to switch to sourcefile FILENAME.
|
|
|
|
|
INLINE_P is true if this is from an inlined function. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_source_file (FILE *file, const char *filename, int inline_p)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (filename
|
|
|
|
|
&& (xcoff_lastfile == 0 || strcmp (filename, xcoff_lastfile)
|
|
|
|
|
|| (inline_p && ! xcoff_inlining)
|
|
|
|
|
|| (! inline_p && xcoff_inlining)))
|
|
|
|
|
{
|
|
|
|
|
if (xcoff_current_include_file)
|
|
|
|
|
{
|
|
|
|
|
fprintf (file, "\t.ei\t");
|
|
|
|
|
output_quoted_string (file, xcoff_current_include_file);
|
|
|
|
|
fprintf (file, "\n");
|
|
|
|
|
xcoff_current_include_file = NULL;
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
xcoff_inlining = inline_p;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (strcmp (main_input_filename, filename) || inline_p)
|
|
|
|
|
{
|
|
|
|
|
fprintf (file, "\t.bi\t");
|
|
|
|
|
output_quoted_string (file, filename);
|
|
|
|
|
fprintf (file, "\n");
|
|
|
|
|
xcoff_current_include_file = filename;
|
|
|
|
|
}
|
|
|
|
|
xcoff_lastfile = filename;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Output a line number symbol entry for location (FILENAME, LINE). */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_source_line (unsigned int line, const char *filename)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
bool inline_p = (strcmp (xcoff_current_function_file, filename) != 0
|
|
|
|
|
|| (int) line < xcoff_begin_function_line);
|
|
|
|
|
|
|
|
|
|
xcoffout_source_file (asm_out_file, filename, inline_p);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2007-05-19 01:19:51 +00:00
|
|
|
|
ASM_OUTPUT_LINE (asm_out_file, line);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output the symbols defined in block number DO_BLOCK.
|
|
|
|
|
|
|
|
|
|
This function works by walking the tree structure of blocks,
|
|
|
|
|
counting blocks until it finds the desired block. */
|
|
|
|
|
|
|
|
|
|
static int do_block = 0;
|
|
|
|
|
|
|
|
|
|
static void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_block (tree block, int depth, tree args)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
while (block)
|
|
|
|
|
{
|
|
|
|
|
/* Ignore blocks never expanded or otherwise marked as real. */
|
|
|
|
|
if (TREE_USED (block))
|
|
|
|
|
{
|
|
|
|
|
/* When we reach the specified block, output its symbols. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (BLOCK_NUMBER (block) == do_block)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* Output the syms of the block. */
|
|
|
|
|
if (debug_info_level != DINFO_LEVEL_TERSE || depth == 0)
|
|
|
|
|
dbxout_syms (BLOCK_VARS (block));
|
|
|
|
|
if (args)
|
|
|
|
|
dbxout_reg_parms (args);
|
|
|
|
|
|
|
|
|
|
/* We are now done with the block. Don't go to inner blocks. */
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
/* If we are past the specified block, stop the scan. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else if (BLOCK_NUMBER (block) >= do_block)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* Output the subblocks. */
|
|
|
|
|
xcoffout_block (BLOCK_SUBBLOCKS (block), depth + 1, NULL_TREE);
|
|
|
|
|
}
|
|
|
|
|
block = BLOCK_CHAIN (block);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Describe the beginning of an internal block within a function.
|
|
|
|
|
Also output descriptions of variables defined in this block.
|
|
|
|
|
|
|
|
|
|
N is the number of the block, by order of beginning, counting from 1,
|
|
|
|
|
and not counting the outermost (function top-level) block.
|
|
|
|
|
The blocks match the BLOCKs in DECL_INITIAL (current_function_decl),
|
|
|
|
|
if the count starts at 0 for the outermost one. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_begin_block (unsigned int line, unsigned int n)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree decl = current_function_decl;
|
|
|
|
|
|
|
|
|
|
/* The IBM AIX compiler does not emit a .bb for the function level scope,
|
|
|
|
|
so we avoid it here also. */
|
|
|
|
|
if (n != 1)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
ASM_OUTPUT_LBB (asm_out_file, line, n);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
do_block = n;
|
|
|
|
|
xcoffout_block (DECL_INITIAL (decl), 0, DECL_ARGUMENTS (decl));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Describe the end line-number of an internal block within a function. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_end_block (unsigned int line, unsigned int n)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (n != 1)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
ASM_OUTPUT_LBE (asm_out_file, line, n);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called at beginning of function (before prologue).
|
|
|
|
|
Declare function as needed for debugging. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_declare_function (FILE *file, tree decl, const char *name)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2007-05-19 01:19:51 +00:00
|
|
|
|
size_t len;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (*name == '*')
|
|
|
|
|
name++;
|
2007-05-19 01:19:51 +00:00
|
|
|
|
len = strlen (name);
|
|
|
|
|
if (name[len - 1] == ']')
|
|
|
|
|
{
|
|
|
|
|
char *n = alloca (len - 3);
|
|
|
|
|
memcpy (n, name, len - 4);
|
|
|
|
|
n[len - 4] = '\0';
|
|
|
|
|
name = n;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Any pending .bi or .ei must occur before the .function pseudo op.
|
|
|
|
|
Otherwise debuggers will think that the function is in the previous
|
|
|
|
|
file and/or at the wrong line number. */
|
|
|
|
|
xcoffout_source_file (file, DECL_SOURCE_FILE (decl), 0);
|
|
|
|
|
dbxout_symbol (decl, 0);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
|
|
|
|
/* .function NAME, TOP, MAPPING, TYPE, SIZE
|
|
|
|
|
16 and 044 are placeholders for backwards compatibility */
|
|
|
|
|
fprintf (file, "\t.function .%s,.%s,16,044,FE..%s-.%s\n",
|
|
|
|
|
name, name, name, name);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Called at beginning of function body (at start of prologue).
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Record the function's starting line number, so we can output
|
|
|
|
|
relative line numbers for the other lines.
|
|
|
|
|
Record the file name that this function is contained in. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_begin_prologue (unsigned int line,
|
|
|
|
|
const char *file ATTRIBUTE_UNUSED)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
ASM_OUTPUT_LFB (asm_out_file, line);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
dbxout_parms (DECL_ARGUMENTS (current_function_decl));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
|
|
|
|
/* Emit the symbols for the outermost BLOCK's variables. sdbout.c does this
|
|
|
|
|
in sdbout_begin_block, but there is no guarantee that there will be any
|
|
|
|
|
inner block 1, so we must do it here. This gives a result similar to
|
|
|
|
|
dbxout, so it does make some sense. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
do_block = BLOCK_NUMBER (DECL_INITIAL (current_function_decl));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
xcoffout_block (DECL_INITIAL (current_function_decl), 0,
|
|
|
|
|
DECL_ARGUMENTS (current_function_decl));
|
|
|
|
|
|
2007-05-19 01:19:51 +00:00
|
|
|
|
ASM_OUTPUT_LINE (asm_out_file, line);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called at end of function (before epilogue).
|
|
|
|
|
Describe end of outermost block. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_end_function (unsigned int last_linenum)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
ASM_OUTPUT_LFE (asm_out_file, last_linenum);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output xcoff info for the absolute end of a function.
|
|
|
|
|
Called after the epilogue is output. */
|
|
|
|
|
|
|
|
|
|
void
|
2004-07-28 03:11:36 +00:00
|
|
|
|
xcoffout_end_epilogue (unsigned int line ATTRIBUTE_UNUSED,
|
|
|
|
|
const char *file ATTRIBUTE_UNUSED)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* We need to pass the correct function size to .function, otherwise,
|
|
|
|
|
the xas assembler can't figure out the correct size for the function
|
|
|
|
|
aux entry. So, we emit a label after the last instruction which can
|
|
|
|
|
be used by the .function pseudo op to calculate the function size. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *fname = XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (*fname == '*')
|
|
|
|
|
++fname;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
fprintf (asm_out_file, "FE..");
|
|
|
|
|
ASM_OUTPUT_LABEL (asm_out_file, fname);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif /* XCOFF_DEBUGGING_INFO */
|