OSDN Git Service

gcc/
[pf3gnuchains/gcc-fork.git] / gcc / config / mcore / mcore.h
1 /* Definitions of target machine for GNU compiler,
2    for Motorola M*CORE Processor.
3    Copyright (C) 1993, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007,
4    2008, 2009, 2010 Free Software Foundation, Inc.
5
6    This file is part of GCC.
7
8    GCC is free software; you can redistribute it and/or modify it
9    under the terms of the GNU General Public License as published
10    by the Free Software Foundation; either version 3, or (at your
11    option) any later version.
12
13    GCC is distributed in the hope that it will be useful, but WITHOUT
14    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
16    License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with GCC; see the file COPYING3.  If not see
20    <http://www.gnu.org/licenses/>.  */
21
22 #ifndef GCC_MCORE_H
23 #define GCC_MCORE_H
24
25 /* RBE: need to move these elsewhere.  */
26 #undef  LIKE_PPC_ABI 
27 #define MCORE_STRUCT_ARGS
28 /* RBE: end of "move elsewhere".  */
29
30 /* Run-time Target Specification.  */
31 #define TARGET_MCORE
32
33 /* Get tree.c to declare a target-specific specialization of
34    merge_decl_attributes.  */
35 #define TARGET_DLLIMPORT_DECL_ATTRIBUTES 1
36
37 #define TARGET_CPU_CPP_BUILTINS()                                         \
38   do                                                                      \
39     {                                                                     \
40       builtin_define ("__mcore__");                                       \
41       builtin_define ("__MCORE__");                                       \
42       if (TARGET_LITTLE_END)                                              \
43         builtin_define ("__MCORELE__");                                   \
44       else                                                                \
45         builtin_define ("__MCOREBE__");                                   \
46       if (TARGET_M340)                                                    \
47         builtin_define ("__M340__");                                      \
48       else                                                                \
49         builtin_define ("__M210__");                                      \
50     }                                                                     \
51   while (0)
52
53 #undef  CPP_SPEC
54 #define CPP_SPEC "%{m210:%{mlittle-endian:%ethe m210 does not have little endian support}}"
55
56 /* We don't have a -lg library, so don't put it in the list.  */
57 #undef  LIB_SPEC
58 #define LIB_SPEC "%{!shared: %{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}}"
59
60 #undef  ASM_SPEC
61 #define ASM_SPEC "%{mbig-endian:-EB} %{m210:-cpu=210 -EB}"
62
63 #undef  LINK_SPEC
64 #define LINK_SPEC "%{mbig-endian:-EB} %{m210:-EB} -X"
65
66 #define TARGET_DEFAULT  \
67   (MASK_HARDLIT         \
68    | MASK_DIV           \
69    | MASK_RELAX_IMM     \
70    | MASK_M340          \
71    | MASK_LITTLE_END)
72
73 #ifndef MULTILIB_DEFAULTS
74 #define MULTILIB_DEFAULTS { "mlittle-endian", "m340" }
75 #endif
76
77 /* The ability to have 4 byte alignment is being suppressed for now.
78    If this ability is reenabled, you must disable the definition below
79    *and* edit t-mcore to enable multilibs for 4 byte alignment code.  */
80 #undef TARGET_8ALIGN
81 #define TARGET_8ALIGN 1
82
83 extern char * mcore_current_function_name;
84  
85 /* The MCore ABI says that bitfields are unsigned by default.  */
86 #define CC1_SPEC "-funsigned-bitfields"
87
88 /* Target machine storage Layout.  */
89
90 #define PROMOTE_MODE(MODE,UNSIGNEDP,TYPE)       \
91   if (GET_MODE_CLASS (MODE) == MODE_INT         \
92       && GET_MODE_SIZE (MODE) < UNITS_PER_WORD) \
93     {                                           \
94       (MODE) = SImode;                          \
95       (UNSIGNEDP) = 1;                          \
96     }
97
98 /* Define this if most significant bit is lowest numbered
99    in instructions that operate on numbered bit-fields.  */
100 #define BITS_BIG_ENDIAN  0
101
102 /* Define this if most significant byte of a word is the lowest numbered.  */
103 #define BYTES_BIG_ENDIAN (! TARGET_LITTLE_END)
104
105 /* Define this if most significant word of a multiword number is the lowest
106    numbered.  */
107 #define WORDS_BIG_ENDIAN (! TARGET_LITTLE_END)
108
109 #define MAX_BITS_PER_WORD 32
110
111 /* Width of a word, in units (bytes).  */
112 #define UNITS_PER_WORD  4
113
114 /* A C expression for the size in bits of the type `long long' on the
115    target machine.  If you don't define this, the default is two
116    words.  */
117 #define LONG_LONG_TYPE_SIZE 64
118
119 /* Allocation boundary (in *bits*) for storing arguments in argument list.  */
120 #define PARM_BOUNDARY   32
121
122 /* Doubles must be aligned to an 8 byte boundary.  */
123 #define FUNCTION_ARG_BOUNDARY(MODE, TYPE) \
124   ((MODE != BLKmode && (GET_MODE_SIZE (MODE) == 8)) \
125    ? BIGGEST_ALIGNMENT : PARM_BOUNDARY)
126      
127 /* Boundary (in *bits*) on which stack pointer should be aligned.  */
128 #define STACK_BOUNDARY  (TARGET_8ALIGN ? 64 : 32)
129
130 /* Largest increment in UNITS we allow the stack to grow in a single operation.  */
131 #define STACK_UNITS_MAXSTEP  4096
132
133 /* Allocation boundary (in *bits*) for the code of a function.  */
134 #define FUNCTION_BOUNDARY  ((TARGET_OVERALIGN_FUNC) ? 32 : 16)
135
136 /* Alignment of field after `int : 0' in a structure.  */
137 #define EMPTY_FIELD_BOUNDARY  32
138
139 /* No data type wants to be aligned rounder than this.  */
140 #define BIGGEST_ALIGNMENT  (TARGET_8ALIGN ? 64 : 32)
141
142 /* The best alignment to use in cases where we have a choice.  */
143 #define FASTEST_ALIGNMENT 32
144
145 /* Every structures size must be a multiple of 8 bits.  */
146 #define STRUCTURE_SIZE_BOUNDARY 8
147
148 /* Look at the fundamental type that is used for a bit-field and use 
149    that to impose alignment on the enclosing structure.
150    struct s {int a:8}; should have same alignment as "int", not "char".  */
151 #define PCC_BITFIELD_TYPE_MATTERS       1
152
153 /* Largest integer machine mode for structures.  If undefined, the default
154    is GET_MODE_SIZE(DImode).  */
155 #define MAX_FIXED_MODE_SIZE 32
156
157 /* Make strings word-aligned so strcpy from constants will be faster.  */
158 #define CONSTANT_ALIGNMENT(EXP, ALIGN)  \
159   ((TREE_CODE (EXP) == STRING_CST       \
160     && (ALIGN) < FASTEST_ALIGNMENT)     \
161    ? FASTEST_ALIGNMENT : (ALIGN))
162
163 /* Make arrays of chars word-aligned for the same reasons.  */
164 #define DATA_ALIGNMENT(TYPE, ALIGN)             \
165   (TREE_CODE (TYPE) == ARRAY_TYPE               \
166    && TYPE_MODE (TREE_TYPE (TYPE)) == QImode    \
167    && (ALIGN) < FASTEST_ALIGNMENT ? FASTEST_ALIGNMENT : (ALIGN))
168      
169 /* Set this nonzero if move instructions will actually fail to work
170    when given unaligned data.  */
171 #define STRICT_ALIGNMENT 1
172
173 /* Standard register usage.  */
174
175 /* Register allocation for our first guess 
176
177         r0              stack pointer
178         r1              scratch, target reg for xtrb?
179         r2-r7           arguments.
180         r8-r14          call saved
181         r15             link register
182         ap              arg pointer (doesn't really exist, always eliminated)
183         c               c bit
184         fp              frame pointer (doesn't really exist, always eliminated)
185         x19             two control registers.  */
186
187 /* Number of actual hardware registers.
188    The hardware registers are assigned numbers for the compiler
189    from 0 to just below FIRST_PSEUDO_REGISTER.
190    All registers that the compiler knows about must be given numbers,
191    even those that are not normally considered general registers.
192
193    MCore has 16 integer registers and 2 control registers + the arg
194    pointer.  */
195
196 #define FIRST_PSEUDO_REGISTER 20
197
198 #define R1_REG  1       /* Where literals are forced.  */
199 #define LK_REG  15      /* Overloaded on general register.  */
200 #define AP_REG  16      /* Fake arg pointer register.  */
201 /* RBE: mcore.md depends on CC_REG being set to 17.  */
202 #define CC_REG  17      /* Can't name it C_REG.  */
203 #define FP_REG  18      /* Fake frame pointer register.  */
204
205 /* Specify the registers used for certain standard purposes.
206    The values of these macros are register numbers.  */
207
208
209 #undef PC_REGNUM /* Define this if the program counter is overloaded on a register.  */
210 #define STACK_POINTER_REGNUM 0 /* Register to use for pushing function arguments.  */
211 #define FRAME_POINTER_REGNUM 8 /* When we need FP, use r8.  */
212
213 /* The assembler's names for the registers.  RFP need not always be used as
214    the Real framepointer; it can also be used as a normal general register.
215    Note that the name `fp' is horribly misleading since `fp' is in fact only
216    the argument-and-return-context pointer.  */
217 #define REGISTER_NAMES                                  \
218 {                                                       \
219   "sp", "r1", "r2",  "r3",  "r4",  "r5",  "r6",  "r7",  \
220   "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", \
221   "apvirtual",  "c", "fpvirtual", "x19" \
222 }
223
224 /* 1 for registers that have pervasive standard uses
225    and are not available for the register allocator.  */
226 #define FIXED_REGISTERS  \
227  /*  r0  r1  r2  r3  r4  r5  r6  r7  r8  r9  r10 r11 r12 r13 r14 r15 ap  c  fp x19 */ \
228    { 1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  1, 1, 1}
229
230 /* 1 for registers not available across function calls.
231    These must include the FIXED_REGISTERS and also any
232    registers that can be used without being saved.
233    The latter must include the registers where values are returned
234    and the register where structure-value addresses are passed.
235    Aside from that, you can include as many other registers as you like.  */
236
237 /* RBE: r15 {link register} not available across calls,
238    But we don't mark it that way here....  */
239 #define CALL_USED_REGISTERS \
240  /*  r0  r1  r2  r3  r4  r5  r6  r7  r8  r9  r10 r11 r12 r13 r14 r15 ap  c   fp x19 */ \
241    { 1,  1,  1,  1,  1,  1,  1,  1,  0,  0,  0,  0,  0,  0,  0,  0,  1,  1,  1, 1}
242
243 /* The order in which register should be allocated.  */
244 #define REG_ALLOC_ORDER  \
245  /* r7  r6  r5  r4  r3  r2  r15 r14 r13 r12 r11 r10  r9  r8  r1  r0  ap  c   fp x19*/ \
246   {  7,  6,  5,  4,  3,  2,  15, 14, 13, 12, 11, 10,  9,  8,  1,  0, 16, 17, 18, 19}
247
248 /* Return number of consecutive hard regs needed starting at reg REGNO
249    to hold something of mode MODE.
250    This is ordinarily the length in words of a value of mode MODE
251    but can be less for certain modes in special long registers.
252
253    On the MCore regs are UNITS_PER_WORD bits wide; */
254 #define HARD_REGNO_NREGS(REGNO, MODE)  \
255    (((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD))
256
257 /* Value is 1 if hard register REGNO can hold a value of machine-mode MODE.
258    We may keep double values in even registers.  */
259 #define HARD_REGNO_MODE_OK(REGNO, MODE)  \
260   ((TARGET_8ALIGN && GET_MODE_SIZE (MODE) > UNITS_PER_WORD) ? (((REGNO) & 1) == 0) : (REGNO < 18))
261
262 /* Value is 1 if it is a good idea to tie two pseudo registers
263    when one has mode MODE1 and one has mode MODE2.
264    If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
265    for any hard reg, then this must be 0 for correct output.  */
266 #define MODES_TIEABLE_P(MODE1, MODE2) \
267   ((MODE1) == (MODE2) || GET_MODE_CLASS (MODE1) == GET_MODE_CLASS (MODE2))
268
269 /* Definitions for register eliminations.
270
271    We have two registers that can be eliminated on the MCore.  First, the
272    frame pointer register can often be eliminated in favor of the stack
273    pointer register.  Secondly, the argument pointer register can always be
274    eliminated; it is replaced with either the stack or frame pointer.  */
275
276 /* Base register for access to arguments of the function.  */
277 #define ARG_POINTER_REGNUM      16
278
279 /* Register in which the static-chain is passed to a function.  */
280 #define STATIC_CHAIN_REGNUM     1
281
282 /* This is an array of structures.  Each structure initializes one pair
283    of eliminable registers.  The "from" register number is given first,
284    followed by "to".  Eliminations of the same "from" register are listed
285    in order of preference.  */
286 #define ELIMINABLE_REGS                         \
287 {{ FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM}, \
288  { ARG_POINTER_REGNUM,   STACK_POINTER_REGNUM}, \
289  { ARG_POINTER_REGNUM,   FRAME_POINTER_REGNUM},}
290
291 /* Define the offset between two registers, one to be eliminated, and the other
292    its replacement, at the start of a routine.  */
293 #define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
294   OFFSET = mcore_initial_elimination_offset (FROM, TO)
295
296 /* Define the classes of registers for register constraints in the
297    machine description.  Also define ranges of constants.
298
299    One of the classes must always be named ALL_REGS and include all hard regs.
300    If there is more than one class, another class must be named NO_REGS
301    and contain no registers.
302
303    The name GENERAL_REGS must be the name of a class (or an alias for
304    another name such as ALL_REGS).  This is the class of registers
305    that is allowed by "g" or "r" in a register constraint.
306    Also, registers outside this class are allocated only when
307    instructions express preferences for them.
308
309    The classes must be numbered in nondecreasing order; that is,
310    a larger-numbered class must never be contained completely
311    in a smaller-numbered class.
312
313    For any two classes, it is very desirable that there be another
314    class that represents their union.  */
315
316 /* The MCore has only general registers. There are
317    also some special purpose registers: the T bit register, the
318    procedure Link and the Count Registers.  */
319 enum reg_class
320 {
321   NO_REGS,
322   ONLYR1_REGS,
323   LRW_REGS,
324   GENERAL_REGS,
325   C_REGS,
326   ALL_REGS,
327   LIM_REG_CLASSES
328 };
329
330 #define N_REG_CLASSES  (int) LIM_REG_CLASSES
331
332 #define IRA_COVER_CLASSES               \
333 {                                       \
334   GENERAL_REGS, C_REGS, LIM_REG_CLASSES \
335 }
336
337
338 /* Give names of register classes as strings for dump file.  */
339 #define REG_CLASS_NAMES  \
340 {                       \
341   "NO_REGS",            \
342   "ONLYR1_REGS",        \
343   "LRW_REGS",           \
344   "GENERAL_REGS",       \
345   "C_REGS",             \
346   "ALL_REGS",           \
347 }
348
349 /* Define which registers fit in which classes.
350    This is an initializer for a vector of HARD_REG_SET
351    of length N_REG_CLASSES.  */
352
353 /* ??? STACK_POINTER_REGNUM should be excluded from LRW_REGS.  */
354 #define REG_CLASS_CONTENTS              \
355 {                                       \
356   {0x000000},  /* NO_REGS       */      \
357   {0x000002},  /* ONLYR1_REGS   */      \
358   {0x007FFE},  /* LRW_REGS      */      \
359   {0x01FFFF},  /* GENERAL_REGS  */      \
360   {0x020000},  /* C_REGS        */      \
361   {0x0FFFFF}   /* ALL_REGS      */      \
362 }
363
364 /* The same information, inverted:
365    Return the class number of the smallest class containing
366    reg number REGNO.  This could be a conditional expression
367    or could index an array.  */
368
369 extern const enum reg_class regno_reg_class[FIRST_PSEUDO_REGISTER];
370 #define REGNO_REG_CLASS(REGNO) regno_reg_class[REGNO]
371
372 /* When this hook returns true for MODE, the compiler allows
373    registers explicitly used in the rtl to be used as spill registers
374    but prevents the compiler from extending the lifetime of these
375    registers.  */
376 #define TARGET_SMALL_REGISTER_CLASSES_FOR_MODE_P hook_bool_mode_true
377  
378 /* The class value for index registers, and the one for base regs.  */
379 #define INDEX_REG_CLASS  NO_REGS
380 #define BASE_REG_CLASS   GENERAL_REGS
381
382 /* Get reg_class from a letter such as appears in the machine 
383    description.  */
384 extern const enum reg_class reg_class_from_letter[];
385
386 #define REG_CLASS_FROM_LETTER(C) \
387    (ISLOWER (C) ? reg_class_from_letter[(C) - 'a'] : NO_REGS)
388
389 /* The letters I, J, K, L, M, N, O, and P in a register constraint string
390    can be used to stand for particular ranges of immediate operands.
391    This macro defines what the ranges are.
392    C is the letter, and VALUE is a constant value.
393    Return 1 if VALUE is in the range specified by C.
394         I: loadable by movi (0..127)
395         J: arithmetic operand 1..32
396         K: shift operand 0..31
397         L: negative arithmetic operand -1..-32
398         M: powers of two, constants loadable by bgeni
399         N: powers of two minus 1, constants loadable by bmaski, including -1
400         O: allowed by cmov with two constants +/- 1 of each other
401         P: values we will generate 'inline' -- without an 'lrw'
402
403    Others defined for use after reload
404         Q: constant 1
405         R: a label
406         S: 0/1/2 cleared bits out of 32 [for bclri's]
407         T: 2 set bits out of 32 [for bseti's]
408         U: constant 0
409         xxxS: 1 cleared bit out of 32 (complement of power of 2). for bclri
410         xxxT: 2 cleared bits out of 32. for pairs of bclris.  */
411 #define CONST_OK_FOR_I(VALUE) (((HOST_WIDE_INT)(VALUE)) >= 0 && ((HOST_WIDE_INT)(VALUE)) <= 0x7f)
412 #define CONST_OK_FOR_J(VALUE) (((HOST_WIDE_INT)(VALUE)) >  0 && ((HOST_WIDE_INT)(VALUE)) <= 32)
413 #define CONST_OK_FOR_L(VALUE) (((HOST_WIDE_INT)(VALUE)) <  0 && ((HOST_WIDE_INT)(VALUE)) >= -32)
414 #define CONST_OK_FOR_K(VALUE) (((HOST_WIDE_INT)(VALUE)) >= 0 && ((HOST_WIDE_INT)(VALUE)) <= 31)
415 #define CONST_OK_FOR_M(VALUE) (exact_log2 (VALUE) >= 0 && exact_log2 (VALUE) <= 30)
416 #define CONST_OK_FOR_N(VALUE) (((HOST_WIDE_INT)(VALUE)) == -1 || (exact_log2 ((VALUE) + 1) >= 0 && exact_log2 ((VALUE) + 1) <= 30))
417 #define CONST_OK_FOR_O(VALUE) (CONST_OK_FOR_I(VALUE) || \
418                                CONST_OK_FOR_M(VALUE) || \
419                                CONST_OK_FOR_N(VALUE) || \
420                                CONST_OK_FOR_M((HOST_WIDE_INT)(VALUE) - 1) || \
421                                CONST_OK_FOR_N((HOST_WIDE_INT)(VALUE) + 1))
422
423 #define CONST_OK_FOR_P(VALUE) (mcore_const_ok_for_inline (VALUE)) 
424
425 #define CONST_OK_FOR_LETTER_P(VALUE, C)     \
426      ((C) == 'I' ? CONST_OK_FOR_I (VALUE)   \
427     : (C) == 'J' ? CONST_OK_FOR_J (VALUE)   \
428     : (C) == 'L' ? CONST_OK_FOR_L (VALUE)   \
429     : (C) == 'K' ? CONST_OK_FOR_K (VALUE)   \
430     : (C) == 'M' ? CONST_OK_FOR_M (VALUE)   \
431     : (C) == 'N' ? CONST_OK_FOR_N (VALUE)   \
432     : (C) == 'P' ? CONST_OK_FOR_P (VALUE)   \
433     : (C) == 'O' ? CONST_OK_FOR_O (VALUE)   \
434     : 0)
435
436 /* Similar, but for floating constants, and defining letters G and H.
437    Here VALUE is the CONST_DOUBLE rtx itself.  */
438 #define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
439    ((C) == 'G' ? CONST_OK_FOR_I (CONST_DOUBLE_HIGH (VALUE)) \
440               && CONST_OK_FOR_I (CONST_DOUBLE_LOW (VALUE))  \
441     : 0)
442
443 /* Letters in the range `Q' through `U' in a register constraint string
444    may be defined in a machine-dependent fashion to stand for arbitrary
445    operand types.  */
446 #define EXTRA_CONSTRAINT(OP, C)                         \
447   ((C) == 'R' ? (GET_CODE (OP) == MEM                   \
448                  && GET_CODE (XEXP (OP, 0)) == LABEL_REF) \
449    : (C) == 'S' ? (GET_CODE (OP) == CONST_INT \
450                    && mcore_num_zeros (INTVAL (OP)) <= 2) \
451    : (C) == 'T' ? (GET_CODE (OP) == CONST_INT \
452                    && mcore_num_ones (INTVAL (OP)) == 2) \
453    : (C) == 'Q' ? (GET_CODE (OP) == CONST_INT \
454                    && INTVAL(OP) == 1) \
455    : (C) == 'U' ? (GET_CODE (OP) == CONST_INT \
456                    && INTVAL(OP) == 0) \
457    : 0)
458
459 /* Given an rtx X being reloaded into a reg required to be
460    in class CLASS, return the class of reg to actually use.
461    In general this is just CLASS; but on some machines
462    in some cases it is preferable to use a more restrictive class.  */
463 #define PREFERRED_RELOAD_CLASS(X, CLASS) mcore_reload_class (X, CLASS)
464
465 /* Return the register class of a scratch register needed to copy IN into
466    or out of a register in CLASS in MODE.  If it can be done directly,
467    NO_REGS is returned.  */
468 #define SECONDARY_RELOAD_CLASS(CLASS, MODE, X) \
469   mcore_secondary_reload_class (CLASS, MODE, X)
470
471 /* Return the maximum number of consecutive registers
472    needed to represent mode MODE in a register of class CLASS. 
473
474    On MCore this is the size of MODE in words.  */
475 #define CLASS_MAX_NREGS(CLASS, MODE)  \
476      (ROUND_ADVANCE (GET_MODE_SIZE (MODE)))
477
478 /* Stack layout; function entry, exit and calling.  */
479
480 /* Define the number of register that can hold parameters.
481    These two macros are used only in other macro definitions below.  */
482 #define NPARM_REGS 6
483 #define FIRST_PARM_REG 2
484 #define FIRST_RET_REG 2
485
486 /* Define this if pushing a word on the stack
487    makes the stack pointer a smaller address.  */
488 #define STACK_GROWS_DOWNWARD  
489
490 /* Offset within stack frame to start allocating local variables at.
491    If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
492    first local allocated.  Otherwise, it is the offset to the BEGINNING
493    of the first local allocated.  */
494 #define STARTING_FRAME_OFFSET  0
495
496 /* If defined, the maximum amount of space required for outgoing arguments
497    will be computed and placed into the variable
498    `crtl->outgoing_args_size'.  No space will be pushed
499    onto the stack for each call; instead, the function prologue should
500    increase the stack frame size by this amount.  */
501 #define ACCUMULATE_OUTGOING_ARGS 1
502
503 /* Offset of first parameter from the argument pointer register value.  */
504 #define FIRST_PARM_OFFSET(FNDECL)  0
505
506 /* Define how to find the value returned by a function.
507    VALTYPE is the data type of the value (as a tree).
508    If the precise function being called is known, FUNC is its FUNCTION_DECL;
509    otherwise, FUNC is 0.  */
510 #define FUNCTION_VALUE(VALTYPE, FUNC)  mcore_function_value (VALTYPE, FUNC)
511
512 /* Don't default to pcc-struct-return, because gcc is the only compiler, and
513    we want to retain compatibility with older gcc versions.  */
514 #define DEFAULT_PCC_STRUCT_RETURN 0
515
516 /* Define how to find the value returned by a library function
517    assuming the value has mode MODE.  */
518 #define LIBCALL_VALUE(MODE)  gen_rtx_REG (MODE, FIRST_RET_REG)
519
520 /* 1 if N is a possible register number for a function value.
521    On the MCore, only r4 can return results.  */
522 #define FUNCTION_VALUE_REGNO_P(REGNO)  ((REGNO) == FIRST_RET_REG)
523
524 /* 1 if N is a possible register number for function argument passing.  */
525 #define FUNCTION_ARG_REGNO_P(REGNO)  \
526   ((REGNO) >= FIRST_PARM_REG && (REGNO) < (NPARM_REGS + FIRST_PARM_REG))
527
528 /* Define a data type for recording info about an argument list
529    during the scan of that argument list.  This data type should
530    hold all necessary information about the function itself
531    and about the args processed so far, enough to enable macros
532    such as FUNCTION_ARG to determine where the next arg should go.
533
534    On MCore, this is a single integer, which is a number of words
535    of arguments scanned so far (including the invisible argument,
536    if any, which holds the structure-value-address).
537    Thus NARGREGS or more means all following args should go on the stack.  */
538 #define CUMULATIVE_ARGS  int
539
540 #define ROUND_ADVANCE(SIZE)     \
541   ((SIZE + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
542
543 /* Round a register number up to a proper boundary for an arg of mode 
544    MODE. 
545    
546    We round to an even reg for things larger than a word.  */
547 #define ROUND_REG(X, MODE)                              \
548   ((TARGET_8ALIGN                                       \
549    && GET_MODE_UNIT_SIZE ((MODE)) > UNITS_PER_WORD)     \
550    ? ((X) + ((X) & 1)) : (X))
551
552
553 /* Initialize a variable CUM of type CUMULATIVE_ARGS
554    for a call to a function whose data type is FNTYPE.
555    For a library call, FNTYPE is 0.
556
557    On MCore, the offset always starts at 0: the first parm reg is always
558    the same reg.  */
559 #define INIT_CUMULATIVE_ARGS(CUM, FNTYPE, LIBNAME, INDIRECT, N_NAMED_ARGS) \
560   ((CUM) = 0)
561
562 /* Update the data in CUM to advance over an argument
563    of mode MODE and data type TYPE.
564    (TYPE is null for libcalls where that information may not be
565    available.)  */
566 #define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED)       \
567  ((CUM) = (ROUND_REG ((CUM), (MODE))                       \
568            + ((NAMED) * mcore_num_arg_regs (MODE, TYPE)))) \
569
570 /* Define where to put the arguments to a function.  */
571 #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
572   mcore_function_arg (CUM, MODE, TYPE, NAMED)
573
574 /* Call the function profiler with a given profile label.  */
575 #define FUNCTION_PROFILER(STREAM,LABELNO)               \
576 {                                                       \
577   fprintf (STREAM, "    trap    1\n");                  \
578   fprintf (STREAM, "    .align  2\n");                  \
579   fprintf (STREAM, "    .long   LP%d\n", (LABELNO));    \
580 }
581
582 /* EXIT_IGNORE_STACK should be nonzero if, when returning from a function,
583    the stack pointer does not matter.  The value is tested only in
584    functions that have frame pointers.
585    No definition is equivalent to always zero.  */
586 #define EXIT_IGNORE_STACK 0
587
588 /* Length in units of the trampoline for entering a nested function.  */
589 #define TRAMPOLINE_SIZE  12
590
591 /* Alignment required for a trampoline in bits.  */
592 #define TRAMPOLINE_ALIGNMENT  32
593
594 /* Macros to check register numbers against specific register classes.  */
595
596 /* These assume that REGNO is a hard or pseudo reg number.
597    They give nonzero only if REGNO is a hard reg of the suitable class
598    or a pseudo reg currently allocated to a suitable hard reg.
599    Since they use reg_renumber, they are safe only once reg_renumber
600    has been allocated, which happens in local-alloc.c.  */
601 #define REGNO_OK_FOR_BASE_P(REGNO)  \
602   ((REGNO) < AP_REG || (unsigned) reg_renumber[(REGNO)] < AP_REG)
603
604 #define REGNO_OK_FOR_INDEX_P(REGNO)   0
605
606 /* Maximum number of registers that can appear in a valid memory 
607    address.  */
608 #define MAX_REGS_PER_ADDRESS 1
609
610 /* Recognize any constant value that is a valid address.  */
611 #define CONSTANT_ADDRESS_P(X)    (GET_CODE (X) == LABEL_REF)
612
613 /* Nonzero if the constant value X is a legitimate general operand.
614    It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE.
615
616    On the MCore, allow anything but a double.  */
617 #define LEGITIMATE_CONSTANT_P(X) (GET_CODE(X) != CONST_DOUBLE \
618                                   && CONSTANT_P (X))
619
620 /* The macros REG_OK_FOR..._P assume that the arg is a REG rtx
621    and check its validity for a certain class.
622    We have two alternate definitions for each of them.
623    The usual definition accepts all pseudo regs; the other rejects
624    them unless they have been allocated suitable hard regs.
625    The symbol REG_OK_STRICT causes the latter definition to be used.  */
626 #ifndef REG_OK_STRICT
627
628 /* Nonzero if X is a hard reg that can be used as a base reg
629    or if it is a pseudo reg.  */
630 #define REG_OK_FOR_BASE_P(X) \
631         (REGNO (X) <= 16 || REGNO (X) >= FIRST_PSEUDO_REGISTER)
632
633 /* Nonzero if X is a hard reg that can be used as an index
634    or if it is a pseudo reg.  */
635 #define REG_OK_FOR_INDEX_P(X)   0
636
637 #else
638
639 /* Nonzero if X is a hard reg that can be used as a base reg.  */
640 #define REG_OK_FOR_BASE_P(X)    \
641         REGNO_OK_FOR_BASE_P (REGNO (X))
642
643 /* Nonzero if X is a hard reg that can be used as an index.  */
644 #define REG_OK_FOR_INDEX_P(X)   0
645
646 #endif
647 /* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
648    that is a valid memory address for an instruction.
649    The MODE argument is the machine mode for the MEM expression
650    that wants to use this address.
651
652    The other macros defined here are used only in GO_IF_LEGITIMATE_ADDRESS.  */
653 #define BASE_REGISTER_RTX_P(X)  \
654   (GET_CODE (X) == REG && REG_OK_FOR_BASE_P (X))
655
656 #define INDEX_REGISTER_RTX_P(X)  \
657   (GET_CODE (X) == REG && REG_OK_FOR_INDEX_P (X))
658
659
660 /* Jump to LABEL if X is a valid address RTX.  This must also take
661    REG_OK_STRICT into account when deciding about valid registers, but it uses
662    the above macros so we are in luck.  
663  
664    Allow  REG
665           REG+disp 
666
667    A legitimate index for a QI is 0..15, for HI is 0..30, for SI is 0..60,
668    and for DI is 0..56 because we use two SI loads, etc.  */
669 #define GO_IF_LEGITIMATE_INDEX(MODE, REGNO, OP, LABEL)                  \
670   do                                                                    \
671     {                                                                   \
672       if (GET_CODE (OP) == CONST_INT)                                   \
673         {                                                               \
674           if (GET_MODE_SIZE (MODE) >= 4                                 \
675               && (((unsigned HOST_WIDE_INT) INTVAL (OP)) % 4) == 0      \
676               &&  ((unsigned HOST_WIDE_INT) INTVAL (OP))                \
677               <= (unsigned HOST_WIDE_INT) 64 - GET_MODE_SIZE (MODE))    \
678             goto LABEL;                                                 \
679           if (GET_MODE_SIZE (MODE) == 2                                 \
680               && (((unsigned HOST_WIDE_INT) INTVAL (OP)) % 2) == 0      \
681               &&  ((unsigned HOST_WIDE_INT) INTVAL (OP)) <= 30)         \
682             goto LABEL;                                                 \
683           if (GET_MODE_SIZE (MODE) == 1                                 \
684               && ((unsigned HOST_WIDE_INT) INTVAL (OP)) <= 15)          \
685             goto LABEL;                                                 \
686         }                                                               \
687     }                                                                   \
688   while (0)
689
690 #define GO_IF_LEGITIMATE_ADDRESS(MODE, X, LABEL)                  \
691 {                                                                 \
692   if (BASE_REGISTER_RTX_P (X))                                    \
693     goto LABEL;                                                   \
694   else if (GET_CODE (X) == PLUS || GET_CODE (X) == LO_SUM)        \
695     {                                                             \
696       rtx xop0 = XEXP (X,0);                                      \
697       rtx xop1 = XEXP (X,1);                                      \
698       if (BASE_REGISTER_RTX_P (xop0))                             \
699         GO_IF_LEGITIMATE_INDEX (MODE, REGNO (xop0), xop1, LABEL); \
700       if (BASE_REGISTER_RTX_P (xop1))                             \
701         GO_IF_LEGITIMATE_INDEX (MODE, REGNO (xop1), xop0, LABEL); \
702     }                                                             \
703 }                                                                  
704
705 /* Specify the machine mode that this machine uses
706    for the index in the tablejump instruction.  */
707 #define CASE_VECTOR_MODE SImode
708
709 /* 'char' is signed by default.  */
710 #define DEFAULT_SIGNED_CHAR  0
711
712 /* The type of size_t unsigned int.  */
713 #define SIZE_TYPE "unsigned int"
714
715 /* Max number of bytes we can move from memory to memory
716    in one reasonably fast instruction.  */
717 #define MOVE_MAX 4
718
719 /* Define if operations between registers always perform the operation
720    on the full register even if a narrower mode is specified.  */
721 #define WORD_REGISTER_OPERATIONS
722
723 /* Define if loading in MODE, an integral mode narrower than BITS_PER_WORD
724    will either zero-extend or sign-extend.  The value of this macro should
725    be the code that says which one of the two operations is implicitly
726    done, UNKNOWN if none.  */
727 #define LOAD_EXTEND_OP(MODE) ZERO_EXTEND
728
729 /* Nonzero if access to memory by bytes is slow and undesirable.  */
730 #define SLOW_BYTE_ACCESS TARGET_SLOW_BYTES
731
732 /* Shift counts are truncated to 6-bits (0 to 63) instead of the expected
733    5-bits, so we can not define SHIFT_COUNT_TRUNCATED to true for this
734    target.  */
735 #define SHIFT_COUNT_TRUNCATED 0
736
737 /* All integers have the same format so truncation is easy.  */
738 #define TRULY_NOOP_TRUNCATION(OUTPREC,INPREC)  1
739
740 /* Define this if addresses of constant functions
741    shouldn't be put through pseudo regs where they can be cse'd.
742    Desirable on machines where ordinary constants are expensive
743    but a CALL with constant address is cheap.  */
744 /* Why is this defined??? -- dac */
745 #define NO_FUNCTION_CSE 1
746
747 /* The machine modes of pointers and functions.  */
748 #define Pmode          SImode
749 #define FUNCTION_MODE  Pmode
750
751 /* Compute extra cost of moving data between one register class
752    and another.  All register moves are cheap.  */
753 #define REGISTER_MOVE_COST(MODE, SRCCLASS, DSTCLASS) 2
754
755 #define WORD_REGISTER_OPERATIONS
756
757 /* Assembler output control.  */
758 #define ASM_COMMENT_START "\t//"
759
760 #define ASM_APP_ON      "// inline asm begin\n"
761 #define ASM_APP_OFF     "// inline asm end\n"
762
763 #define FILE_ASM_OP     "\t.file\n"
764
765 /* Switch to the text or data segment.  */
766 #define TEXT_SECTION_ASM_OP  "\t.text"
767 #define DATA_SECTION_ASM_OP  "\t.data"
768
769 /* Switch into a generic section.  */
770 #undef  TARGET_ASM_NAMED_SECTION
771 #define TARGET_ASM_NAMED_SECTION  mcore_asm_named_section
772
773 #define INCOMING_RETURN_ADDR_RTX gen_rtx_REG (SImode, LK_REG)
774
775 /* This is how to output an insn to push a register on the stack.
776    It need not be very fast code.  */
777 #define ASM_OUTPUT_REG_PUSH(FILE,REGNO)  \
778   fprintf (FILE, "\tsubi\t %s,%d\n\tstw\t %s,(%s)\n",   \
779            reg_names[STACK_POINTER_REGNUM],             \
780            (STACK_BOUNDARY / BITS_PER_UNIT),            \
781            reg_names[REGNO],                            \
782            reg_names[STACK_POINTER_REGNUM])
783
784 /* Length in instructions of the code output by ASM_OUTPUT_REG_PUSH.  */
785 #define REG_PUSH_LENGTH 2
786
787 /* This is how to output an insn to pop a register from the stack.  */
788 #define ASM_OUTPUT_REG_POP(FILE,REGNO)  \
789   fprintf (FILE, "\tldw\t %s,(%s)\n\taddi\t %s,%d\n",   \
790            reg_names[REGNO],                            \
791            reg_names[STACK_POINTER_REGNUM],             \
792            reg_names[STACK_POINTER_REGNUM],             \
793            (STACK_BOUNDARY / BITS_PER_UNIT))
794
795   
796 /* Output a reference to a label.  */
797 #undef  ASM_OUTPUT_LABELREF
798 #define ASM_OUTPUT_LABELREF(STREAM, NAME)  \
799   fprintf (STREAM, "%s%s", USER_LABEL_PREFIX, \
800            (* targetm.strip_name_encoding) (NAME))
801
802 /* This is how to output an assembler line
803    that says to advance the location counter
804    to a multiple of 2**LOG bytes.  */
805 #define ASM_OUTPUT_ALIGN(FILE,LOG)      \
806   if ((LOG) != 0)                       \
807     fprintf (FILE, "\t.align\t%d\n", LOG)
808
809 #ifndef ASM_DECLARE_RESULT
810 #define ASM_DECLARE_RESULT(FILE, RESULT)
811 #endif
812
813 #define MULTIPLE_SYMBOL_SPACES 1
814
815 #define SUPPORTS_ONE_ONLY 1
816
817 /* A pair of macros to output things for the callgraph data.
818    VALUE means (to the tools that reads this info later):
819         0 a call from src to dst
820         1 the call is special (e.g. dst is "unknown" or "alloca")
821         2 the call is special (e.g., the src is a table instead of routine)
822   
823    Frame sizes are augmented with timestamps to help later tools 
824    differentiate between static entities with same names in different
825    files.  */
826 extern long mcore_current_compilation_timestamp;
827 #define ASM_OUTPUT_CG_NODE(FILE,SRCNAME,VALUE)                          \
828   do                                                                    \
829     {                                                                   \
830       if (mcore_current_compilation_timestamp == 0)                     \
831         mcore_current_compilation_timestamp = time (0);                 \
832       fprintf ((FILE),"\t.equ\t__$frame$size$_%s_$_%08lx,%d\n",         \
833              (SRCNAME), mcore_current_compilation_timestamp, (VALUE));  \
834     }                                                                   \
835   while (0)
836
837 #define ASM_OUTPUT_CG_EDGE(FILE,SRCNAME,DSTNAME,VALUE)          \
838   do                                                            \
839     {                                                           \
840       fprintf ((FILE),"\t.equ\t__$function$call$_%s_$_%s,%d\n", \
841              (SRCNAME), (DSTNAME), (VALUE));                    \
842     }                                                           \
843   while (0)
844
845 /* Globalizing directive for a label.  */
846 #define GLOBAL_ASM_OP "\t.export\t"
847
848 /* The prefix to add to user-visible assembler symbols.  */
849 #undef  USER_LABEL_PREFIX
850 #define USER_LABEL_PREFIX ""
851
852 /* Make an internal label into a string.  */
853 #undef  ASM_GENERATE_INTERNAL_LABEL
854 #define ASM_GENERATE_INTERNAL_LABEL(STRING, PREFIX, NUM)  \
855   sprintf (STRING, "*.%s%ld", PREFIX, (long) NUM)
856
857 /* Jump tables must be 32 bit aligned.  */
858 #undef  ASM_OUTPUT_CASE_LABEL
859 #define ASM_OUTPUT_CASE_LABEL(STREAM,PREFIX,NUM,TABLE) \
860   fprintf (STREAM, "\t.align 2\n.%s%d:\n", PREFIX, NUM);
861
862 /* Output a relative address. Not needed since jump tables are absolute
863    but we must define it anyway.  */
864 #define ASM_OUTPUT_ADDR_DIFF_ELT(STREAM,BODY,VALUE,REL)  \
865   fputs ("- - - ASM_OUTPUT_ADDR_DIFF_ELT called!\n", STREAM)
866
867 /* Output an element of a dispatch table.  */
868 #define ASM_OUTPUT_ADDR_VEC_ELT(STREAM,VALUE)  \
869     fprintf (STREAM, "\t.long\t.L%d\n", VALUE)
870
871 /* Output various types of constants.  */
872
873 /* This is how to output an assembler line
874    that says to advance the location counter by SIZE bytes.  */
875 #undef  ASM_OUTPUT_SKIP
876 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
877   fprintf (FILE, "\t.fill %d, 1\n", (int)(SIZE))
878
879 /* This says how to output an assembler line
880    to define a global common symbol, with alignment information.  */
881 /* XXX - for now we ignore the alignment.  */     
882 #undef  ASM_OUTPUT_ALIGNED_COMMON
883 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN)      \
884   do                                                            \
885     {                                                           \
886       if (mcore_dllexport_name_p (NAME))                        \
887         MCORE_EXPORT_NAME (FILE, NAME)                          \
888       if (! mcore_dllimport_name_p (NAME))                      \
889         {                                                       \
890           fputs ("\t.comm\t", FILE);                            \
891           assemble_name (FILE, NAME);                           \
892           fprintf (FILE, ",%lu\n", (unsigned long)(SIZE));      \
893         }                                                       \
894     }                                                           \
895   while (0)
896
897 /* This says how to output an assembler line
898    to define a local common symbol....  */
899 #undef  ASM_OUTPUT_LOCAL
900 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)     \
901   (fputs ("\t.lcomm\t", FILE),                          \
902   assemble_name (FILE, NAME),                           \
903   fprintf (FILE, ",%d\n", (int)SIZE))
904
905 /* ... and how to define a local common symbol whose alignment
906    we wish to specify.  ALIGN comes in as bits, we have to turn
907    it into bytes.  */
908 #undef  ASM_OUTPUT_ALIGNED_LOCAL
909 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN)               \
910   do                                                                    \
911     {                                                                   \
912       fputs ("\t.bss\t", (FILE));                                       \
913       assemble_name ((FILE), (NAME));                                   \
914       fprintf ((FILE), ",%d,%d\n", (int)(SIZE), (ALIGN) / BITS_PER_UNIT);\
915     }                                                                   \
916   while (0)
917
918 #endif /* ! GCC_MCORE_H */