contrib/gcc/config/i386/unix.h

   1 /* Definitions for Unix assembler syntax for the Intel 80386.
   2    Copyright (C) 1988, 1994, 1999 Free Software Foundation, Inc.
   3
   4 This file is part of GNU CC.
   5
   6 GNU CC is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU CC is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU CC; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* This file defines the aspects of assembler syntax
  22    that are the same for all the i386 Unix systems
  23    (though they may differ in non-Unix systems).  */
  24
  25 /* Define some concatenation macros to concatenate an opcode
  26    and one, two or three operands.  In other assembler syntaxes
  27    they may alter the order of ther operands.  */
  28
  29 /* Note that the other files fail to use these
  30    in some of the places where they should.  */
  31
  32 #if defined(__STDC__) || defined(ALMOST_STDC)
  33 #define AS2(a,b,c) #a " " #b "," #c
  34 #define AS2C(b,c) " " #b "," #c
  35 #define AS3(a,b,c,d) #a " " #b "," #c "," #d
  36 #define AS1(a,b) #a " " #b
  37 #else
  38 #define AS1(a,b) "a b"
  39 #define AS2(a,b,c) "a b,c"
  40 #define AS2C(b,c) " b,c"
  41 #define AS3(a,b,c,d) "a b,c,d"
  42 #endif
  43
  44 /* Define macro used to output shift-double opcodes when the shift
  45    count is in %cl.  Some assemblers require %cl as an argument;
  46    some don't.  This macro controls what to do: by default, don't
  47    print %cl.  */
  48 #define SHIFT_DOUBLE_OMITS_COUNT 1
  49 #define AS3_SHIFT_DOUBLE(a,b,c,d) \
  50         (SHIFT_DOUBLE_OMITS_COUNT ? AS2 (a,c,d) : AS3 (a,b,c,d))
  51
  52 /* Output the size-letter for an opcode.
  53    CODE is the letter used in an operand spec (L, B, W, S or Q).
  54    CH is the corresponding lower case letter
  55      (except if CODE is `Q' then CH is `l', unless GAS_MNEMONICS).  */
  56 #define PUT_OP_SIZE(CODE,CH,FILE) putc (CH,(FILE))
  57
  58 /* Opcode suffix for fullword insn.  */
  59 #define L_SIZE "l"
  60
  61 /* Prefix for register names in this syntax.  */
  62 #define RP "%"
  63
  64 /* Prefix for immediate operands in this syntax.  */
  65 #define IP "$"
  66
  67 /* Indirect call instructions should use `*'.  */
  68 #define USE_STAR 1
  69
  70 /* Prefix for a memory-operand X.  */
  71 #define PRINT_PTR(X, FILE)
  72
  73 /* Delimiters that surround base reg and index reg.  */
  74 #define ADDR_BEG(FILE) putc('(', (FILE))
  75 #define ADDR_END(FILE) putc(')', (FILE))
  76
  77 /* Print an index register (whose rtx is IREG).  */
  78 #define PRINT_IREG(FILE,IREG) \
  79   do                                                            \
  80   { fputs (",", (FILE)); PRINT_REG ((IREG), 0, (FILE)); }       \
  81   while (0)
  82
  83 /* Print an index scale factor SCALE.  */
  84 #define PRINT_SCALE(FILE,SCALE) \
  85   if ((SCALE) != 1) fprintf ((FILE), ",%d", (SCALE))
  86
  87 /* Print a base/index combination.
  88    BREG is the base reg rtx, IREG is the index reg rtx,
  89    and SCALE is the index scale factor (an integer).  */
  90
  91 #define PRINT_B_I_S(BREG,IREG,SCALE,FILE) \
  92   { ADDR_BEG (FILE);                            \
  93     if (BREG) PRINT_REG ((BREG), 0, (FILE));    \
  94     if ((IREG) != 0)                            \
  95       { PRINT_IREG ((FILE), (IREG));            \
  96         PRINT_SCALE ((FILE), (SCALE)); }        \
  97     ADDR_END (FILE); }
  98 \f
  99 /* Define the syntax of pseudo-ops, labels and comments.  */
 100
 101 /* String containing the assembler's comment-starter.  */
 102
 103 #define ASM_COMMENT_START "/"
 104
 105 /* Output to assembler file text saying following lines
 106    may contain character constants, extra white space, comments, etc.  */
 107
 108 #define ASM_APP_ON "/APP\n"
 109
 110 /* Output to assembler file text saying following lines
 111    no longer contain unusual constructs.  */
 112
 113 #define ASM_APP_OFF "/NO_APP\n"
 114
 115 /* Output before read-only data.  */
 116
 117 #define TEXT_SECTION_ASM_OP ".text"
 118
 119 /* Output before writable (initialized) data.  */
 120
 121 #define DATA_SECTION_ASM_OP ".data"
 122
 123 /* Output before writable (uninitialized) data.  */
 124
 125 #define BSS_SECTION_ASM_OP ".bss"
 126
 127 /* This is how to output a command to make the user-level label named NAME
 128    defined for reference from other files.  */
 129
 130 #define ASM_GLOBALIZE_LABEL(FILE,NAME)  \
 131   (fputs (".globl ", FILE), assemble_name (FILE, NAME), fputs ("\n", FILE))
 132
 133 /* By default, target has a 80387, uses IEEE compatible arithmetic,
 134    and returns float values in the 387.  */
 135
 136 #define TARGET_DEFAULT (MASK_80387 | MASK_IEEE_FP | MASK_FLOAT_RETURNS)
 137
 138 /* Floating-point return values come in the FP register.  */
 139
 140 #define VALUE_REGNO(MODE) \
 141   (GET_MODE_CLASS (MODE) == MODE_FLOAT                          \
 142    && TARGET_FLOAT_RETURNS_IN_80387 ? FIRST_FLOAT_REG : 0)
 143
 144 /* 1 if N is a possible register number for a function value. */
 145
 146 #define FUNCTION_VALUE_REGNO_P(N) \
 147   ((N) == 0 || ((N)== FIRST_FLOAT_REG && TARGET_FLOAT_RETURNS_IN_80387))
 148
 149 /* Output code to add DELTA to the first argument, and then jump to FUNCTION.
 150    Used for C++ multiple inheritance.  */
 151 #define ASM_OUTPUT_MI_THUNK(FILE, THUNK_FNDECL, DELTA, FUNCTION)              \
 152 do {                                                                          \
 153   tree parm;                                                                  \
 154                                                                               \
 155   if (i386_regparm > 0)                                                       \
 156     parm = TYPE_ARG_TYPES (TREE_TYPE (function));                             \
 157   else                                                                        \
 158     parm = NULL_TREE;                                                         \
 159   for (; parm; parm = TREE_CHAIN (parm))                                      \
 160     if (TREE_VALUE (parm) == void_type_node)                                  \
 161       break;                                                                  \
 162   fprintf (FILE, "\taddl $%d,%s\n", DELTA,                                    \
 163            parm ? "%eax"                                                      \
 164            : aggregate_value_p (TREE_TYPE (TREE_TYPE (FUNCTION))) ? "8(%esp)" \
 165            : "4(%esp)");                                                      \
 166                                                                               \
 167   if (flag_pic)                                                               \
 168     {                                                                         \
 169       rtx xops[2];                                                            \
 170       xops[0] = pic_offset_table_rtx;                                         \
 171       xops[1] = (rtx) gen_label_rtx ();                                       \
 172                                                                               \
 173       if (i386_regparm > 2)                                                   \
 174         abort ();                                                             \
 175       output_asm_insn ("push%L0 %0", xops);                                   \
 176       output_asm_insn (AS1 (call,%P1), xops);                                 \
 177       ASM_OUTPUT_INTERNAL_LABEL (FILE, "L", CODE_LABEL_NUMBER (xops[1]));     \
 178       output_asm_insn (AS1 (pop%L0,%0), xops);                                \
 179       output_asm_insn ("addl $%__GLOBAL_OFFSET_TABLE_+[.-%P1],%0", xops);     \
 180       fprintf (FILE, "\tmovl ");                                              \
 181       assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));          \
 182       fprintf (FILE, "@GOT(%%ebx),%%ecx\n\tpopl %%ebx\n\tjmp *%%ecx\n");      \
 183     }                                                                         \
 184   else                                                                        \
 185     {                                                                         \
 186       fprintf (FILE, "\tjmp ");                                               \
 187       assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));          \
 188       fprintf (FILE, "\n");                                                   \
 189     }                                                                         \
 190 } while (0)