diff options
| author | Jeff Law <law@gcc.gnu.org> | 1993-08-22 21:38:16 -0600 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1993-08-22 21:38:16 -0600 |
| commit | dfeddf46e3796bb5cf57c0650dd3f1463e25a260 (patch) | |
| tree | 5fc86862b97a5c4c7c2b02712f2c88db8dfaabd8 | |
| parent | b4af138b01a546c1f24031cf843fedbd8f50c726 (diff) | |
| download | gcc-dfeddf46e3796bb5cf57c0650dd3f1463e25a260.zip gcc-dfeddf46e3796bb5cf57c0650dd3f1463e25a260.tar.gz gcc-dfeddf46e3796bb5cf57c0650dd3f1463e25a260.tar.bz2 | |
* pa.md (untyped_call): New define_expand.
From-SVN: r5192
| -rw-r--r-- | gcc/config/pa/pa.md | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md index 732ec4e..ad20969 100644 --- a/gcc/config/pa/pa.md +++ b/gcc/config/pa/pa.md @@ -2841,6 +2841,34 @@ [(set_attr "type" "dyncall") (set_attr "length" "12")]) +;; 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)); + + 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; +}") (define_insn "nop" [(const_int 0)] "" |