diff options
| author | Torbjorn Granlund <tege@gnu.org> | 1995-12-14 23:09:47 +0000 |
|---|---|---|
| committer | Torbjorn Granlund <tege@gnu.org> | 1995-12-14 23:09:47 +0000 |
| commit | eeae1c73626b190cc32f9b7724356dfe8add9e4a (patch) | |
| tree | 41e5418fc666310c3a99064d4a5596c1ee3508ba /gcc/config/clipper | |
| parent | 3f6ddf545624fb08c1a08de0611d00e470140ae7 (diff) | |
| download | gcc-eeae1c73626b190cc32f9b7724356dfe8add9e4a.zip gcc-eeae1c73626b190cc32f9b7724356dfe8add9e4a.tar.gz gcc-eeae1c73626b190cc32f9b7724356dfe8add9e4a.tar.bz2 | |
(untyped_call): New pattern.
From-SVN: r10722
Diffstat (limited to 'gcc/config/clipper')
| -rw-r--r-- | gcc/config/clipper/clipper.md | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/gcc/config/clipper/clipper.md b/gcc/config/clipper/clipper.md index 7230b22..6790240 100644 --- a/gcc/config/clipper/clipper.md +++ b/gcc/config/clipper/clipper.md @@ -1362,6 +1362,43 @@ "" "call sp,%1") +;; Call subroutine returning any type. + +(define_expand "untyped_call" + [(parallel [(call (match_operand 0 "" "") + (const_int 0)) + (match_operand 1 "" "") + (match_operand 2 "" "")])] + "" + " +{ + int i; + + emit_call_insn (gen_call (operands[0], const0_rtx, NULL, const0_rtx)); + + for (i = 0; i < XVECLEN (operands[2], 0); i++) + { + rtx set = XVECEXP (operands[2], 0, i); + emit_move_insn (SET_DEST (set), SET_SRC (set)); + } + + /* The optimizer does not know that the call sets the function value + registers we stored in the result block. We avoid problems by + claiming that all hard registers are used and clobbered at this + point. */ + emit_insn (gen_blockage ()); + + DONE; +}") + +;; UNSPEC_VOLATILE is considered to use and clobber all hard registers and +;; all of memory. This blocks insns from being moved across this point. + +(define_insn "blockage" + [(unspec_volatile [(const_int 0)] 0)] + "" + "") + (define_insn "indirect_jump" [(set (pc) (match_operand:SI 0 "register_operand" "r"))] "" |