OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* From Jukka Virtanen.

Browse Source 
* pa.h (TRAMPOLINE_TEMPLATE): Define for the PA.
	(TRAMPOLINE_SIZE): Define for the PA.
	(INITIALIZE_TRAMPOLINE): Define for the PA.

From-SVN: r3894
This commit is contained in:
Jeff Law 1993-03-27 11:40:46 -07:00
parent 0002b1a854
commit f16fe3947b
1 changed files with 38 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
gcc/config/pa/pa.h
View File

@ -960,23 +960,52 @@ extern union tree_node *current_function_decl;
eligible_for_epilogue_delay (trial, slots_filled) eligible_for_epilogue_delay (trial, slots_filled)
/* Output assembler code for a block containing the constant parts /* Output assembler code for a block containing the constant parts
of a trampoline, leaving space for the variable parts. */ of a trampoline, leaving space for the variable parts.\
#define TRAMPOLINE_TEMPLATE(FILE) {} The trampoline sets the static chain pointer to STATIC_CHAIN_REGNUM
and then branches to the specified routine.
/* Length in units of the trampoline for entering a nested function. */ This code template is copied from text segment to stack location
and then patched with INITIALIZE_TRAMPOLINE to contain
valid values, and then entered as a subroutine.
#define TRAMPOLINE_SIZE 0 It is best to keep this as small as possible to avoid having to
flush multiple lines in the cache. */
#define TRAMPOLINE_TEMPLATE(FILE) \
{ \
fprintf (FILE, "\tldw 12(0,%%r22),%%r21\n"); \
fprintf (FILE, "\tbe 0(4,%%r21)\n"); \
fprintf (FILE, "\tldw 16(0,%%r22),%%r29\n"); \
fprintf (FILE, "\t.long 0,0\n"); \
}
/* Length in units of the trampoline for entering a nested function.
If this grows to > 32 bytes, then you must update the flushcache
pattern in pa.md. */
#define TRAMPOLINE_SIZE (5 * 4)
/* Emit RTL insns to initialize the variable parts of a trampoline. /* Emit RTL insns to initialize the variable parts of a trampoline.
FNADDR is an RTX for the address of the function's pure code. FNADDR is an RTX for the address of the function's pure code.
CXT is an RTX for the static chain value for the function. CXT is an RTX for the static chain value for the function.
This takes 16 insns: 2 shifts & 2 ands (to split up addresses), 4 sethi Move the function address to the trampoline template at offset 12.
(to load in opcodes), 4 iors (to merge address and opcodes), and 4 writes Move the static chain value to trampoline template at offset 16. */
(to store insns). This is a bit excessive. Perhaps a different
mechanism would be better here. */ #define INITIALIZE_TRAMPOLINE(TRAMP, FNADDR, CXT) \
#define INITIALIZE_TRAMPOLINE(TRAMP, FNADDR, CXT) {} { \
rtx addr, mem; \
\
addr = memory_address (Pmode, plus_constant ((TRAMP), 12)); \
emit_move_insn (gen_rtx (MEM, Pmode, addr), (FNADDR)); \
addr = memory_address (Pmode, plus_constant ((TRAMP), 16)); \
emit_move_insn (gen_rtx (MEM, Pmode, addr), (CXT)); \
/* fdc and fic only use registers for the address to flush, \
they do not accept integer displacements. */ \
addr = force_reg (SImode, (TRAMP)); \
emit_insn (gen_cacheflush (gen_rtx (MEM, Pmode, addr))); \
}
/* Emit code for a call to builtin_saveregs. We must emit USE insns which /* Emit code for a call to builtin_saveregs. We must emit USE insns which
reference the 4 integer arg registers and 4 fp arg registers. reference the 4 integer arg registers and 4 fp arg registers.