Commit 5904dc87 by Kazu Hirata Committed by Kazu Hirata

i370.c: Fix comment formatting.

	* config/i370/i370.c: Fix comment formatting.
	* config/i370/i370.h: Likewise.
	* config/i370/i370.md: Likewise.
	* config/i370/linux.h: Likewise.

From-SVN: r49023
parent 9702143f
2002-01-20 Kazu Hirata <kazu@hxi.com>
* config/i370/i370.c: Fix comment formatting.
* config/i370/i370.h: Likewise.
* config/i370/i370.md: Likewise.
* config/i370/linux.h: Likewise.
Sun Jan 20 18:40:14 2002 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> Sun Jan 20 18:40:14 2002 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* dwarf2out.c (loc_descriptor_from_tree): Add TRUTH_*_EXPR cases. * dwarf2out.c (loc_descriptor_from_tree): Add TRUTH_*_EXPR cases.
......
/* Subroutines for insn-output.c for System/370. /* Subroutines for insn-output.c for System/370.
Copyright (C) 1989, 1993, 1995, 1997, 1998, 1999, 2000 Copyright (C) 1989, 1993, 1995, 1997, 1998, 1999, 2000, 2002
Free Software Foundation, Inc. Free Software Foundation, Inc.
Contributed by Jan Stein (jan@cd.chalmers.se). Contributed by Jan Stein (jan@cd.chalmers.se).
Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com) Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com)
...@@ -52,7 +52,7 @@ extern FILE *asm_out_file; ...@@ -52,7 +52,7 @@ extern FILE *asm_out_file;
The first_ref_page is the page on which the true first ref appears. The first_ref_page is the page on which the true first ref appears.
The label_addr is an estimate of its location in the current routine, The label_addr is an estimate of its location in the current routine,
The label_first & last_ref are estimates of where the earliest and The label_first & last_ref are estimates of where the earliest and
latest references to this label occur. */ latest references to this label occur. */
typedef struct label_node typedef struct label_node
{ {
...@@ -442,7 +442,7 @@ i370_label_scan () ...@@ -442,7 +442,7 @@ i370_label_scan ()
here += tablejump_offset; here += tablejump_offset;
INSN_ADDRESSES (INSN_UID (insn)) = here; INSN_ADDRESSES (INSN_UID (insn)) = here;
/* check to see if this insn is a label ... */ /* check to see if this insn is a label ... */
if (CODE_LABEL == code) if (CODE_LABEL == code)
{ {
int labelno = CODE_LABEL_NUMBER (insn); int labelno = CODE_LABEL_NUMBER (insn);
...@@ -469,7 +469,7 @@ i370_label_scan () ...@@ -469,7 +469,7 @@ i370_label_scan ()
/* If there is no label for this jump, then this /* If there is no label for this jump, then this
had better be a ADDR_VEC or an ADDR_DIFF_VEC had better be a ADDR_VEC or an ADDR_DIFF_VEC
and there had better be a vector of labels. */ and there had better be a vector of labels. */
if (!label) if (!label)
{ {
int j; int j;
...@@ -610,7 +610,7 @@ mvs_get_label (id) ...@@ -610,7 +610,7 @@ mvs_get_label (id)
{ {
label_node_t *lp; label_node_t *lp;
/* first, lets see if we already go one, if so, use that. */ /* first, lets see if we already go one, if so, use that. */
for (lp = label_anchor; lp; lp = lp->label_next) for (lp = label_anchor; lp; lp = lp->label_next)
{ {
if (lp->label_id == id) return lp; if (lp->label_id == id) return lp;
...@@ -655,7 +655,7 @@ mvs_add_label (id) ...@@ -655,7 +655,7 @@ mvs_add_label (id)
if ((-1 != lp->first_ref_page) && if ((-1 != lp->first_ref_page) &&
(lp->first_ref_page != mvs_page_num)) (lp->first_ref_page != mvs_page_num))
{ {
/* Yep; the first label_ref was on a different page. */ /* Yep; the first label_ref was on a different page. */
mvs_need_base_reload ++; mvs_need_base_reload ++;
return; return;
} }
...@@ -776,7 +776,7 @@ mvs_check_page (file, code, lit) ...@@ -776,7 +776,7 @@ mvs_check_page (file, code, lit)
fprintf (assembler_source, "\tDROP\t%d\n", BASE_REGISTER); fprintf (assembler_source, "\tDROP\t%d\n", BASE_REGISTER);
mvs_page_num++; mvs_page_num++;
/* Safe to use BASR not BALR, since we are /* Safe to use BASR not BALR, since we are
* not switching addressing mode here ... */ * not switching addressing mode here ... */
fprintf (assembler_source, "\tBASR\t%d,0\n", BASE_REGISTER); fprintf (assembler_source, "\tBASR\t%d,0\n", BASE_REGISTER);
fprintf (assembler_source, "PG%d\tEQU\t*\n", mvs_page_num); fprintf (assembler_source, "PG%d\tEQU\t*\n", mvs_page_num);
fprintf (assembler_source, "\tUSING\t*,%d\n", BASE_REGISTER); fprintf (assembler_source, "\tUSING\t*,%d\n", BASE_REGISTER);
...@@ -812,7 +812,7 @@ mvs_check_page (file, code, lit) ...@@ -812,7 +812,7 @@ mvs_check_page (file, code, lit)
fprintf (assembler_source, "\t.LTORG\n"); fprintf (assembler_source, "\t.LTORG\n");
fprintf (assembler_source, "\t.balign\t4\n"); fprintf (assembler_source, "\t.balign\t4\n");
/* we continue execution here ... */ /* we continue execution here ... */
fprintf (assembler_source, ".LPGE%d:\n", mvs_page_num); fprintf (assembler_source, ".LPGE%d:\n", mvs_page_num);
fprintf (assembler_source, "\t.DROP\t%d\n", BASE_REGISTER); fprintf (assembler_source, "\t.DROP\t%d\n", BASE_REGISTER);
mvs_page_num++; mvs_page_num++;
...@@ -863,7 +863,7 @@ mvs_function_check (name) ...@@ -863,7 +863,7 @@ mvs_function_check (name)
return 0; return 0;
} }
/* Generate a hash for a given key. */ /* Generate a hash for a given key. */
#ifdef LONGEXTERNAL #ifdef LONGEXTERNAL
static int static int
...@@ -1460,7 +1460,7 @@ i370_output_function_prologue (f, frame_size) ...@@ -1460,7 +1460,7 @@ i370_output_function_prologue (f, frame_size)
fprintf (f, "\t.using\t.,r15\n"); fprintf (f, "\t.using\t.,r15\n");
/* Branch to exectuable part of prologue. */ /* Branch to exectuable part of prologue. */
fprintf (f, "\tB\t.LFENT%03d\n", function_label_index); fprintf (f, "\tB\t.LFENT%03d\n", function_label_index);
/* write the length of the stackframe */ /* write the length of the stackframe */
...@@ -1483,7 +1483,7 @@ i370_output_function_prologue (f, frame_size) ...@@ -1483,7 +1483,7 @@ i370_output_function_prologue (f, frame_size)
fprintf (f, "\tLR\tr11,r2\n"); fprintf (f, "\tLR\tr11,r2\n");
/* store callee stack pointer at 8(sp) */ /* store callee stack pointer at 8(sp) */
/* fprintf (f, "\tST\tsp,8(,r3)\n "); wasted cycles, no one uses this ... */ /* fprintf (f, "\tST\tsp,8(,r3)\n "); wasted cycles, no one uses this ... */
/* backchain -- store caller sp at 4(callee_sp) */ /* backchain -- store caller sp at 4(callee_sp) */
fprintf (f, "\tST\tr3,4(,sp)\n "); fprintf (f, "\tST\tr3,4(,sp)\n ");
...@@ -1517,7 +1517,7 @@ i370_output_function_prologue (f, frame_size) ...@@ -1517,7 +1517,7 @@ i370_output_function_prologue (f, frame_size)
The function epilogue should not depend on the current stack The function epilogue should not depend on the current stack
pointer! It should use the frame pointer only. This is mandatory pointer! It should use the frame pointer only. This is mandatory
because of alloca; we also take advantage of it to omit stack because of alloca; we also take advantage of it to omit stack
adjustments before returning. */ adjustments before returning. */
static void static void
i370_output_function_epilogue (file, l) i370_output_function_epilogue (file, l)
......
...@@ -997,7 +997,7 @@ enum reg_class ...@@ -997,7 +997,7 @@ enum reg_class
case MULT: /* case UMULT: */ case DIV: case UDIV: \ case MULT: /* case UMULT: */ case DIV: case UDIV: \
/* and, or and xor set the cc's the wrong way !! */ \ /* and, or and xor set the cc's the wrong way !! */ \
case AND: case IOR: case XOR: \ case AND: case IOR: case XOR: \
/* some shifts set the CC some don't. */ \ /* some shifts set the CC some don't. */ \
case ASHIFT: case ASHIFTRT: \ case ASHIFT: case ASHIFTRT: \
do {} while (0); \ do {} while (0); \
default: \ default: \
...@@ -1128,7 +1128,7 @@ enum reg_class ...@@ -1128,7 +1128,7 @@ enum reg_class
/* Generate case label. For HLASM we can change to the data CSECT /* Generate case label. For HLASM we can change to the data CSECT
and put the vectors out of the code body. The assembler just and put the vectors out of the code body. The assembler just
concatenates CSECTs with the same name. */ concatenates CSECTs with the same name. */
#define ASM_OUTPUT_CASE_LABEL(FILE, PREFIX, NUM, TABLE) \ #define ASM_OUTPUT_CASE_LABEL(FILE, PREFIX, NUM, TABLE) \
fprintf (FILE, "\tDS\t0F\n"); \ fprintf (FILE, "\tDS\t0F\n"); \
...@@ -1286,7 +1286,7 @@ enum reg_class ...@@ -1286,7 +1286,7 @@ enum reg_class
/* Print operand XV (an rtx) in assembler syntax to file FILE. /* Print operand XV (an rtx) in assembler syntax to file FILE.
CODE is a letter or dot (`z' in `%z0') or 0 if no letter was specified. CODE is a letter or dot (`z' in `%z0') or 0 if no letter was specified.
For `%' followed by punctuation, CODE is the punctuation and XV is null. */ For `%' followed by punctuation, CODE is the punctuation and XV is null. */
#define PRINT_OPERAND(FILE, XV, CODE) \ #define PRINT_OPERAND(FILE, XV, CODE) \
{ \ { \
...@@ -1575,7 +1575,7 @@ enum reg_class ...@@ -1575,7 +1575,7 @@ enum reg_class
/* Print operand XV (an rtx) in assembler syntax to file FILE. /* Print operand XV (an rtx) in assembler syntax to file FILE.
CODE is a letter or dot (`z' in `%z0') or 0 if no letter was specified. CODE is a letter or dot (`z' in `%z0') or 0 if no letter was specified.
For `%' followed by punctuation, CODE is the punctuation and XV is null. */ For `%' followed by punctuation, CODE is the punctuation and XV is null. */
#define PRINT_OPERAND(FILE, XV, CODE) \ #define PRINT_OPERAND(FILE, XV, CODE) \
{ \ { \
...@@ -1690,7 +1690,7 @@ enum reg_class ...@@ -1690,7 +1690,7 @@ enum reg_class
mvs_page_lit += 8; \ mvs_page_lit += 8; \
fprintf (FILE, "=D'%s'", buf); \ fprintf (FILE, "=D'%s'", buf); \
} \ } \
else /* VOIDmode !?!? strange but true ... */ \ else /* VOIDmode !?!? strange but true ... */ \
{ \ { \
mvs_page_lit += 8; \ mvs_page_lit += 8; \
fprintf (FILE, "=XL8'%08X%08X'", \ fprintf (FILE, "=XL8'%08X%08X'", \
...@@ -1855,7 +1855,7 @@ abort(); \ ...@@ -1855,7 +1855,7 @@ abort(); \
/* Generate internal label. Since we can branch here from off page, we /* Generate internal label. Since we can branch here from off page, we
must reload the base register. Note that internal labels are generated must reload the base register. Note that internal labels are generated
for loops, goto's and case labels. */ for loops, goto's and case labels. */
#undef ASM_OUTPUT_INTERNAL_LABEL #undef ASM_OUTPUT_INTERNAL_LABEL
#define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \ #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \
{ \ { \
...@@ -1897,7 +1897,7 @@ abort(); \ ...@@ -1897,7 +1897,7 @@ abort(); \
count is in %cl. Some assemblers require %cl as an argument; count is in %cl. Some assemblers require %cl as an argument;
some don't. some don't.
GAS requires the %cl argument, so override i386/unix.h. */ GAS requires the %cl argument, so override i386/unix.h. */
#undef SHIFT_DOUBLE_OMITS_COUNT #undef SHIFT_DOUBLE_OMITS_COUNT
#define SHIFT_DOUBLE_OMITS_COUNT 0 #define SHIFT_DOUBLE_OMITS_COUNT 0
......
;;- Machine description for GNU compiler -- System/370 version. ;;- Machine description for GNU compiler -- System/370 version.
;; Copyright (C) 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000 ;; Copyright (C) 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2002
;; Free Software Foundation, Inc. ;; Free Software Foundation, Inc.
;; Contributed by Jan Stein (jan@cd.chalmers.se). ;; Contributed by Jan Stein (jan@cd.chalmers.se).
;; Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com) ;; Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com)
...@@ -168,7 +168,7 @@ ...@@ -168,7 +168,7 @@
check_label_emit (); check_label_emit ();
if (REG_P (operands[0])) if (REG_P (operands[0]))
{ {
/* an unsigned compare to zero is always zero/not-zero... */ /* an unsigned compare to zero is always zero/not-zero... */
mvs_check_page (0, 4, 4); mvs_check_page (0, 4, 4);
return \"N %0,=XL4'000000FF'\"; return \"N %0,=XL4'000000FF'\";
} }
...@@ -187,7 +187,7 @@ ...@@ -187,7 +187,7 @@
check_label_emit (); check_label_emit ();
if (unsigned_jump_follows_p (insn)) if (unsigned_jump_follows_p (insn))
{ {
/* an unsigned compare to zero is always zero/not-zero... */ /* an unsigned compare to zero is always zero/not-zero... */
mvs_check_page (0, 4, 4); mvs_check_page (0, 4, 4);
return \"N %0,=XL4'000000FF'\"; return \"N %0,=XL4'000000FF'\";
} }
...@@ -1683,7 +1683,7 @@ check_label_emit (); ...@@ -1683,7 +1683,7 @@ check_label_emit ();
"* "*
{ {
check_label_emit (); check_label_emit ();
/* AND only sets zero/not-zero bits not the arithmetic bits ... */ /* AND only sets zero/not-zero bits not the arithmetic bits ... */
CC_STATUS_INIT; CC_STATUS_INIT;
mvs_check_page (0, 4, 4); mvs_check_page (0, 4, 4);
return \"N %1,=XL4'0000FFFF'\"; return \"N %1,=XL4'0000FFFF'\";
...@@ -1704,7 +1704,7 @@ check_label_emit (); ...@@ -1704,7 +1704,7 @@ check_label_emit ();
check_label_emit (); check_label_emit ();
if (REG_P (operands[1])) if (REG_P (operands[1]))
{ {
/* AND only sets zero/not-zero bits not the arithmetic bits ... */ /* AND only sets zero/not-zero bits not the arithmetic bits ... */
CC_STATUS_INIT; CC_STATUS_INIT;
mvs_check_page (0, 4, 4); mvs_check_page (0, 4, 4);
return \"N %0,=XL4'000000FF'\"; return \"N %0,=XL4'000000FF'\";
...@@ -1734,7 +1734,7 @@ check_label_emit (); ...@@ -1734,7 +1734,7 @@ check_label_emit ();
check_label_emit (); check_label_emit ();
if (REG_P (operands[1])) if (REG_P (operands[1]))
{ {
/* AND only sets zero/not-zero bits not the arithmetic bits ... */ /* AND only sets zero/not-zero bits not the arithmetic bits ... */
CC_STATUS_INIT; CC_STATUS_INIT;
mvs_check_page (0, 4, 4); mvs_check_page (0, 4, 4);
return \"N %0,=XL4'000000FF'\"; return \"N %0,=XL4'000000FF'\";
......
...@@ -30,10 +30,10 @@ Boston, MA 02111-1307, USA. */ ...@@ -30,10 +30,10 @@ Boston, MA 02111-1307, USA. */
/* hack alert define to get dbx/gdb/dwarf to compile */ /* hack alert define to get dbx/gdb/dwarf to compile */
/* problem is that host float format is not target float format. */ /* problem is that host float format is not target float format. */
/* define REAL_ARITHMETIC for software emulation of float to /* define REAL_ARITHMETIC for software emulation of float to
* int conversion. This seems to have somethings to do with * int conversion. This seems to have somethings to do with
* cross-compiling ... */ * cross-compiling ... */
#define REAL_ARITHMETIC #define REAL_ARITHMETIC
/* Include system common definitions */ /* Include system common definitions */
...@@ -45,7 +45,7 @@ Boston, MA 02111-1307, USA. */ ...@@ -45,7 +45,7 @@ Boston, MA 02111-1307, USA. */
#undef CPP_PREDEFINES #undef CPP_PREDEFINES
#define CPP_PREDEFINES "-DGCC -Dgcc -D__ELF__ -Dunix -Dlinux -Asystem=posix -Acpu=i370 -Amachine=i370" #define CPP_PREDEFINES "-DGCC -Dgcc -D__ELF__ -Dunix -Dlinux -Asystem=posix -Acpu=i370 -Amachine=i370"
/* Options for this target machine. */ /* Options for this target machine. */
#define LIBGCC_SPEC "libgcc.a%s" #define LIBGCC_SPEC "libgcc.a%s"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment