minwin-gcc-5-2/gcc/config/vax/builtins.md

;; builtin definitions for DEC VAX. ;; Copyright (C) 2007-2015 Free Software Foundation, Inc. ;; ;; This file is part of GCC. ;; ;; GCC is free software; you can redistribute it and/or modify it under ;; the terms of the GNU General Public License as published by the Free ;; Software Foundation; either version 3, or (at your option) any later ;; version. ;; ;; GCC is distributed in the hope that it will be useful, but WITHOUT ANY ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ;; for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with GCC; see the file COPYING3. If not see ;; http://www.gnu.org/licenses/.

(define_constants [

(VUNSPEC_LOCK 100)      ; sync lock and test
(VUNSPEC_UNLOCK 101)    ; sync lock release

] )

(define_expand "ffssi2" [(set (match_operand:SI 0 "nonimmediate_operand" "")

(ffs:SI (match_operand:SI 1 "general_operand" "")))]

"" " { rtx label = gen_label_rtx (); emit_insn (gen_ffssi2_internal (operands[0], operands[1])); emit_jump_insn (gen_bne (label)); emit_insn (gen_negsi2 (operands[0], const1_rtx)); emit_label (label); emit_insn (gen_addsi3 (operands[0], operands[0], const1_rtx)); DONE; }")

(define_insn "ffssi2_internal" [(set (match_operand:SI 0 "nonimmediate_operand" "=rQ")

(ffs:SI (match_operand:SI 1 "general_operand" "nrmT")))

(set (cc0) (match_dup 0))] "" "ffs $0,$32,%1,%0")

(define_expand "sync_lock_test_and_set" [(set (match_operand:VAXint 0 "nonimmediate_operand" "=&g")

(unspec:VAXint [(match_operand:VAXint 1 "memory_operand" "+m")
        (match_operand:VAXint 2 "const_int_operand" "n")
       ] VUNSPEC_LOCK))]

"" " { rtx label;

if (operands[2] != const1_rtx)

FAIL;

label = gen_label_rtx (); emit_move_insn (operands[0], const1_rtx); emit_jump_insn (gen_jbbssi (operands[1], const0_rtx, label, operands[1])); emit_move_insn (operands[0], const0_rtx); emit_label (label); DONE; }")

(define_insn "jbbssiqi" [(parallel

[(set (pc)
  (if_then_else
    (ne (zero_extract:SI (match_operand:QI 0 "memory_operand" "g")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:QI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 1))])]

"" "jbssi %1,%0,%l2")

(define_insn "jbbssihi" [(parallel

[(set (pc)
  (if_then_else
    (ne (zero_extract:SI (match_operand:HI 0 "memory_operand" "Q")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:HI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 1))])]

"" "jbssi %1,%0,%l2")

(define_insn "jbbssisi" [(parallel

[(set (pc)
  (if_then_else
    (ne (zero_extract:SI (match_operand:SI 0 "memory_operand" "Q")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:SI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 1))])]

"" "jbssi %1,%0,%l2")

(define_expand "sync_lock_release" [(set (match_operand:VAXint 0 "memory_operand" "+m")

(unspec:VAXint [(match_operand:VAXint 1 "const_int_operand" "n")
       ] VUNSPEC_UNLOCK))]

"" " { rtx label; if (operands[1] != const0_rtx)

FAIL;

#if 1 label = gen_label_rtx (); emit_jump_insn (gen_jbbcci (operands[0], const0_rtx, label, operands[0])); emit_label (label); #else emit_move_insn (operands[0], const0_rtx); #endif DONE; }")

(define_insn "jbbcciqi" [(parallel

[(set (pc)
  (if_then_else
    (eq (zero_extract:SI (match_operand:QI 0 "memory_operand" "g")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:QI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 0))])]

"" "jbcci %1,%0,%l2")

(define_insn "jbbccihi" [(parallel

[(set (pc)
  (if_then_else
    (eq (zero_extract:SI (match_operand:HI 0 "memory_operand" "Q")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:HI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 0))])]

"" "jbcci %1,%0,%l2")

(define_insn "jbbccisi" [(parallel

[(set (pc)
  (if_then_else
    (eq (zero_extract:SI (match_operand:SI 0 "memory_operand" "Q")
             (const_int 1)
             (match_operand:SI 1 "general_operand" "nrm"))
    (const_int 0))
    (label_ref (match_operand 2 "" ""))
    (pc)))
 (set (zero_extract:SI (match_operand:SI 3 "memory_operand" "+0")
           (const_int 1)
           (match_dup 1))
  (const_int 0))])]

"" "jbcci %1,%0,%l2")