[gcc r13-5101] IBM zSystems: Use NAND instruction to implement bit not

[gcc r13-5101] IBM zSystems: Use NAND instruction to implement bit not

[Andreas Krebbel]

https://gcc.gnu.org/g:2ce074a7f858a1cd30ff68ec636dad9be218e04b

commit r13-5101-g2ce074a7f858a1cd30ff68ec636dad9be218e04b
Author: Andreas Krebbel <krebbel@linux.ibm.com>
Date:   Wed Jan 11 11:17:42 2023 +0100

    IBM zSystems: Use NAND instruction to implement bit not
    
    gcc/ChangeLog:
    
            * config/s390/s390.md (*not<mode>): New pattern.
    
    gcc/testsuite/ChangeLog:
    
            * gcc.target/s390/not.c: New test.

Diff:
---
 gcc/config/s390/s390.md             |  8 ++++++++
 gcc/testsuite/gcc.target/s390/not.c | 11 +++++++++++
 2 files changed, 19 insertions(+)

diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md
index 0e56fbad44d..4828aa08be6 100644
--- a/gcc/config/s390/s390.md
+++ b/gcc/config/s390/s390.md
@@ -8302,6 +8302,14 @@
   "n<ANDOR:inv_no><GPR:g>rk\t%0,%1,%2"
   [(set_attr "op_type" "RRF")])
 
+; Use NAND for bit inversion
+(define_insn "*not<mode>"
+  [(set (match_operand:GPR          0 "register_operand" "=d")
+	(not:GPR (match_operand:GPR 1 "register_operand"  "d")))
+   (clobber (reg:CC CC_REGNUM))]
+  "TARGET_Z15"
+  "nn<GPR:g>rk\t%0,%1,%1"
+  [(set_attr "op_type" "RRF")])
 
 ;
 ; Block inclusive or (OC) patterns.
diff --git a/gcc/testsuite/gcc.target/s390/not.c b/gcc/testsuite/gcc.target/s390/not.c
new file mode 100644
index 00000000000..dae95f7d8a0
--- /dev/null
+++ b/gcc/testsuite/gcc.target/s390/not.c
@@ -0,0 +1,11 @@
+/* { dg-do compile } */
+/* { dg-options "-O3 -march=z15 -mzarch" } */
+
+unsigned long
+foo (unsigned long a)
+{
+  return ~a;
+}
+
+/* { dg-final { scan-assembler-times "\tnngrk\t" 1 { target { lp64 } } } } */
+/* { dg-final { scan-assembler-times "\tnnrk\t" 1 { target { ! lp64 } } } } */